Commit b08b1fc9 authored by Kim F. Storm's avatar Kim F. Storm

(Fcall_interactively): Remove loop around wrong_type_argument.

parent c616acb8
......@@ -314,8 +314,6 @@ If KEYS is omitted or nil, the return value of `this-command-keys' is used. */)
/* Save this now, since use of minibuffer will clobber it. */
prefix_arg = Vcurrent_prefix_arg;
retry:
if (SYMBOLP (function))
enable = Fget (function, Qenable_recursive_minibuffers);
else
......@@ -334,8 +332,7 @@ If KEYS is omitted or nil, the return value of `this-command-keys' is used. */)
up_event = Qnil;
/* Decode the kind of function. Either handle it and return,
or go to `lose' if not interactive, or go to `retry'
to specify a different function, or set either STRING or SPECS. */
or go to `lose' if not interactive, or set either STRING or SPECS. */
if (SUBRP (fun))
{
......@@ -343,8 +340,7 @@ If KEYS is omitted or nil, the return value of `this-command-keys' is used. */)
if (!string)
{
lose:
function = wrong_type_argument (Qcommandp, function);
goto retry;
wrong_type_argument (Qcommandp, function);
}
}
else if (COMPILEDP (fun))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment