/[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.634 by pj, Sun Oct 28 18:47:24 2001 UTC revision 1.635 by pj, Mon Oct 29 17:51:38 2001 UTC
# Line 437  Lisp_Object Vdeactivate_mark; Line 437  Lisp_Object Vdeactivate_mark;
437  Lisp_Object Vlucid_menu_bar_dirty_flag;  Lisp_Object Vlucid_menu_bar_dirty_flag;
438  Lisp_Object Qrecompute_lucid_menubar, Qactivate_menubar_hook;  Lisp_Object Qrecompute_lucid_menubar, Qactivate_menubar_hook;
439    
440  Lisp_Object Qecho_area_clear_hook;  Lisp_Object Qecho_area_clear_hook, Vecho_area_clear_hook;
441    
442  /* Hooks to run before and after each command.  */  /* Hooks to run before and after each command.  */
443  Lisp_Object Qpre_command_hook, Vpre_command_hook;  Lisp_Object Qpre_command_hook, Vpre_command_hook;
# Line 9489  requeued_events_pending_p () Line 9489  requeued_events_pending_p ()
9489    
9490    
9491  DEFUN ("input-pending-p", Finput_pending_p, Sinput_pending_p, 0, 0, 0,  DEFUN ("input-pending-p", Finput_pending_p, Sinput_pending_p, 0, 0, 0,
9492         doc: /* T if command input is currently available with no waiting.         doc: /* t if command input is currently available with no waiting.
9493  Actually, the value is nil only if we can be sure that no input is available.  */)  Actually, the value is nil only if we can be sure that no input is available.  */)
9494       ()       ()
9495  {  {
# Line 10281  syms_of_keyboard () Line 10281  syms_of_keyboard ()
10281    Qpost_command_idle_hook = intern ("post-command-idle-hook");    Qpost_command_idle_hook = intern ("post-command-idle-hook");
10282    staticpro (&Qpost_command_idle_hook);    staticpro (&Qpost_command_idle_hook);
10283    
10284      Qecho_area_clear_hook = intern ("echo-area-clear-hook");
10285      staticpro (&Qecho_area_clear_hook);
10286    
10287    Qdeferred_action_function = intern ("deferred-action-function");    Qdeferred_action_function = intern ("deferred-action-function");
10288    staticpro (&Qdeferred_action_function);    staticpro (&Qdeferred_action_function);
10289    
# Line 10720  This feature is obsolete; use idle timer Line 10723  This feature is obsolete; use idle timer
10723  This is measured in microseconds.  */);  This is measured in microseconds.  */);
10724    post_command_idle_delay = 100000;    post_command_idle_delay = 100000;
10725    
10726  #if 0    DEFVAR_LISP ("echo-area-clear-hook", &Vecho_area_clear_hook,
   DEFVAR_LISP ("echo-area-clear-hook", ...,  
10727                 doc: /* Normal hook run when clearing the echo area.  */);                 doc: /* Normal hook run when clearing the echo area.  */);
10728  #endif    Vecho_area_clear_hook = Qnil;
   Qecho_area_clear_hook = intern ("echo-area-clear-hook");  
   SET_SYMBOL_VALUE (Qecho_area_clear_hook, Qnil);  
10729    
10730    DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag,    DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag,
10731                 doc: /* t means menu bar, specified Lucid style, needs to be recomputed.  */);                 doc: /* t means menu bar, specified Lucid style, needs to be recomputed.  */);

Legend:
Removed from v.1.634  
changed lines
  Added in v.1.635

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