1 files changed, 3 insertions, 2 deletions
diff --git a/src/undo.c b/src/undo.c
index d2a5590a193..83c2327a8db 100644
--- 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.  */
+  /* In a writable buffer, enable undoing read-only text that is so
-  if (!NILP (current_buffer->read_only))
+     because of text properties.  */
+  if (NILP (current_buffer->read_only))
    specbind (Qinhibit_read_only, Qt);
  /* Don't let `intangible' properties interfere with undo.  */

diff --git a/src/undo.c b/src/undo.c index d2a5590a193..83c2327a8db 100644 --- a/src/undo.c +++ b/src/undo.c
@@ -412,8 +412,9 @@ Return what remains of the list.")
412	next = Qnil;	412	next = Qnil;
413	GCPRO2 (next, list);	413	GCPRO2 (next, list);
414		414
415	/* Don't let read-only properties interfere with undo. */	415	/* In a writable buffer, enable undoing read-only text that is so
416	if (!NILP (current_buffer->read_only))	416	because of text properties. */
		417	if (NILP (current_buffer->read_only))
417	specbind (Qinhibit_read_only, Qt);	418	specbind (Qinhibit_read_only, Qt);
418		419
419	/* Don't let `intangible' properties interfere with undo. */	420	/* Don't let `intangible' properties interfere with undo. */