Mercurial > emacs
changeset 4094:1dae74fd93d2
(Qdisabled_command_hook): New variable.
(Vdisabled_command_hook): Deleted.
(syms_of_keyboard): Corresponding changes.
(Fcommand_execute): Use Qdisabled_command_hook.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 15 Jul 1993 03:09:56 +0000 |
| parents | d24725412d47 |
| children | f60102c4b948 |
| files | src/keyboard.c |
| diffstat | 1 files changed, 5 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Thu Jul 15 03:08:17 1993 +0000 +++ b/src/keyboard.c Thu Jul 15 03:09:56 1993 +0000 @@ -84,7 +84,7 @@ /* 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 @@ { 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 @@ 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 @@ 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.");