diff options
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 0cea4ed5b98..8954dff55e3 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -828,7 +828,7 @@ otherwise it is then available as input (as a command if nothing else). | |||
| 828 | Display MESSAGE (optional fourth arg) in the echo area. | 828 | Display MESSAGE (optional fourth arg) in the echo area. |
| 829 | If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there." | 829 | If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there." |
| 830 | (or exit-char (setq exit-char ?\ )) | 830 | (or exit-char (setq exit-char ?\ )) |
| 831 | (let ((buffer-read-only nil) | 831 | (let ((inhibit-read-only t) |
| 832 | ;; Don't modify the undo list at all. | 832 | ;; Don't modify the undo list at all. |
| 833 | (buffer-undo-list t) | 833 | (buffer-undo-list t) |
| 834 | (modified (buffer-modified-p)) | 834 | (modified (buffer-modified-p)) |