From ed71a5cf0a117f082d557a014bce13e78cc469d5 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Wed, 2 Feb 2005 15:43:18 +0000 Subject: [PATCH] (Fprimitive_undo): Fix dummy apply undo entry. --- src/undo.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/undo.c b/src/undo.c index ea4f35397a..eaf312be67 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)) { -- 2.20.1