diff options
| author | Richard M. Stallman <[email protected]> | 2005-07-23 19:09:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2005-07-23 19:09:50 +0000 |
| commit | c8e16a028e3c3cf1902a1cfe18fc9d5d4a65086b (patch) | |
| tree | 81b44e3c3ef2a82774a4cd55e72740965e51f004 /src/keyboard.c | |
| parent | 8f6bda75fb08ea6c84f12f3a16389f29ee81a7b5 (diff) | |
(read_char): Test gc_cons_threshold.
(syms_of_keyboard): staticpro Qecho_area_clear_hook.
Diffstat (limited to 'src/keyboard.c')
| -rw-r--r-- | src/keyboard.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index b854d423cd..194e52d270 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -2778,7 +2778,7 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu) available, garbage collect if there has been enough consing going on to make it worthwhile. */ if (!detect_input_pending_run_timers (0) - && consing_since_gc > gc_cons_combined_threshold / 2) + && consing_since_gc > gc_cons_threshold / 2) Fgarbage_collect (); redisplay (); @@ -11282,6 +11282,7 @@ might happen repeatedly and make Emacs nonfunctional. */); doc: /* Normal hook run when clearing the echo area. */); #endif Qecho_area_clear_hook = intern ("echo-area-clear-hook"); + staticpro (&Qecho_area_clear_hook); SET_SYMBOL_VALUE (Qecho_area_clear_hook, Qnil); DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag, |