From c62861749e917691ab791dcc8df7c3003b78c5c1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 14 Nov 1995 23:28:24 +0000 Subject: [PATCH] (fill-individual-paragraphs): Advance 1 line in inner loop. --- lisp/textmodes/fill.el | 11 ++++++----- 1 file 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. -- 2.39.2