changeset 14959:f2b5d784fa88

(garbage_collection_messages): New variable. (syms_of_alloc): Set up Lisp variable. (Fgarbage_collect): Variable controls whether to display messages.

--- a/src/alloc.c	Mon Apr 08 13:47:00 1996 +0000
+++ b/src/alloc.c	Mon Apr 08 14:05:57 1996 +0000
@@ -88,6 +88,9 @@
 /* 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 @@
     }
 #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 @@
   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 @@
 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