From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 31 May 1996 04:17:02 +0000 (+0000)
Subject: (fill-individual-paragraphs): Don't get stuck
X-Git-Tag: emacs-19.34~554
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/7b9f06576be1283e3a0a31c23ce916d788efb152?ds=sidebyside

(fill-individual-paragraphs): Don't get stuck
if no newline at the end of the region.
---

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 1ce82773f7..fd6db93ccd 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -828,7 +828,10 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines."
 						(point))))
 			     fill-prefix-regexp (regexp-quote fill-prefix)))
 		   (forward-line 1)
-		   (move-to-left-margin)
+		   (if (bolp)
+		       ;; If forward-line went past a newline,
+		       ;; move further to the left margin.
+		       (move-to-left-margin))
 		   ;; Now stop the loop if end of paragraph.
 		   (and (not (eobp))
 			(if fill-individual-varying-indent