mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(fill-region-as-paragraph, fill-region): Allow t as legit value of JUSTIFY.

Browse source
This commit is contained in:
Richard M. Stallman 1998-03-14 03:05:28 +00:00
parent 1bf95511a4
commit d09af6a54b
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/textmodes/fill.el
View file

@ -273,7 +273,7 @@ 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 (list (region-beginning) (region-end)
(if current-prefix-arg 'full)))
(unless (memq justify '(nil none full center left right))
(unless (memq justify '(t nil none full center left right))
(setq justify 'full))
;; Arrange for undoing the fill to restore point.
(if (and buffer-undo-list (not (eq buffer-undo-list t)))
@ -592,7 +592,9 @@ Ordinarily the variable `fill-column' controls the width.
Noninteractively, the third argument JUSTIFY specifies which
kind of justification to do: `full', `left', `right', `center',
or `none' (equivalent to nil).
or `none' (equivalent to nil). t means handle each paragraph
as specified by its text properties.
The fourth arg NOSQUEEZE non-nil means to leave
whitespace other than line breaks untouched, and fifth arg TO-EOP
non-nil means to keep filling to the end of the paragraph (or next
@ -602,7 +604,7 @@ 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 (list (region-beginning) (region-end)
(if current-prefix-arg 'full)))
(unless (memq justify '(nil none full center left right))
(unless (memq justify '(t nil none full center left right))
(setq justify 'full))
(let (end beg)
(save-restriction