From 73b3354550f3f7a4f544d5be5f431a91cd6f0123 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 8 Mar 1998 00:27:23 +0000 Subject: [PATCH] (fill-region): If JUSTIFY is non-nil and not a known value, treat it as `full'. (fill-region-as-paragraph): Likewise. --- lisp/textmodes/fill.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 1b50e1e84d9..08a285b2aaa 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -268,6 +268,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 (list (region-beginning) (region-end) (if current-prefix-arg 'full))) + (unless (memq justify '(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))) (setq buffer-undo-list (cons (point) buffer-undo-list))) @@ -573,10 +575,13 @@ argument to it), and if it returns non-nil, we simply return its value." (defun fill-region (from to &optional justify nosqueeze to-eop) "Fill each of the paragraphs in the region. -Prefix arg (non-nil third arg, if called from program) means justify as well. +A prefix arg means justify as well. Ordinarily the variable `fill-column' controls the width. -Noninteractively, fourth arg NOSQUEEZE non-nil means to leave +Noninteractively, the third argument JUSTIFY specifies which +kind of justification to do: `full', `left', `right', `center', +or `none' (equivalent to nil). +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 hard newline, if `use-hard-newlines' is on). @@ -585,6 +590,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 (list (region-beginning) (region-end) (if current-prefix-arg 'full))) + (unless (memq justify '(nil none full center left right)) + (setq justify 'full)) (let (end beg) (save-restriction (goto-char (max from to)) -- 2.39.2