procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(fill-region-as-paragraph): Undo previous change.

Browse source 
Instead, set JUSTIFY to `full' in the interactive spec.
This commit is contained in:
Richard M. Stallman 1995-04-10 08:02:39 +00:00
parent 3f0052565f
commit 4455f41c28
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/textmodes/fill.el
View file

@ -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)))