From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 10 Apr 1995 08:02:39 +0000 (+0000)
Subject: (fill-region-as-paragraph): Undo previous change.
X-Git-Tag: emacs-19.34~4502
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4455f41c28f5b6465c15047e85966d0c308158c5;p=emacs.git

(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 656c99f725b..f04378a3adc 100644
--- 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)))