Mercurial > emacs

comparison src/macros.c @ 47307:06c376f5df86

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(executing_macro_index): Change type to EMACS_INT. (syms_of_macros): DEFVAR_INT it (needed by kmacro).
author Kim F. Storm <storm@cua.dk>
date Sun, 08 Sep 2002 20:28:46 +0000
parents d9b11a5b4ebf
children 7e9809c820b0
comparison
equal deleted inserted replaced
47306:859b95c98a17 47307:06c376f5df86
33 33
34 Lisp_Object Vexecuting_macro; 34 Lisp_Object Vexecuting_macro;
35 35
36 /* Index of next character to fetch from that macro. */ 36 /* Index of next character to fetch from that macro. */
37 37
38 int executing_macro_index; 38 EMACS_INT executing_macro_index;
39 39
40 /* Number of successful iterations so far 40 /* Number of successful iterations so far
41 for innermost keyboard macro. 41 for innermost keyboard macro.
42 This is not bound at each level, 42 This is not bound at each level,
43 so after an error, it describes the innermost interrupted macro. */ 43 so after an error, it describes the innermost interrupted macro. */
378 doc: /* Non-nil while a keyboard macro is being defined. Don't set this! */); 378 doc: /* Non-nil while a keyboard macro is being defined. Don't set this! */);
379 379
380 DEFVAR_LISP ("executing-macro", &Vexecuting_macro, 380 DEFVAR_LISP ("executing-macro", &Vexecuting_macro,
381 doc: /* Currently executing keyboard macro (string or vector); nil if none executing. */); 381 doc: /* Currently executing keyboard macro (string or vector); nil if none executing. */);
382 382
383 DEFVAR_INT ("executing-macro-index", &executing_macro_index,
384 doc: /* Index in currently executing keyboard macro; undefined if none executing. */);
385
383 DEFVAR_LISP_NOPRO ("executing-kbd-macro", &Vexecuting_macro, 386 DEFVAR_LISP_NOPRO ("executing-kbd-macro", &Vexecuting_macro,
384 doc: /* Currently executing keyboard macro (string or vector); nil if none executing. */); 387 doc: /* Currently executing keyboard macro (string or vector); nil if none executing. */);
385 388
386 DEFVAR_KBOARD ("last-kbd-macro", Vlast_kbd_macro, 389 DEFVAR_KBOARD ("last-kbd-macro", Vlast_kbd_macro,
387 doc: /* Last kbd macro defined, as a string or vector; nil if none defined. */); 390 doc: /* Last kbd macro defined, as a string or vector; nil if none defined. */);