From 6887bce515f7406765dda3bd8fc65d65a9cf207b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 29 Jan 2005 17:16:31 +0000 Subject: [PATCH] (Fprimitive_undo): Handle (FUNNAME . ARGS) by calling FUNNAME. --- src/undo.c | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/src/undo.c b/src/undo.c index df4b8d08cd6..ac7b4d8935e 100644 --- a/src/undo.c +++ b/src/undo.c @@ -519,7 +519,7 @@ Return what remains of the list. */) } 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 @@ Return what remains of the list. */) 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 @@ Return what remains of the list. */) UNGCPRO; return unbind_to (count, list); } - + void syms_of_undo () { -- 2.39.5