Mercurial > emacs
changeset 11448:b0a7e8ff84ad
(fill-paragraph, fill-region, fill-nonuniform-paragraphs)
(fill-individual-paragraphs): Pass `full' for JUSTIFY arg,
in the interactive spec, if have prefix arg.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 14 Apr 1995 18:33:44 +0000 |
| parents | d51e912495be |
| children | fca5a32f7806 |
| files | lisp/textmodes/fill.el |
| diffstat | 1 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)