# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1107018991 0
# Node ID 06bae5eee9dc2a0948bc071e27f96b8ac2bb63cb
# Parent  eb109ea1450a7095991c1ac766f9a1a2dd7dc3b6
(Fprimitive_undo): Handle (FUNNAME . ARGS) by calling FUNNAME.

diff -r eb109ea1450a -r 06bae5eee9dc src/undo.c
--- a/src/undo.c	Sat Jan 29 16:58:34 2005 +0000
+++ b/src/undo.c	Sat Jan 29 17:16:31 2005 +0000
@@ -519,7 +519,7 @@
 		}
 	      else if (EQ (car, Qnil))
 		{
-		  /* Element (nil prop val beg . end) is property change.  */
+		  /* Element (nil PROP VAL BEG . END) is property change.  */
 		  Lisp_Object beg, end, prop, val;
 
 		  prop = Fcar (cdr);
@@ -543,6 +543,18 @@
 		  Fgoto_char (car);
 		  Fdelete_region (car, cdr);
 		}
+	      else if (SYMBOLP (car))
+		{
+		  Lisp_Object oldlist = current_buffer->undo_list;
+		  /* Element (FUNNAME . ARGS) means call FUNNAME to undo.  */
+		  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);
+		}
 	      else if (STRINGP (car) && INTEGERP (cdr))
 		{
 		  /* Element (STRING . POS) means STRING was deleted.  */
@@ -589,7 +601,7 @@
   UNGCPRO;
   return unbind_to (count, list);
 }
-
+
 void
 syms_of_undo ()
 {