(Fcall_interactively): Remove loop around wrong_type_argument.

diff --git a/src/callint.c b/src/callint.c
index 741f61d068bde148bd70863815c029b8b16a93d1..c594f27c8b8875ee47d49dd61cbf8fb132b7a108 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -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))