changeset 12346:a7f7ae7ef458

(precompute-menubar-bindings): While dumping, garbage-collect after each menu.
author Richard M. Stallman <rms@gnu.org>
date Wed, 21 Jun 1995 18:32:45 +0000
parents 35ee6a1b7dd6
children 0731c1ec96ad
files lisp/startup.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Wed Jun 21 18:10:36 1995 +0000
+++ b/lisp/startup.el	Wed Jun 21 18:32:45 1995 +0000
@@ -306,7 +306,10 @@
 	   (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))