summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorErik Naggum <erik@naggum.no>1996-01-09 00:33:09 +0000
committerErik Naggum <erik@naggum.no>1996-01-09 00:33:09 +0000
commit8e08efb713a1afb74a280aac30a62a1ba0f049d9 (patch)
tree852ff4d12b451afab6d03d9109a7845917f79aad /src
parent6ccfff4d23abcdbf26cec4c96b34fc1881a5199a (diff)
downloademacs-8e08efb713a1afb74a280aac30a62a1ba0f049d9.tar.gz
(Fend_kbd_macro, Fexecute_kbd_macro): Harmonize arguments with
documentation.
Diffstat (limited to 'src')
-rw-r--r--src/macros.c30
1 files changed, 15 insertions, 15 deletions
diff --git a/src/macros.c b/src/macros.c
index bbf5661377c..cd1c79071c0 100644
--- a/src/macros.c
+++ b/src/macros.c
@@ -81,16 +81,16 @@ under that name.\n\
With numeric arg, repeat macro now that many times,\n\
counting the definition just completed as the first repetition.\n\
An argument of zero means repeat until error.")
- (arg)
- Lisp_Object arg;
+ (repeat)
+ Lisp_Object repeat;
{
if (NILP (current_kboard->defining_kbd_macro))
error ("Not defining kbd macro.");
- if (NILP (arg))
- XSETFASTINT (arg, 1);
+ if (NILP (repeat))
+ XSETFASTINT (repeat, 1);
else
- CHECK_NUMBER (arg, 0);
+ CHECK_NUMBER (repeat, 0);
if (!NILP (current_kboard->defining_kbd_macro))
{
@@ -103,13 +103,13 @@ An argument of zero means repeat until error.")
message("Keyboard macro defined");
}
- if (XFASTINT (arg) == 0)
- Fexecute_kbd_macro (current_kboard->Vlast_kbd_macro, arg);
+ if (XFASTINT (repeat) == 0)
+ Fexecute_kbd_macro (current_kboard->Vlast_kbd_macro, repeat);
else
{
- XSETINT (arg, XINT (arg)-1);
- if (XINT (arg) > 0)
- Fexecute_kbd_macro (current_kboard->Vlast_kbd_macro, arg);
+ XSETINT (repeat, XINT (repeat)-1);
+ if (XINT (repeat) > 0)
+ Fexecute_kbd_macro (current_kboard->Vlast_kbd_macro, repeat);
}
return Qnil;
}
@@ -203,8 +203,8 @@ DEFUN ("execute-kbd-macro", Fexecute_kbd_macro, Sexecute_kbd_macro, 1, 2, 0,
"Execute MACRO as string of editor command characters.\n\
If MACRO is a symbol, its function definition is used.\n\
COUNT is a repeat count, or nil for once, or 0 for infinite loop.")
- (macro, prefixarg)
- Lisp_Object macro, prefixarg;
+ (macro, count)
+ Lisp_Object macro, count;
{
Lisp_Object final;
Lisp_Object tem;
@@ -212,9 +212,9 @@ COUNT is a repeat count, or nil for once, or 0 for infinite loop.")
int repeat = 1;
struct gcpro gcpro1;
- if (!NILP (prefixarg))
- prefixarg = Fprefix_numeric_value (prefixarg),
- repeat = XINT (prefixarg);
+ if (!NILP (count))
+ count = Fprefix_numeric_value (count),
+ repeat = XINT (count);
final = indirect_function (macro);
if (!STRINGP (final) && !VECTORP (final))