(executing_macro_index): Change type to EMACS_INT.

(syms_of_macros): DEFVAR_INT it  (needed by kmacro).

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.  */);