(fill-region-as-paragraph): Fix the second check for

whether we reached the end of the paragraph.

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 152ccf96f2afb4362bb789e22abe4047b80557cf..1ce82773f786a88d9d7c2856c851f986741ca740 100644 (file)
--- 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.