From c306e0e09febea487ba697649703ab0c66bdadfc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 16 Feb 1999 00:52:36 +0000 Subject: [PATCH] (momentary-string-display): Bind inhibit-read-only. --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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). 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) + (let ((inhibit-read-only t) ;; Don't modify the undo list at all. (buffer-undo-list t) (modified (buffer-modified-p)) -- 2.39.2