comparison src/callint.c @ 84523:803a3c8107e8

Johan Bockg? <bojohan at gnu.org> (Fcall_interactively): Remove unused var `fun'.
author Glenn Morris <rgm@gnu.org>
date Thu, 13 Sep 2007 05:50:11 +0000
parents b51e2df52bfb
children cdd30283527d bdb3fe0ba9fa
comparison
equal deleted inserted replaced
84522:1c7c7eeafbb7 84523:803a3c8107e8
261 `this-command-keys-vector' is used. */) 261 `this-command-keys-vector' is used. */)
262 (function, record_flag, keys) 262 (function, record_flag, keys)
263 Lisp_Object function, record_flag, keys; 263 Lisp_Object function, record_flag, keys;
264 { 264 {
265 Lisp_Object *args, *visargs; 265 Lisp_Object *args, *visargs;
266 Lisp_Object fun;
267 Lisp_Object specs; 266 Lisp_Object specs;
268 Lisp_Object filter_specs; 267 Lisp_Object filter_specs;
269 Lisp_Object teml; 268 Lisp_Object teml;
270 Lisp_Object up_event; 269 Lisp_Object up_event;
271 Lisp_Object enable; 270 Lisp_Object enable;
314 313
315 if (SYMBOLP (function)) 314 if (SYMBOLP (function))
316 enable = Fget (function, Qenable_recursive_minibuffers); 315 enable = Fget (function, Qenable_recursive_minibuffers);
317 else 316 else
318 enable = Qnil; 317 enable = Qnil;
319
320 fun = indirect_function (function);
321 318
322 specs = Qnil; 319 specs = Qnil;
323 string = 0; 320 string = 0;
324 /* The idea of FILTER_SPECS is to provide away to 321 /* The idea of FILTER_SPECS is to provide away to
325 specify how to represent the arguments in command history. 322 specify how to represent the arguments in command history.