# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 988642655 0
# Node ID d585b711c8d2f7ef49d0a4bfbf8bbab5d6c85f63
# Parent  0e76050e1b4b70f2edcedd2f0e0a33f6f1e59a1a
(Fprimitive_undo): In a writable buffer, enable undoing
read-only text that is so because of text properties.

diff -r 0e76050e1b4b -r d585b711c8d2 src/undo.c
--- a/src/undo.c	Mon Apr 30 14:38:34 2001 +0000
+++ b/src/undo.c	Mon Apr 30 14:57:35 2001 +0000
@@ -412,8 +412,9 @@
   next = Qnil;
   GCPRO2 (next, list);
 
-  /* Don't let read-only properties interfere with undo.  */
-  if (!NILP (current_buffer->read_only))
+  /* In a writable buffer, enable undoing read-only text that is so
+     because of text properties.  */
+  if (NILP (current_buffer->read_only))
     specbind (Qinhibit_read_only, Qt);
 
   /* Don't let `intangible' properties interfere with undo.  */