int repeat;
if (NILP (con->defining_kbd_macro))
- error ("Not defining kbd macro.");
+ error ("Not defining kbd macro");
if (NILP (arg))
repeat = -1;
void
pop_kbd_macro_event (Lisp_Object event)
{
- if (NILP (Vexecuting_macro)) abort ();
+ if (NILP (Vexecuting_macro)) ABORT ();
if (STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro))
{
If MACRO is a symbol, its function definition is used.
COUNT is a repeat count, or nil for once, or 0 for infinite loop.
*/
- (macro, prefixarg))
+ (macro, count))
{
/* This function can GC */
Lisp_Object final;
struct gcpro gcpro1;
struct console *con = XCONSOLE (Vselected_console);
- if (!NILP (prefixarg))
+ if (!NILP (count))
{
- prefixarg = Fprefix_numeric_value (prefixarg);
- repeat = XINT (prefixarg);
+ count = Fprefix_numeric_value (count);
+ repeat = XINT (count);
}
final = indirect_function (macro, 1);
if (!STRINGP (final) && !VECTORP (final))
- error ("Keyboard macros must be strings or vectors.");
+ error ("Keyboard macros must be strings or vectors");
tem = Fcons (Vexecuting_macro, make_int (executing_macro_index));
record_unwind_protect (pop_kbd_macro, tem);