From 253996a89253500b04230f2f577cbc2d9714e470 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 19 Mar 1996 20:05:11 +0000 Subject: [PATCH] (fill-region-as-paragraph): Fix the second check for whether we reached the end of the paragraph. --- lisp/textmodes/fill.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 152ccf96f2a..1ce82773f78 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -321,7 +321,9 @@ space does not end a sentence, so don't break a line there." (forward-char -2) (skip-chars-backward "^ \n" linebeg))) ;; If the left margin and fill prefix by themselves - ;; pass the fill-column, keep at least one word. + ;; pass the fill-column. or if they are zero + ;; but we have no room for even one word, + ;; keep at least one word anyway. ;; This handles ALL BUT the first line of the paragraph. (if (if (zerop prefixcol) (save-excursion @@ -371,7 +373,7 @@ space does not end a sentence, so don't break a line there." (skip-chars-forward "^ \t\n") (setq first nil)))) ;; Check again to see if we got to the end of the paragraph. - (if (eobp) + (if (save-excursion (skip-chars-forward " \t") (eobp)) (or nosqueeze (delete-horizontal-space)) ;; Replace whitespace here with one newline, then indent to left ;; margin. -- 2.39.2