From: Kim F. Storm <storm@cua.dk>
Date: Wed, 2 Feb 2005 15:43:18 +0000 (+0000)
Subject: (Fprimitive_undo): Fix dummy apply undo entry.
X-Git-Tag: ttn-vms-21-2-B4~2468
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed71a5cf0a117f082d557a014bce13e78cc469d5;p=emacs.git

(Fprimitive_undo): Fix dummy apply undo entry.
---

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))
 		{