diff options
Diffstat (limited to 'lisp/textmodes/fill.el')
| -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. |