# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797884424 0
# Node ID b0a7e8ff84ad442ffc474a004aa80a10a472427d
# Parent  d51e912495bed2f9e6a01b126caaec435f7f4c75
(fill-paragraph, fill-region, fill-nonuniform-paragraphs)
(fill-individual-paragraphs): Pass `full' for JUSTIFY arg,
in the interactive spec, if have prefix arg.

diff -r d51e912495be -r b0a7e8ff84ad lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Fri Apr 14 18:31:50 1995 +0000
+++ b/lisp/textmodes/fill.el	Fri Apr 14 18:33:44 1995 +0000
@@ -351,7 +351,7 @@
 
 If `fill-paragraph-function' is non-nil, we call it (passing our
 argument to it), and if it returns non-nil, we simply return its value."
-  (interactive "P")
+  (interactive (list (if current-prefix-arg 'full)))
   (or (and fill-paragraph-function
 	   (let ((function fill-paragraph-function)
 		 fill-paragraph-function)
@@ -380,7 +380,8 @@
 
 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)))
   (let (end beg)
     (save-restriction
       (goto-char (max from to))
@@ -716,7 +717,8 @@
 Optional third and fourth arguments JUSTIFY and MAIL-FLAG:
 JUSTIFY to justify paragraphs (prefix arg),
 MAIL-FLAG for a mail message, i. e. don't fill header lines."
-  (interactive "r\nP")
+  (interactive (list (region-beginning) (region-end)
+		     (if current-prefix-arg 'full)))
   (let ((fill-individual-varying-indent t))
     (fill-individual-paragraphs min max justifyp mailp)))
 
@@ -731,7 +733,8 @@
 Optional third and fourth arguments JUSTIFY and MAIL-FLAG:
 JUSTIFY to justify paragraphs (prefix arg),
 MAIL-FLAG for a mail message, i. e. don't fill header lines."
-  (interactive "r\nP")
+  (interactive (list (region-beginning) (region-end)
+		     (if current-prefix-arg 'full)))
   (save-restriction
     (save-excursion
       (goto-char min)