Mercurial > hg > xemacs-beta

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