comparison src/callint.c @ 648:70b112526394

*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Mon, 18 May 1992 08:14:41 +0000
parents 7286b5bbeee4
children a8d94735277e
comparison
equal deleted inserted replaced
647:529171c8b71c 648:70b112526394
177 /* Save this now, since use ofminibuffer will clobber it. */ 177 /* Save this now, since use ofminibuffer will clobber it. */
178 prefix_arg = Vcurrent_prefix_arg; 178 prefix_arg = Vcurrent_prefix_arg;
179 179
180 retry: 180 retry:
181 181
182 for (fun = function; 182 fun = indirect_function (function);
183 XTYPE (fun) == Lisp_Symbol && !EQ (fun, Qunbound);
184 fun = XSYMBOL (fun)->function)
185 {
186 QUIT;
187 }
188 183
189 specs = Qnil; 184 specs = Qnil;
190 string = 0; 185 string = 0;
191 186
192 /* Decode the kind of function. Either handle it and return, 187 /* Decode the kind of function. Either handle it and return,