Mercurial > emacs
changeset 13548:9be6c740e36f
(fill-individual-paragraphs): Advance 1 line in inner loop.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 14 Nov 1995 23:28:24 +0000 |
| parents | 37cf3f6ba99c |
| children | f8afa95d197e |
| files | lisp/textmodes/fill.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/fill.el Tue Nov 14 22:57:02 1995 +0000 +++ b/lisp/textmodes/fill.el Tue Nov 14 23:28:24 1995 +0000 @@ -787,17 +787,18 @@ (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.