Mercurial > hg > xemacs-beta

comparison src/eval.c @ 308:33bdb3d4b97f r21-0b52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b52
author cvs
date Mon, 13 Aug 2007 10:42:44 +0200
parents 70ad99077275
children 851ff35f137f
comparison
equal deleted inserted replaced
307:42d630fd9bd8 308:33bdb3d4b97f
2555 con->prefix_arg = Qnil; 2555 con->prefix_arg = Qnil;
2556 Vcurrent_prefix_arg = prefixarg; 2556 Vcurrent_prefix_arg = prefixarg;
2557 debug_on_next_call = 0; /* #### from FSFmacs; correct? */ 2557 debug_on_next_call = 0; /* #### from FSFmacs; correct? */
2558 2558
2559 if (SYMBOLP (cmd) && !NILP (Fget (cmd, Qdisabled, Qnil))) 2559 if (SYMBOLP (cmd) && !NILP (Fget (cmd, Qdisabled, Qnil)))
2560 return run_hook (Vdisabled_command_hook); 2560 {
2561 Lisp_Object tem = Fsymbol_value(Vdisabled_command_hook);
2562
2563 if (!NILP(tem))
2564 {
2565 return Frun_hooks (1, &Vdisabled_command_hook);
2566 }
2567 }
2561 2568
2562 for (;;) 2569 for (;;)
2563 { 2570 {
2564 final = indirect_function (cmd, 1); 2571 final = indirect_function (cmd, 1);
2565 if (CONSP (final) && EQ (Fcar (final), Qautoload)) 2572 if (CONSP (final) && EQ (Fcar (final), Qautoload))