(precompute-menubar-bindings): While dumping,

garbage-collect after each menu.

diff --git a/lisp/startup.el b/lisp/startup.el
index 6b636f545162495ebeadc29382c8712d0d0c3df3..82a9094fbad383ac1341f762acfe76dc0424ce9e 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -306,7 +306,10 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.")
           (symbolp (car (car submap)))
           (stringp (car-safe (cdr (car submap))))
           (keymapp (cdr (cdr (car submap))))
-          (x-popup-menu nil (cdr (cdr (car submap)))))
+          (progn
+            (x-popup-menu nil (cdr (cdr (car submap))))
+            (if purify-flag
+                (garbage-collect))))
       (setq submap (cdr submap))))
   (setq define-key-rebound-commands t))