diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-11-14 23:28:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-11-14 23:28:24 +0000 |
| commit | 42dfc20c753a7820e5a85aee388defaf22f6c1d7 (patch) | |
| tree | 3601a0dd4df3e9eb3b3bbe9cf20556f9d6e70c6a /lisp/textmodes | |
| parent | b3cdadfb3f5c6026b94483668b0bbf505018f2c6 (diff) | |
| download | emacs-42dfc20c753a7820e5a85aee388defaf22f6c1d7.tar.gz | |
(fill-individual-paragraphs): Advance 1 line in inner loop.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/fill.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 406d75ec089..6b80922c847 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -787,17 +787,18 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines." (save-excursion (skip-chars-forward " \t") (point)))) fill-prefix-regexp (regexp-quote fill-prefix))) - (move-to-left-margin 1) + (forward-line 1) + (move-to-left-margin) ;; Now stop the loop if end of paragraph. (and (not (eobp)) (if fill-individual-varying-indent ;; If this line is a separator line, with or ;; without prefix, end the paragraph. (and - (not (looking-at paragraph-separate)) - (save-excursion - (not (and (looking-at fill-prefix-regexp) - (progn (forward-char (length fill-prefix)) + (not (looking-at paragraph-separate)) + (save-excursion + (not (and (looking-at fill-prefix-regexp) + (progn (forward-char (length fill-prefix)) (looking-at paragraph-separate)))))) ;; If this line has more or less indent ;; than the fill prefix wants, end the paragraph. |