mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 20:00:46 -08:00
Code Issues Projects Releases Wiki Activity

(Qapply): New lisp var.

Browse source 
(syms_of_undo): Intern and staticpro it.
(Fprimitive_undo): Support formats (apply FUNNAME . ARGS) and
(apply DELTA BEG END FUNNAME . ARGS) instead of (FUNNAME . ARGS).
This commit is contained in:
Kim F. Storm 2005-01-31 22:44:27 +00:00
parent 998858ae20
commit 49be18c97e
1 changed files with 17 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/undo.c
View file

@ -40,6 +40,10 @@ Lisp_Object last_undo_buffer;
Lisp_Object Qinhibit_read_only;
/* Marker for function call undo list elements. */
Lisp_Object Qapply;
/* The first time a command records something for undo.
it also allocates the undo-boundary object
which will be added to the list at the end of the command.
@ -543,10 +547,18 @@ Return what remains of the list. */)
Fgoto_char (car);
Fdelete_region (car, cdr);
}
else if (SYMBOLP (car))
else if (EQ (car, Qapply))
{
Lisp_Object oldlist = current_buffer->undo_list;
/* Element (FUNNAME . ARGS) means call FUNNAME to undo. */
/* Element (apply FUNNAME . ARGS) means call FUNNAME to undo. */
car = Fcar (cdr);
if (INTEGERP (car))
{
/* Long format: (apply DELTA START END FUNNAME . ARGS). */
cdr = Fcdr (Fcdr (Fcdr (cdr)));
car = Fcar (cdr);
}
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
@ -608,6 +620,9 @@ syms_of_undo ()
Qinhibit_read_only = intern ("inhibit-read-only");
staticpro (&Qinhibit_read_only);
Qapply = intern ("apply");
staticpro (&Qapply);
pending_boundary = Qnil;
staticpro (&pending_boundary);