From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 Jul 1993 03:09:56 +0000 (+0000)
Subject: (Qdisabled_command_hook): New variable.
X-Git-Tag: emacs-19.34~11757
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e894dab2b26651c406574692a2f3903d95a6e05;p=emacs.git

(Qdisabled_command_hook): New variable.
(Vdisabled_command_hook): Deleted.
(syms_of_keyboard): Corresponding changes.
(Fcommand_execute): Use Qdisabled_command_hook.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 3c52b74d389..21bdb6c16bd 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -84,7 +84,7 @@ struct backtrace
 
 /* Non-nil disable property on a command means
    do not execute it; call disabled-command-hook's value instead.  */
-Lisp_Object Qdisabled, Vdisabled_command_hook;
+Lisp_Object Qdisabled, Qdisabled_command_hook;
 
 #define NUM_RECENT_KEYS (100)
 int recent_keys_index;	/* Index for storing next element into recent_keys */
@@ -4284,7 +4284,7 @@ Otherwise, that is done only if an arg is read using the minibuffer.")
     {
       tem = Fget (cmd, Qdisabled);
       if (!NILP (tem))
-	return call1 (Vrun_hooks, Vdisabled_command_hook);
+	return call1 (Vrun_hooks, Qdisabled_command_hook);
     }
 
   while (1)
@@ -4918,6 +4918,9 @@ struct event_head head_table[] = {
 
 syms_of_keyboard ()
 {
+  Qdisabled_command_hook = intern ("disabled-command-hook");
+  staticpro (&Qdisabled_command_hook);
+
   Qself_insert_command = intern ("self-insert-command");
   staticpro (&Qself_insert_command);
 
@@ -5042,10 +5045,6 @@ syms_of_keyboard ()
   defsubr (&Scurrent_input_mode);
   defsubr (&Sexecute_extended_command);
 
-  DEFVAR_LISP ("disabled-command-hook", &Vdisabled_command_hook,
-    "Value is called instead of any command that is disabled\n\
-\(has a non-nil `disabled' property).");
-
   DEFVAR_LISP ("last-command-char", &last_command_char,
     "Last input event that was part of a command.");