/[emacs]/emacs/src/keyboard.c
ViewVC logotype

Diff of /emacs/src/keyboard.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.753.2.9 by miles, Tue Aug 3 00:03:00 2004 UTC revision 1.753.2.10 by miles, Tue Aug 10 07:46:40 2004 UTC
# Line 131  KBOARD the_only_kboard; Line 131  KBOARD the_only_kboard;
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 */
# Line 9663  a special event, so ignore the prefix ar Line 9663  a special event, so ignore the prefix ar
9663        tem = Fget (cmd, Qdisabled);        tem = Fget (cmd, Qdisabled);
9664        if (!NILP (tem) && !NILP (Vrun_hooks))        if (!NILP (tem) && !NILP (Vrun_hooks))
9665          {          {
9666            tem = Fsymbol_value (Qdisabled_command_hook);            tem = Fsymbol_value (Qdisabled_command_function);
9667            if (!NILP (tem))            if (!NILP (tem))
9668              return call1 (Vrun_hooks, Qdisabled_command_hook);              return call1 (Vrun_hooks, Qdisabled_command_function);
9669          }          }
9670      }      }
9671    
# Line 10780  syms_of_keyboard () Line 10780  syms_of_keyboard ()
10780    Qtimer_event_handler = intern ("timer-event-handler");    Qtimer_event_handler = intern ("timer-event-handler");
10781    staticpro (&Qtimer_event_handler);    staticpro (&Qtimer_event_handler);
10782    
10783    Qdisabled_command_hook = intern ("disabled-command-hook");    Qdisabled_command_function = intern ("disabled-command-function");
10784    staticpro (&Qdisabled_command_hook);    staticpro (&Qdisabled_command_function);
10785    
10786    Qself_insert_command = intern ("self-insert-command");    Qself_insert_command = intern ("self-insert-command");
10787    staticpro (&Qself_insert_command);    staticpro (&Qself_insert_command);
# Line 11278  The elements of the list are event types Line 11278  The elements of the list are event types
11278                   doc: /* Per-terminal keymap that overrides all other local keymaps.                   doc: /* Per-terminal keymap that overrides all other local keymaps.
11279  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
11280  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.
11281    It also overrides `overriding-local-map'.
11282  This variable is intended to let commands such as `universal-argument'  This variable is intended to let commands such as `universal-argument'
11283  set up a different keymap for reading the next command.  */);  set up a different keymap for reading the next command.  */);
11284    

Legend:
Removed from v.1.753.2.9  
changed lines
  Added in v.1.753.2.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26