Mercurial > hg > xemacs-beta

comparison src/eval.c @ 310:851ff35f137f r21-0b53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b53
author cvs
date Mon, 13 Aug 2007 10:43:28 +0200
parents 33bdb3d4b97f
children 3b3709405255
comparison
equal deleted inserted replaced
309:7f3a3eb0558c 310:851ff35f137f
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 { 2560 return run_hook (Vdisabled_command_hook);
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 }
2568 2561
2569 for (;;) 2562 for (;;)
2570 { 2563 {
2571 final = indirect_function (cmd, 1); 2564 final = indirect_function (cmd, 1);
2572 if (CONSP (final) && EQ (Fcar (final), Qautoload)) 2565 if (CONSP (final) && EQ (Fcar (final), Qautoload))