(Fprimitive_undo): In a writable buffer, enable undoing

read-only text that is so because of text properties.

diff --git a/src/undo.c b/src/undo.c
index d2a5590a1934ddf4990cab868c36faa2d1560284..83c2327a8db56b84242a8a8645f615dae3f8142b 100644 (file)
--- a/src/undo.c
+++ b/src/undo.c
@@ -412,8 +412,9 @@ Return what remains of the list.")
   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.  */