(fill-paragraph, fill-region, fill-nonuniform-paragraphs)

(fill-individual-paragraphs): Pass `full' for JUSTIFY arg,
in the interactive spec, if have prefix arg.

1 files changed, 7 insertions, 4 deletions

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index f04378a3adc..ae3e136bca5 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -351,7 +351,7 @@ space does not end a sentence, so don't break a line there.
 
 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 @@ hard newline, if `use-hard-newlines' is on).
 
 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 @@ When calling from a program, pass range to fill as first two arguments.
 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 @@ When calling from a program, pass range to fill as first two arguments.
 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)