Mercurial > emacs

changeset 59864:385699a0ff01

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fprimitive_undo): Fix dummy apply undo entry.
author Kim F. Storm <storm@cua.dk>
date Wed, 02 Feb 2005 15:43:18 +0000
parents 3ffcc76427cd
children 87daa7a3dc1f
files src/undo.c
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
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))
 		{