diff options
| -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. | |||
| 600 | If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there." | 600 | If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there." |
| 601 | (or exit-char (setq exit-char ?\ )) | 601 | (or exit-char (setq exit-char ?\ )) |
| 602 | (let ((buffer-read-only nil) | 602 | (let ((buffer-read-only nil) |
| 603 | ;; Don't modify the undo list at all. | ||
| 604 | (buffer-undo-list t) | ||
| 603 | (modified (buffer-modified-p)) | 605 | (modified (buffer-modified-p)) |
| 604 | (name buffer-file-name) | 606 | (name buffer-file-name) |
| 605 | insert-end) | 607 | insert-end) |