Mercurial > emacs
diff lisp/man.el @ 4329:dfabe5b99500
(Man-filter-list): Insert \n newlines in awk script.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 29 Jul 1993 02:31:06 +0000 |
parents | b42338a458a5 |
children | b39cd3621215 |
line wrap: on
line diff
--- a/lisp/man.el Thu Jul 29 00:25:38 1993 +0000 +++ b/lisp/man.el Thu Jul 29 02:31:06 1993 +0000 @@ -147,12 +147,12 @@ "-e '/^Sun Release [0-9].*[0-9]$/d'" "-e '/^\\n$/D'" )) - ("awk '" - ("BEGIN { blankline=0; anonblank=0; }" - "/^$/ { if (anonblank==0) next; }" - "{ anonblank=1; }" - "/^$/ { blankline++; next; }" - "{ if (blankline>0) { print \"\"; blankline=0; } print $0; }" + ("awk '\n" + ("BEGIN { blankline=0; anonblank=0; }\n" + "/^$/ { if (anonblank==0) next; }\n" + "{ anonblank=1; }\n" + "/^$/ { blankline++; next; }\n" + "{ if (blankline>0) { print \"\"; blankline=0; } print $0; }\n" "'" )) )