Mercurial > emacs
comparison lisp/subr.el @ 24322:ca77d79a0c21
(momentary-string-display): Bind inhibit-read-only.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 16 Feb 1999 00:52:36 +0000 |
parents | 418feab1639c |
children | 92817fedff02 |
comparison
equal
deleted
inserted
replaced
24321:0e5b7bb19ddc | 24322:ca77d79a0c21 |
---|---|
826 If the char is EXIT-CHAR (optional third arg, default is SPC) it is swallowed; | 826 If the char is EXIT-CHAR (optional third arg, default is SPC) it is swallowed; |
827 otherwise it is then available as input (as a command if nothing else). | 827 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)) |
835 (name buffer-file-name) | 835 (name buffer-file-name) |
836 insert-end) | 836 insert-end) |