Mercurial > emacs
changeset 9706:f5f7d07eece8
(fill-individual-paragraphs): Avoid infinite loop
if mailp is set and no message was yanked.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 26 Oct 1994 09:32:04 +0000 |
| parents | f7535deb913a |
| children | 6349d2705e2a |
| files | lisp/textmodes/fill.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/fill.el Wed Oct 26 09:30:46 1994 +0000 +++ b/lisp/textmodes/fill.el Wed Oct 26 09:32:04 1994 +0000 @@ -358,8 +358,11 @@ (save-excursion (goto-char min) (beginning-of-line) + (narrow-to-region (point) max) (if mailp - (while (or (looking-at "[ \t]*[^ \t\n]*:") (looking-at "[ \t]*$")) + (while (and (not (eobp)) + (or (looking-at "[ \t]*[^ \t\n]*:") + (looking-at "[ \t]*$"))) (if (looking-at "[ \t]*[^ \t\n]*:") (search-forward "\n\n" nil 'move) (forward-line 1))))