(fill-region-as-paragraph): Fix "last line goes to fill-column+1" problem.

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 4faa89ae724cbfdaf4a4aa8b06cde3748acb8792..a8a98524838935d468b4dcf96efbc266785ef91a 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -660,9 +660,10 @@ space does not end a sentence, so don't break a line there."
        (let (linebeg)
          (while (< (point) to)
            (setq linebeg (point))
-           (move-to-column (1+ (current-fill-column)))
+           (move-to-column (current-fill-column))
            (if (when (< (point) to)
                  ;; Find the position where we'll break the line.
+                 (forward-char 1) ;Use an immediately following space, if any.
                  (fill-move-to-break-point linebeg)
                  ;; Check again to see if we got to the end of
                  ;; the paragraph.