Mercurial > emacs
diff src/keyboard.c @ 64614:482ea9d640ec
(read_char): Test gc_cons_threshold.
(syms_of_keyboard): staticpro Qecho_area_clear_hook.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 23 Jul 2005 19:09:50 +0000 |
parents | 291a233cbda9 |
children | a0d1312ede66 890cc78a5a24 |
line wrap: on
line diff
--- a/src/keyboard.c Sat Jul 23 19:09:09 2005 +0000 +++ b/src/keyboard.c Sat Jul 23 19:09:50 2005 +0000 @@ -2778,7 +2778,7 @@ 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 @@ 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,