From 2e894dab2b26651c406574692a2f3903d95a6e05 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 15 Jul 1993 03:09:56 +0000 Subject: [PATCH] (Qdisabled_command_hook): New variable. (Vdisabled_command_hook): Deleted. (syms_of_keyboard): Corresponding changes. (Fcommand_execute): Use Qdisabled_command_hook. --- src/keyboard.c | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) 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."); -- 2.39.5