Mercurial > emacs

changeset 21150:a9e9f674c9c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fill-region-as-paragraph, fill-region): Allow t as legit value of JUSTIFY.
author Richard M. Stallman <rms@gnu.org>
date Sat, 14 Mar 1998 03:05:28 +0000
parents 43ed5912d7e0
children 79a284372cfb
files lisp/textmodes/fill.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/fill.el	Fri Mar 13 21:22:05 1998 +0000
+++ b/lisp/textmodes/fill.el	Sat Mar 14 03:05:28 1998 +0000
@@ -273,7 +273,7 @@
 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 @@
 
 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 @@
 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