diff options
| author | Karl Heuer | 1994-05-07 00:22:05 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-05-07 00:22:05 +0000 |
| commit | 172d2c6e6ead8293557f203dd3be3fd125ad7b2e (patch) | |
| tree | 0cd1e4b557471060c07f110704a53e4b67666653 | |
| parent | 6f2c86fa800bd2f327600c6d32ffe0387b3c5b16 (diff) | |
| download | emacs-172d2c6e6ead8293557f203dd3be3fd125ad7b2e.tar.gz emacs-172d2c6e6ead8293557f203dd3be3fd125ad7b2e.zip | |
Don't precompute keybinding cache for menubar. Now done in startup.el instead.
| -rw-r--r-- | lisp/loadup.el | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/lisp/loadup.el b/lisp/loadup.el index 6f5b290348f..2f39713e6aa 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el | |||
| @@ -114,17 +114,6 @@ | |||
| 114 | ;; We specify .el in case someone compiled version.el by mistake. | 114 | ;; We specify .el in case someone compiled version.el by mistake. |
| 115 | (load "version.el") | 115 | (load "version.el") |
| 116 | 116 | ||
| 117 | ;; Precompute the keyboard equivalents in the menu bar items. | ||
| 118 | (if (fboundp 'x-popup-menu) | ||
| 119 | (let ((submap (lookup-key global-map [menu-bar]))) | ||
| 120 | (while submap | ||
| 121 | (and (consp (car submap)) | ||
| 122 | (symbolp (car (car submap))) | ||
| 123 | (stringp (car-safe (cdr (car submap)))) | ||
| 124 | (keymapp (cdr (cdr (car submap)))) | ||
| 125 | (x-popup-menu nil (cdr (cdr (car submap))))) | ||
| 126 | (setq submap (cdr submap))))) | ||
| 127 | |||
| 128 | ;If you want additional libraries to be preloaded and their | 117 | ;If you want additional libraries to be preloaded and their |
| 129 | ;doc strings kept in the DOC file rather than in core, | 118 | ;doc strings kept in the DOC file rather than in core, |
| 130 | ;you may load them with a "site-load.el" file. | 119 | ;you may load them with a "site-load.el" file. |