diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-21 18:32:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-21 18:32:45 +0000 |
| commit | 4c3cfb0a8c6f8f588733ef45d6beb9193f4b8cc0 (patch) | |
| tree | 1b0d4c84c530233b4e9f09e1bf7c1e8d24270ae8 /lisp/startup.el | |
| parent | 1aa87ac9f566f4b9a57a601e9dcd73a47ccccf48 (diff) | |
| download | emacs-4c3cfb0a8c6f8f588733ef45d6beb9193f4b8cc0.tar.gz | |
(precompute-menubar-bindings): While dumping,
garbage-collect after each menu.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 5 |
1 files changed, 4 insertions, 1 deletions
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)) |