(fill-region-as-paragraph): At end, advance over any newlines

that were in the region but excluded from filling.

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 535323e9f18f0e5088e83775c4945c7175fd5b14..3e703fcf31b9dea4d36d82b145de4b353367f7e7 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -134,7 +134,8 @@ space does not end a sentence, so don't break a line there."
   (or justify (setq justify (current-justification)))
 
   ;; Don't let Adaptive Fill mode alter the fill prefix permanently.
-  (let ((fill-prefix fill-prefix))
+  (let ((fill-prefix fill-prefix)
+       (skip-after 0))
     ;; Figure out how this paragraph is indented, if desired.
     (if (and adaptive-fill-mode
             (or (null fill-prefix) (string= fill-prefix "")))
@@ -172,6 +173,9 @@ space does not end a sentence, so don't break a line there."
          (setq beg (point))
          (goto-char (max from to))
          (skip-chars-backward "\n")
+         (setq skip-after (- to (point)))
+         ;; If we omit some final newlines from the end of the narrowing,
+         ;; arrange to advance past them at the end.
          (setq to (point)
                from beg)
          (goto-char from)
@@ -307,7 +311,8 @@ space does not end a sentence, so don't break a line there."
                    (justify-current-line justify t t)
                  (forward-line -1)
                  (justify-current-line justify nil t)
-                 (forward-line 1)))))))))
+                 (forward-line 1))))))
+      (forward-char skip-after))))
 
 (defun fill-paragraph (arg)
   "Fill paragraph at or after point.  Prefix arg means justify as well.