mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-24 23:31:33 -07:00
Code Issues Projects Releases Wiki Activity

(fill-paragraph): Don't actually change point before

Browse source 
calling fill-region-as-paragraph.
(fill-region-as-paragraph): Save point on undo list at start.
This commit is contained in:
Richard M. Stallman 1992-10-04 04:10:02 +00:00
parent 58ff020d72
commit 89cd98f3ef
1 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/textmodes/fill.el
View file

@ -57,6 +57,9 @@ for the paragraph.")
Prefix arg means justify too.
From program, pass args FROM, TO and JUSTIFY-FLAG."
(interactive "r\nP")
;; 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)))
;; Don't let Adaptive Fill mode alter the fill prefix permanently.
(let ((fill-prefix fill-prefix))
;; Figure out how this paragraph is indented, if desired.
@ -195,12 +198,14 @@ From program, pass args FROM, TO and JUSTIFY-FLAG."
(defun fill-paragraph (arg)
"Fill paragraph at or after point. Prefix arg means justify as well."
(interactive "P")
(save-excursion
(forward-paragraph)
(or (bolp) (newline 1))
(let ((end (point)))
(backward-paragraph)
(fill-region-as-paragraph (point) end arg))))
(let ((before (point)))
(save-excursion
(forward-paragraph)
(or (bolp) (newline 1))
(let ((end (point))
(beg (progn (backward-paragraph) (point))))
(goto-char before)
(fill-region-as-paragraph beg end arg)))))
(defun fill-region (from to &optional justify-flag)
"Fill each of the paragraphs in the region.