Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c8e16a02
Commit
c8e16a02
authored
Jul 23, 2005
by
Richard M. Stallman
Browse files
(read_char): Test gc_cons_threshold.
(syms_of_keyboard): staticpro Qecho_area_clear_hook.
parent
8f6bda75
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
1 deletion
+2
-1
src/keyboard.c
src/keyboard.c
+2
-1
No files found.
src/keyboard.c
View file @
c8e16a02
...
...
@@ -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,
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment