diff options
| author | Richard M. Stallman | 1999-02-16 00:52:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-02-16 00:52:36 +0000 |
| commit | c306e0e09febea487ba697649703ab0c66bdadfc (patch) | |
| tree | ddae1a1ee0bae81b34b464514bdbc5f3f2c67fab | |
| parent | 2654fa92b2d9bd1cd6f43f3ae48ca1f8b754d306 (diff) | |
| download | emacs-c306e0e09febea487ba697649703ab0c66bdadfc.tar.gz emacs-c306e0e09febea487ba697649703ab0c66bdadfc.zip | |
(momentary-string-display): Bind inhibit-read-only.
| -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)) |