From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 4 Dec 2000 13:30:53 +0000 (+0000)
Subject: (Fprimitive_undo): Bind inhibit-read-only to t if
X-Git-Tag: emacs-pretest-21.0.93~249
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c587cd3af12aa1502fcd63662838e0b63449257;p=emacs.git

(Fprimitive_undo): Bind inhibit-read-only to t if
current buffer is read-only, not if it isn't.
---

diff --git a/src/undo.c b/src/undo.c
index 2eedfe31ab3..df1b82ff759 100644
--- a/src/undo.c
+++ b/src/undo.c
@@ -412,7 +412,7 @@ Return what remains of the list.")
   GCPRO2 (next, list);
 
   /* Don't let read-only properties interfere with undo.  */
-  if (NILP (current_buffer->read_only))
+  if (!NILP (current_buffer->read_only))
     specbind (Qinhibit_read_only, Qt);
 
   while (arg > 0)