131 |
#endif |
#endif |
132 |
|
|
133 |
/* Non-nil disable property on a command means |
/* Non-nil disable property on a command means |
134 |
do not execute it; call disabled-command-hook's value instead. */ |
do not execute it; call disabled-command-function's value instead. */ |
135 |
Lisp_Object Qdisabled, Qdisabled_command_hook; |
Lisp_Object Qdisabled, Qdisabled_command_function; |
136 |
|
|
137 |
#define NUM_RECENT_KEYS (100) |
#define NUM_RECENT_KEYS (100) |
138 |
int recent_keys_index; /* Index for storing next element into recent_keys */ |
int recent_keys_index; /* Index for storing next element into recent_keys */ |
9665 |
tem = Fget (cmd, Qdisabled); |
tem = Fget (cmd, Qdisabled); |
9666 |
if (!NILP (tem) && !NILP (Vrun_hooks)) |
if (!NILP (tem) && !NILP (Vrun_hooks)) |
9667 |
{ |
{ |
9668 |
tem = Fsymbol_value (Qdisabled_command_hook); |
tem = Fsymbol_value (Qdisabled_command_function); |
9669 |
if (!NILP (tem)) |
if (!NILP (tem)) |
9670 |
return call1 (Vrun_hooks, Qdisabled_command_hook); |
return call1 (Vrun_hooks, Qdisabled_command_function); |
9671 |
} |
} |
9672 |
} |
} |
9673 |
|
|
10782 |
Qtimer_event_handler = intern ("timer-event-handler"); |
Qtimer_event_handler = intern ("timer-event-handler"); |
10783 |
staticpro (&Qtimer_event_handler); |
staticpro (&Qtimer_event_handler); |
10784 |
|
|
10785 |
Qdisabled_command_hook = intern ("disabled-command-hook"); |
Qdisabled_command_function = intern ("disabled-command-function"); |
10786 |
staticpro (&Qdisabled_command_hook); |
staticpro (&Qdisabled_command_function); |
10787 |
|
|
10788 |
Qself_insert_command = intern ("self-insert-command"); |
Qself_insert_command = intern ("self-insert-command"); |
10789 |
staticpro (&Qself_insert_command); |
staticpro (&Qself_insert_command); |
11280 |
doc: /* Per-terminal keymap that overrides all other local keymaps. |
doc: /* Per-terminal keymap that overrides all other local keymaps. |
11281 |
If this variable is non-nil, it is used as a keymap instead of the |
If this variable is non-nil, it is used as a keymap instead of the |
11282 |
buffer's local map, and the minor mode keymaps and text property keymaps. |
buffer's local map, and the minor mode keymaps and text property keymaps. |
11283 |
|
It also overrides `overriding-local-map'. |
11284 |
This variable is intended to let commands such as `universal-argument' |
This variable is intended to let commands such as `universal-argument' |
11285 |
set up a different keymap for reading the next command. */); |
set up a different keymap for reading the next command. */); |
11286 |
|
|