Mercurial > emacs
changeset 11356:4be78e93d1be
(fill-region-as-paragraph): Undo previous change.
Instead, set JUSTIFY to `full' in the interactive spec.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 10 Apr 1995 08:02:39 +0000 |
| parents | 74046c14a0ad |
| children | 34246eb34e98 |
| files | lisp/textmodes/fill.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/fill.el Mon Apr 10 08:00:16 1995 +0000 +++ b/lisp/textmodes/fill.el Mon Apr 10 08:02:39 1995 +0000 @@ -134,7 +134,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))) ;; 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))) @@ -335,9 +336,9 @@ ;; Justify the line just ended, if desired. (if justify (if (eobp) - (justify-current-line (not (null justify)) t t) + (justify-current-line justify t t) (forward-line -1) - (justify-current-line (not (null justify)) nil t) + (justify-current-line justify nil t) (forward-line 1)))))) ;; Leave point after final newline. (goto-char (point-max)))