diff options
| author | Richard M. Stallman | 1993-07-29 02:31:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-29 02:31:06 +0000 |
| commit | 6b33eb408cd8a54d09002809c3ee693b6fe18f08 (patch) | |
| tree | 352503ad5960cfae0b0d6d2b1b91f81234063241 | |
| parent | 16ae08a92a6c350b20fff24fbc56c61ded5b3355 (diff) | |
| download | emacs-6b33eb408cd8a54d09002809c3ee693b6fe18f08.tar.gz emacs-6b33eb408cd8a54d09002809c3ee693b6fe18f08.zip | |
(Man-filter-list): Insert \n newlines in awk script.
| -rw-r--r-- | lisp/man.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/man.el b/lisp/man.el index f01265cab45..69a9fd8390f 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -147,12 +147,12 @@ the associated section number.") | |||
| 147 | "-e '/^Sun Release [0-9].*[0-9]$/d'" | 147 | "-e '/^Sun Release [0-9].*[0-9]$/d'" |
| 148 | "-e '/^\\n$/D'" | 148 | "-e '/^\\n$/D'" |
| 149 | )) | 149 | )) |
| 150 | ("awk '" | 150 | ("awk '\n" |
| 151 | ("BEGIN { blankline=0; anonblank=0; }" | 151 | ("BEGIN { blankline=0; anonblank=0; }\n" |
| 152 | "/^$/ { if (anonblank==0) next; }" | 152 | "/^$/ { if (anonblank==0) next; }\n" |
| 153 | "{ anonblank=1; }" | 153 | "{ anonblank=1; }\n" |
| 154 | "/^$/ { blankline++; next; }" | 154 | "/^$/ { blankline++; next; }\n" |
| 155 | "{ if (blankline>0) { print \"\"; blankline=0; } print $0; }" | 155 | "{ if (blankline>0) { print \"\"; blankline=0; } print $0; }\n" |
| 156 | "'" | 156 | "'" |
| 157 | )) | 157 | )) |
| 158 | ) | 158 | ) |