diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-28 06:08:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-28 06:08:35 +0000 |
| commit | ca2ec1c584059c787da2101de9b03baecff5f5ce (patch) | |
| tree | 9ef0a705dda0edf111fac838bf73f43e7577e32b | |
| parent | 7015aca4520d036305770c96f7ffbb8428b79ff0 (diff) | |
| download | emacs-ca2ec1c584059c787da2101de9b03baecff5f5ce.tar.gz emacs-ca2ec1c584059c787da2101de9b03baecff5f5ce.tar.bz2 emacs-ca2ec1c584059c787da2101de9b03baecff5f5ce.zip | |
(momentary-string-display): Avoid modifying the undo list.
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 2 insertions, 0 deletions
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) |