diff options
author | Richard M. Stallman <[email protected]> | 1995-04-10 08:02:39 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1995-04-10 08:02:39 +0000 |
commit | 4455f41c28f5b6465c15047e85966d0c308158c5 (patch) | |
tree | 717d110c3dcb8a8cfa4c415df80622e070a3398f /lisp | |
parent | 3f0052565fd0b73cf03f415668bb92a576f2a14f (diff) |
(fill-region-as-paragraph): Undo previous change.
Instead, set JUSTIFY to `full' in the interactive spec.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/textmodes/fill.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 656c99f725..f04378a3ad 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -134,7 +134,8 @@ between words canonical before filling. 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 @@ space does not end a sentence, so don't break a line there." ;; 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))) |