Mercurial > emacs

comparison lisp/simple.el @ 5564:99143cd57345

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(open-line): Treat all cases of enabled undo alike.
author Richard M. Stallman <rms@gnu.org>
date Tue, 11 Jan 1994 15:56:29 +0000
parents 037e2641c768
children 82a127d7ef7d
comparison
equal deleted inserted replaced
5563:50ada322de3e 5564:99143cd57345
39 (if flag 39 (if flag
40 (progn 40 (progn
41 ;; If undo is enabled, don't let this hack be visible: 41 ;; If undo is enabled, don't let this hack be visible:
42 ;; record the real value of point as the place to move back to 42 ;; record the real value of point as the place to move back to
43 ;; if we undo this insert. 43 ;; if we undo this insert.
44 (if (and buffer-undo-list (not (eq buffer-undo-list t))) 44 (if (not (eq buffer-undo-list t))
45 (setq buffer-undo-list (cons (point) buffer-undo-list))) 45 (setq buffer-undo-list (cons (point) buffer-undo-list)))
46 (forward-char -1))) 46 (forward-char -1)))
47 (save-excursion 47 (save-excursion
48 (while (> arg 0) 48 (while (> arg 0)
49 (if do-fill-prefix (insert fill-prefix)) 49 (if do-fill-prefix (insert fill-prefix))