From d09af6a54bebfdfe5982dbe39bfafc8cb98ae6fd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 14 Mar 1998 03:05:28 +0000 Subject: [PATCH] (fill-region-as-paragraph, fill-region): Allow t as legit value of JUSTIFY. --- lisp/textmodes/fill.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index eb1d2a9ef42..4320dc8a739 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -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 -- 2.39.2