summaryrefslogtreecommitdiff
path: root/src/macros.c
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1996-01-09 02:34:30 +0000
committerKarl Heuer <kwzh@gnu.org>1996-01-09 02:34:30 +0000
commit52d9c1459d45ca1f37ba1a7c9baf159f34522a49 (patch)
tree283b29bb0476bb04bec23bb81f3a3af5e0aacad7 /src/macros.c
parent54ee42dd61458c3bae404a08d4a4da1b619525fc (diff)
downloademacs-52d9c1459d45ca1f37ba1a7c9baf159f34522a49.tar.gz
(Fexecute_kbd_macro): Local var `pdlcount' renamed from
`count' to remove collision with recently renamed argument.
Diffstat (limited to 'src/macros.c')
-rw-r--r--src/macros.c9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/macros.c b/src/macros.c
index cd1c79071c0..80e3025a9a8 100644
--- a/src/macros.c
+++ b/src/macros.c
@@ -208,13 +208,14 @@ COUNT is a repeat count, or nil for once, or 0 for infinite loop.")
{
Lisp_Object final;
Lisp_Object tem;
- int count = specpdl_ptr - specpdl;
+ int pdlcount = specpdl_ptr - specpdl;
int repeat = 1;
struct gcpro gcpro1;
- if (!NILP (count))
- count = Fprefix_numeric_value (count),
+ if (!NILP (count)) {
+ count = Fprefix_numeric_value (count);
repeat = XINT (count);
+ }
final = indirect_function (macro);
if (!STRINGP (final) && !VECTORP (final))
@@ -239,7 +240,7 @@ COUNT is a repeat count, or nil for once, or 0 for infinite loop.")
&& (STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro)));
UNGCPRO;
- return unbind_to (count, Qnil);
+ return unbind_to (pdlcount, Qnil);
}
init_macros ()