(Fgarbage_collect): Call shrink_regexp_cache.

diff --git a/src/alloc.c b/src/alloc.c
index e010f85..4f7b7a8 100644 (file)
--- 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...");
 
+  shrink_regexp_cache ();
+
   /* Don't keep undo information around forever.  */
   {
     register struct buffer *nextb = all_buffers;