From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 22 Oct 1998 01:53:38 +0000 (+0000)
Subject: (Fgarbage_collect): Block input around most of the function.
X-Git-Tag: emacs-20.4~1415
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e0fca1d845a2829de2cac7b7b6fc244c15898a9;p=emacs.git

(Fgarbage_collect): Block input around most of the function.
---

diff --git a/src/alloc.c b/src/alloc.c
index 0030de4842c..029f205ea32 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1730,6 +1730,8 @@ Garbage collection happens automatically if you cons more than\n\
   if (garbage_collection_messages)
     message1_nolog ("Garbage collecting...");
 
+  BLOCK_INPUT;
+
   shrink_regexp_cache ();
 
   /* Don't keep undo information around forever.  */
@@ -1873,6 +1875,8 @@ Garbage collection happens automatically if you cons more than\n\
   XUNMARK (buffer_defaults.name);
   XUNMARK (buffer_local_symbols.name);
 
+  UNBLOCK_INPUT;
+
   /* clear_marks (); */
   gc_in_progress = 0;