Mercurial > emacs
diff src/undo.c @ 59864:385699a0ff01
(Fprimitive_undo): Fix dummy apply undo entry.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Wed, 02 Feb 2005 15:43:18 +0000 |
parents | ff1b86883ff8 |
children | cf4b913c7074 72cf6261961e |
line wrap: on
line diff
--- a/src/undo.c Wed Feb 02 15:43:05 2005 +0000 +++ b/src/undo.c Wed Feb 02 15:43:18 2005 +0000 @@ -560,12 +560,13 @@ } 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)) {