# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1122145790 0
# Node ID 482ea9d640ecc1cf1e3b71fdfcf9e4e76da7373c
# Parent  9e774d6510f1245fe028a521fc03f17a93afa2b9
(read_char): Test gc_cons_threshold.
(syms_of_keyboard): staticpro Qecho_area_clear_hook.

diff -r 9e774d6510f1 -r 482ea9d640ec src/keyboard.c
--- 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,