(read_char): Test gc_cons_threshold.

(syms_of_keyboard): staticpro Qecho_area_clear_hook.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/keyboard.c b/src/keyboard.c
index b854d423cd1..194e52d2700 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,