Mercurial > emacs

diff lisp/subr.el @ 6553:fca6271b0983

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(momentary-string-display): Avoid modifying the undo list.
author Richard M. Stallman <rms@gnu.org>
date Mon, 28 Mar 1994 06:08:35 +0000
parents 99ca8123a3ca
children e044bd05a1da
line wrap: on
line diff
--- a/lisp/subr.el	Mon Mar 28 05:41:05 1994 +0000
+++ b/lisp/subr.el	Mon Mar 28 06:08:35 1994 +0000
@@ -600,6 +600,8 @@
 If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."
   (or exit-char (setq exit-char ?\ ))
   (let ((buffer-read-only nil)
+	;; Don't modify the undo list at all.
+	(buffer-undo-list t)
 	(modified (buffer-modified-p))
 	(name buffer-file-name)
 	insert-end)