diff options
| author | Gerd Moellmann | 2000-12-04 13:30:53 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-12-04 13:30:53 +0000 |
| commit | 4c587cd3af12aa1502fcd63662838e0b63449257 (patch) | |
| tree | 841aed60c506f10de6f5fb71a26fb2ba99ddedbd /src | |
| parent | ed8e506f242f571faea4ad7767321aac6b2fb8de (diff) | |
| download | emacs-4c587cd3af12aa1502fcd63662838e0b63449257.tar.gz emacs-4c587cd3af12aa1502fcd63662838e0b63449257.zip | |
(Fprimitive_undo): Bind inhibit-read-only to t if
current buffer is read-only, not if it isn't.
Diffstat (limited to 'src')
| -rw-r--r-- | src/undo.c | 2 |
1 files changed, 1 insertions, 1 deletions
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.") | |||
| 412 | GCPRO2 (next, list); | 412 | GCPRO2 (next, list); |
| 413 | 413 | ||
| 414 | /* Don't let read-only properties interfere with undo. */ | 414 | /* Don't let read-only properties interfere with undo. */ |
| 415 | if (NILP (current_buffer->read_only)) | 415 | if (!NILP (current_buffer->read_only)) |
| 416 | specbind (Qinhibit_read_only, Qt); | 416 | specbind (Qinhibit_read_only, Qt); |
| 417 | 417 | ||
| 418 | while (arg > 0) | 418 | while (arg > 0) |