diff options
| author | Kim F. Storm <storm@cua.dk> | 2005-02-02 15:43:18 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2005-02-02 15:43:18 +0000 |
| commit | ed71a5cf0a117f082d557a014bce13e78cc469d5 (patch) | |
| tree | c85277da528e4b334d1c8bc864846503523168b7 /src/undo.c | |
| parent | b044278deb1d9234fab91f5c1744d8e79774c624 (diff) | |
| download | emacs-ed71a5cf0a117f082d557a014bce13e78cc469d5.tar.gz | |
(Fprimitive_undo): Fix dummy apply undo entry.
Diffstat (limited to 'src/undo.c')
| -rw-r--r-- | src/undo.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/undo.c b/src/undo.c index ea4f35397a9..eaf312be676 100644 --- a/src/undo.c +++ b/src/undo.c @@ -560,12 +560,13 @@ Return what remains of the list. */) } cdr = Fcdr (cdr); apply1 (car, cdr); + /* Make sure this produces at least one undo entry, so the test in `undo' for continuing an undo series will work right. */ if (EQ (oldlist, current_buffer->undo_list)) current_buffer->undo_list - = Fcons (list2 (Qcdr, Qnil), current_buffer->undo_list); + = Fcons (list3 (Qapply, Qcdr, Qnil), current_buffer->undo_list); } else if (STRINGP (car) && INTEGERP (cdr)) { |