diff options
| -rw-r--r-- | src/macros.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/macros.c b/src/macros.c index e9601b1aa7f..456a6e31fa3 100644 --- a/src/macros.c +++ b/src/macros.c @@ -35,7 +35,7 @@ Lisp_Object Vexecuting_macro; /* Index of next character to fetch from that macro. */ -int executing_macro_index; +EMACS_INT executing_macro_index; /* Number of successful iterations so far for innermost keyboard macro. @@ -380,6 +380,9 @@ syms_of_macros () DEFVAR_LISP ("executing-macro", &Vexecuting_macro, doc: /* Currently executing keyboard macro (string or vector); nil if none executing. */); + DEFVAR_INT ("executing-macro-index", &executing_macro_index, + doc: /* Index in currently executing keyboard macro; undefined if none executing. */); + DEFVAR_LISP_NOPRO ("executing-kbd-macro", &Vexecuting_macro, doc: /* Currently executing keyboard macro (string or vector); nil if none executing. */); |