comparison src/macros.c @ 9122:9ba3f17d6631

(Fexecute_kbd_macro): Use type test macros.

9121:faecbbbcceb4

  if (!NILP (prefixarg))
    prefixarg = Fprefix_numeric_value (prefixarg),
    repeat = XINT (prefixarg);

  final = indirect_function (macro);
  if (XTYPE (final) != Lisp_String
      && XTYPE (final) != Lisp_Vector)
    error ("Keyboard macros must be strings or vectors.");

  XFASTINT (tem) = executing_macro_index;
  tem = Fcons (Vexecuting_macro, tem);
  record_unwind_protect (pop_kbd_macro, tem);

      command_loop_1 ();

      QUIT;
    }
  while (--repeat && (XTYPE (Vexecuting_macro) == Lisp_String
		      || XTYPE (Vexecuting_macro) == Lisp_Vector));

  UNGCPRO;
  return unbind_to (count, Qnil);
}


9122:9ba3f17d6631

  if (!NILP (prefixarg))
    prefixarg = Fprefix_numeric_value (prefixarg),
    repeat = XINT (prefixarg);

  final = indirect_function (macro);
  if (!STRINGP (final) && !VECTORP (final))
    error ("Keyboard macros must be strings or vectors.");

  XFASTINT (tem) = executing_macro_index;
  tem = Fcons (Vexecuting_macro, tem);
  record_unwind_protect (pop_kbd_macro, tem);

      command_loop_1 ();

      QUIT;
    }
  while (--repeat
	 && (STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro)));

  UNGCPRO;
  return unbind_to (count, Qnil);
}