# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 919126356 0
# Node ID ca77d79a0c217b001da46cc2afd3cc0b254d3bd2
# Parent  0e5b7bb19ddce8f2437d24638967a52581f8dca9
(momentary-string-display): Bind inhibit-read-only.

diff -r 0e5b7bb19ddc -r ca77d79a0c21 lisp/subr.el
--- a/lisp/subr.el	Tue Feb 16 00:33:44 1999 +0000
+++ b/lisp/subr.el	Tue Feb 16 00:52:36 1999 +0000
@@ -828,7 +828,7 @@
 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))