Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/src/eval.c	Mon Aug 13 10:41:59 2007 +0200
+++ b/src/eval.c	Mon Aug 13 10:42:44 2007 +0200
@@ -2557,7 +2557,14 @@
   debug_on_next_call = 0; /* #### from FSFmacs; correct? */
 
   if (SYMBOLP (cmd) && !NILP (Fget (cmd, Qdisabled, Qnil)))
-    return run_hook (Vdisabled_command_hook);
+    {
+      Lisp_Object tem = Fsymbol_value(Vdisabled_command_hook);
+
+      if (!NILP(tem))
+	{
+	  return Frun_hooks (1, &Vdisabled_command_hook);
+	}
+    }
 
   for (;;)
     {