mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 22:40:51 -08:00
Code Issues Projects Releases Wiki Activity

(garbage_collection_messages): New variable.

Browse source 
(syms_of_alloc): Set up Lisp variable.
(Fgarbage_collect): Variable controls whether to display messages.
This commit is contained in:
Richard M. Stallman 1996-04-08 14:05:57 +00:00
parent be1d1a1ae5
commit 299585eeb6
1 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/alloc.c
View file

@ -88,6 +88,9 @@ int gc_cons_threshold;
/* Nonzero during gc */
int gc_in_progress;
/* Nonzero means display messages at beginning and end of GC. */
int garbage_collection_messages;
#ifndef VIRT_ADDR_VARIES
extern
#endif /* VIRT_ADDR_VARIES */
@ -1490,7 +1493,7 @@ Garbage collection happens automatically if you cons more than\n\
}
#endif /* MAX_SAVE_STACK > 0 */
if (!noninteractive)
if (garbage_collection_messages)
message1_nolog ("Garbage collecting...");
/* Don't keep command history around forever */
@ -1606,10 +1609,13 @@ Garbage collection happens automatically if you cons more than\n\
if (gc_cons_threshold < 10000)
gc_cons_threshold = 10000;
if (omessage || minibuf_level > 0)
message2_nolog (omessage, omessage_length);
else if (!noninteractive)
message1_nolog ("Garbage collecting...done");
if (garbage_collection_messages)
{
if (omessage || minibuf_level > 0)
message2_nolog (omessage, omessage_length);
else
message1_nolog ("Garbage collecting...done");
}
return Fcons (Fcons (make_number (total_conses),
make_number (total_free_conses)),
@ -2611,6 +2617,10 @@ The size is counted as the number of bytes occupied,\n\
which includes both saved text and other data.");
undo_strong_limit = 30000;
DEFVAR_BOOL ("garbage-collection-messages", &garbage_collection_messages,
"Non-nil means display messages at start and end of garbage collection.");
garbage_collection_messages = 0;
/* We build this in advance because if we wait until we need it, we might
not be able to allocate the memory to hold it. */
memory_signal_data