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; |
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 |
{ |
{ |
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 |
|
|
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. */); |