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

1 files changed, 4 insertions, 0 deletions

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;