From ca2ec1c584059c787da2101de9b03baecff5f5ce Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 28 Mar 1994 06:08:35 +0000 Subject: [PATCH] (momentary-string-display): Avoid modifying the undo list. --- lisp/subr.el | 2 ++ 1 file changed, 2 insertions(+) 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) -- 2.39.5