Mercurial > emacs
comparison src/keyboard.c @ 40733:2b78c1af4afa
(echo-area-clear-hook): Undo Oct 29 change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 05 Nov 2001 03:40:14 +0000 |
parents | cdfd4d09b79a |
children | d6395595f8ac |
comparison
equal
deleted
inserted
replaced
40732:74a8e2849d25 | 40733:2b78c1af4afa |
---|---|
435 /* Menu bar specified in Lucid Emacs fashion. */ | 435 /* Menu bar specified in Lucid Emacs fashion. */ |
436 | 436 |
437 Lisp_Object Vlucid_menu_bar_dirty_flag; | 437 Lisp_Object Vlucid_menu_bar_dirty_flag; |
438 Lisp_Object Qrecompute_lucid_menubar, Qactivate_menubar_hook; | 438 Lisp_Object Qrecompute_lucid_menubar, Qactivate_menubar_hook; |
439 | 439 |
440 Lisp_Object Qecho_area_clear_hook, Vecho_area_clear_hook; | 440 Lisp_Object Qecho_area_clear_hook; |
441 | 441 |
442 /* Hooks to run before and after each command. */ | 442 /* Hooks to run before and after each command. */ |
443 Lisp_Object Qpre_command_hook, Vpre_command_hook; | 443 Lisp_Object Qpre_command_hook, Vpre_command_hook; |
444 Lisp_Object Qpost_command_hook, Vpost_command_hook; | 444 Lisp_Object Qpost_command_hook, Vpost_command_hook; |
445 Lisp_Object Qcommand_hook_internal, Vcommand_hook_internal; | 445 Lisp_Object Qcommand_hook_internal, Vcommand_hook_internal; |
10280 staticpro (&Qpost_command_hook); | 10280 staticpro (&Qpost_command_hook); |
10281 | 10281 |
10282 Qpost_command_idle_hook = intern ("post-command-idle-hook"); | 10282 Qpost_command_idle_hook = intern ("post-command-idle-hook"); |
10283 staticpro (&Qpost_command_idle_hook); | 10283 staticpro (&Qpost_command_idle_hook); |
10284 | 10284 |
10285 Qecho_area_clear_hook = intern ("echo-area-clear-hook"); | |
10286 staticpro (&Qecho_area_clear_hook); | |
10287 | |
10288 Qdeferred_action_function = intern ("deferred-action-function"); | 10285 Qdeferred_action_function = intern ("deferred-action-function"); |
10289 staticpro (&Qdeferred_action_function); | 10286 staticpro (&Qdeferred_action_function); |
10290 | 10287 |
10291 Qcommand_hook_internal = intern ("command-hook-internal"); | 10288 Qcommand_hook_internal = intern ("command-hook-internal"); |
10292 staticpro (&Qcommand_hook_internal); | 10289 staticpro (&Qcommand_hook_internal); |
10722 DEFVAR_INT ("post-command-idle-delay", &post_command_idle_delay, | 10719 DEFVAR_INT ("post-command-idle-delay", &post_command_idle_delay, |
10723 doc: /* Delay time before running `post-command-idle-hook'. | 10720 doc: /* Delay time before running `post-command-idle-hook'. |
10724 This is measured in microseconds. */); | 10721 This is measured in microseconds. */); |
10725 post_command_idle_delay = 100000; | 10722 post_command_idle_delay = 100000; |
10726 | 10723 |
10727 DEFVAR_LISP ("echo-area-clear-hook", &Vecho_area_clear_hook, | 10724 #if 0 |
10725 DEFVAR_LISP ("echo-area-clear-hook", ..., | |
10728 doc: /* Normal hook run when clearing the echo area. */); | 10726 doc: /* Normal hook run when clearing the echo area. */); |
10729 Vecho_area_clear_hook = Qnil; | 10727 #endif |
10728 Qecho_area_clear_hook = intern ("echo-area-clear-hook"); | |
10729 SET_SYMBOL_VALUE (Qecho_area_clear_hook, Qnil); | |
10730 | 10730 |
10731 DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag, | 10731 DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag, |
10732 doc: /* Non-nil means menu bar, specified Lucid style, needs to be recomputed. */); | 10732 doc: /* Non-nil means menu bar, specified Lucid style, needs to be recomputed. */); |
10733 Vlucid_menu_bar_dirty_flag = Qnil; | 10733 Vlucid_menu_bar_dirty_flag = Qnil; |
10734 | 10734 |