(fill-region-as-paragraph): Undo previous change.

Instead, set JUSTIFY to `full' in the interactive spec.

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 656c99f725b5fa28d4dff7ec69f0355b4c88cb47..f04378a3adc6cee3e4ebfc9923fc9edf1581e516 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -134,7 +134,8 @@ between words canonical before filling.
 
 If `sentence-end-double-space' is non-nil, then period followed by one
 space does not end a sentence, so don't break a line there."
-  (interactive "r\nP")
+  (interactive (list (region-beginning) (region-end)
+                    (if current-prefix-arg 'full)))
   ;; Arrange for undoing the fill to restore point.
   (if (and buffer-undo-list (not (eq buffer-undo-list t)))
       (setq buffer-undo-list (cons (point) buffer-undo-list)))
@@ -335,9 +336,9 @@ space does not end a sentence, so don't break a line there."
              ;; Justify the line just ended, if desired.
              (if justify
                  (if (eobp)
-                     (justify-current-line (not (null justify)) t t)
+                     (justify-current-line justify t t)
                    (forward-line -1)
-                   (justify-current-line (not (null justify)) nil t)
+                   (justify-current-line justify nil t)
                    (forward-line 1))))))
        ;; Leave point after final newline.
        (goto-char (point-max)))