diff options
| author | Gerd Moellmann | 2001-04-30 14:57:35 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-04-30 14:57:35 +0000 |
| commit | 38d56be353507d0b9aebbe63d5fb7f9a17b4b593 (patch) | |
| tree | 9e6492b08c1128dee33318ec224f76fb8c1d4d8c /src | |
| parent | c95fc5f1b93d02b595eb7f3add9dffd692dcbc83 (diff) | |
| download | emacs-38d56be353507d0b9aebbe63d5fb7f9a17b4b593.tar.gz emacs-38d56be353507d0b9aebbe63d5fb7f9a17b4b593.zip | |
(Fprimitive_undo): In a writable buffer, enable undoing
read-only text that is so because of text properties.
Diffstat (limited to 'src')
| -rw-r--r-- | src/undo.c | 5 |
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.") | |||
| 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. */ |