Mercurial > hg > xemacs-beta

comparison src/macros.c @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 8eaf7971accc
children 7df0dd720c89
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
230 /* Restore Vexecuting_macro and executing_macro_index - called when 230 /* Restore Vexecuting_macro and executing_macro_index - called when
231 the unwind-protect in Fexecute_kbd_macro gets invoked. */ 231 the unwind-protect in Fexecute_kbd_macro gets invoked. */
232 static Lisp_Object 232 static Lisp_Object
233 pop_kbd_macro (Lisp_Object info) 233 pop_kbd_macro (Lisp_Object info)
234 { 234 {
235 Lisp_Object tem;
236 Vexecuting_macro = Fcar (info); 235 Vexecuting_macro = Fcar (info);
237 tem = Fcdr (info); 236 executing_macro_index = XINT (Fcdr (info));
238 executing_macro_index = XINT (tem);
239 return Qnil; 237 return Qnil;
240 } 238 }
241 239
242 DEFUN ("execute-kbd-macro", Fexecute_kbd_macro, 1, 2, 0, /* 240 DEFUN ("execute-kbd-macro", Fexecute_kbd_macro, 1, 2, 0, /*
243 Execute MACRO as string of editor command characters. 241 Execute MACRO as string of editor command characters.