From 64799df53a76c22f39c1b1c50b68b31d25bd0b39 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sun, 8 Sep 2002 20:28:46 +0000 Subject: [PATCH] (executing_macro_index): Change type to EMACS_INT. (syms_of_macros): DEFVAR_INT it (needed by kmacro). --- src/macros.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/macros.c b/src/macros.c index e9601b1aa7..456a6e31fa 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. */); -- 2.20.1