From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 14 Nov 1995 23:28:24 +0000 (+0000)
Subject: (fill-individual-paragraphs): Advance 1 line in inner loop.
X-Git-Tag: emacs-19.34~2312
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c62861749e917691ab791dcc8df7c3003b78c5c1;p=emacs.git

(fill-individual-paragraphs): Advance 1 line in inner loop.
---

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.