From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 28 Mar 1994 06:08:35 +0000 (+0000)
Subject: (momentary-string-display): Avoid modifying the undo list.
X-Git-Tag: emacs-19.34~9299
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca2ec1c584059c787da2101de9b03baecff5f5ce;p=emacs.git

(momentary-string-display): Avoid modifying the undo list.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 5a08278241f..50321c3d666 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -600,6 +600,8 @@ Display MESSAGE (optional fourth arg) in the echo area.
 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)