diff options
| author | Kim F. Storm <storm@cua.dk> | 2006-07-12 13:14:38 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2006-07-12 13:14:38 +0000 |
| commit | b08b1fc936688f92c4d9edc487c3fd18ca6460a8 (patch) | |
| tree | 603efdef34cb727938b19a462e011bcc9eecd15a /src/callint.c | |
| parent | c616acb810400c81dc423735b41506670bc80839 (diff) | |
| download | emacs-b08b1fc936688f92c4d9edc487c3fd18ca6460a8.tar.gz | |
(Fcall_interactively): Remove loop around wrong_type_argument.
Diffstat (limited to 'src/callint.c')
| -rw-r--r-- | src/callint.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/callint.c b/src/callint.c index 741f61d068b..c594f27c8b8 100644 --- 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)) |