From 7b9f06576be1283e3a0a31c23ce916d788efb152 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 31 May 1996 04:17:02 +0000 Subject: [PATCH] (fill-individual-paragraphs): Don't get stuck if no newline at the end of the region. --- lisp/textmodes/fill.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 -- 2.39.2