2778 |
available, garbage collect if there has been enough |
available, garbage collect if there has been enough |
2779 |
consing going on to make it worthwhile. */ |
consing going on to make it worthwhile. */ |
2780 |
if (!detect_input_pending_run_timers (0) |
if (!detect_input_pending_run_timers (0) |
2781 |
&& consing_since_gc > gc_cons_combined_threshold / 2) |
&& consing_since_gc > gc_cons_threshold / 2) |
2782 |
Fgarbage_collect (); |
Fgarbage_collect (); |
2783 |
|
|
2784 |
redisplay (); |
redisplay (); |
11282 |
doc: /* Normal hook run when clearing the echo area. */); |
doc: /* Normal hook run when clearing the echo area. */); |
11283 |
#endif |
#endif |
11284 |
Qecho_area_clear_hook = intern ("echo-area-clear-hook"); |
Qecho_area_clear_hook = intern ("echo-area-clear-hook"); |
11285 |
|
staticpro (&Qecho_area_clear_hook); |
11286 |
SET_SYMBOL_VALUE (Qecho_area_clear_hook, Qnil); |
SET_SYMBOL_VALUE (Qecho_area_clear_hook, Qnil); |
11287 |
|
|
11288 |
DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag, |
DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag, |