From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Jun 1995 18:32:45 +0000 (+0000)
Subject: (precompute-menubar-bindings): While dumping,
X-Git-Tag: emacs-19.34~3513
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a18042d782dd5553db34e4f0090164b8849037ed;p=emacs.git

(precompute-menubar-bindings): While dumping,
garbage-collect after each menu.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 6b636f54516..82a9094fbad 100644
--- 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))