(fill-region-as-paragraph):

Don't add a newline at the end, when there is none.

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 9a96711ba76b995949da379695672f6c5f9a197a..3bafa4a82d673f1d66c463f7f568d40b572c184f 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -302,11 +302,10 @@ space does not end a sentence, so don't break a line there."
        (backward-char 1)
        (setq oneleft t)))
     (setq to (point))
-
-    ;; If there was no newline, and there is text in the paragraph, then
-    ;; create a newline.
-    (if (and (not oneleft) (> to from-plus-indent))
-       (newline))
+;;;     ;; If there was no newline, and there is text in the paragraph, then
+;;;     ;; create a newline.
+;;;     (if (and (not oneleft) (> to from-plus-indent))
+;;;    (newline))
     (goto-char from-plus-indent))
 
   (if (not (> to (point)))
@@ -557,7 +556,8 @@ space does not end a sentence, so don't break a line there."
                    (forward-line 1))))))
        ;; Leave point after final newline.
        (goto-char (point-max)))
-    (forward-char 1))))
+      (unless (eobp)
+       (forward-char 1)))))
 
 (defun fill-paragraph (arg)
   "Fill paragraph at or after point.  Prefix arg means justify as well.