mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(open-line): Shield undo from the hack to insert at pt-1.

Browse source
This commit is contained in:
Richard M. Stallman 1992-10-03 02:21:51 +00:00
parent f28f04cca2
commit 62c48f87e9
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/simple.el
View file

@ -28,7 +28,17 @@ With arg N, insert N newlines."
(interactive "*p")
(let* ((do-fill-prefix (and fill-prefix (bolp)))
(flag (and (null do-fill-prefix) (bolp) (not (bobp)))))
(if flag (forward-char -1))
;; If this is a simple case, and we are at the beginning of a line,
;; actually insert the newline *before* the preceding newline
;; instead of after. That makes better display behavior.
(if flag
(progn
;; If undo is enabled, don't let this hack be visible:
;; record the real value of point as the place to move back to
;; if we undo this insert.
(if (and buffer-undo-list (not (eq buffer-undo-list t)))
(setq buffer-undo-list (cons (point) buffer-undo-list)))
(forward-char -1)))
(while (> arg 0)
(save-excursion
(insert ?\n))