diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-13 00:36:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-13 00:36:01 +0000 |
| commit | b2cd1a6eb5a3248816436a4863482c41cf7e5f8f (patch) | |
| tree | 60643439a30f80e1b0db1886e062a78112968160 /lisp/loadup.el | |
| parent | 6f1111aa5a115a02104d8b2a553714e184cc6eca (diff) | |
| download | emacs-b2cd1a6eb5a3248816436a4863482c41cf7e5f8f.tar.gz | |
Preload menu-bar.
Prescan the menu bar keymaps for keyboard equivalents.
Diffstat (limited to 'lisp/loadup.el')
| -rw-r--r-- | lisp/loadup.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/loadup.el b/lisp/loadup.el index 6cf138cd794..1f5063e0480 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -56,6 +56,7 @@ (load "frame") (load "mouse") (garbage-collect) + (load "menu-bar") (load "scroll-bar") (load "select"))) (garbage-collect) @@ -114,6 +115,17 @@ ;; We specify .el in case someone compiled version.el by mistake. (load "version.el") +;; Precompute the keyboard equivalents in the menu bar items. +(if (fboundp 'x-popup-menu) + (let ((submap (lookup-key global-map [menu-bar]))) + (while submap + (and (consp (car submap)) + (symbolp (car (car submap))) + (stringp (car-safe (cdr (car submap)))) + (keymapp (cdr (cdr (car submap)))) + (x-popup-menu nil (cdr (cdr (car submap))))) + (setq submap (cdr submap))))) + ;If you want additional libraries to be preloaded and their ;doc strings kept in the DOC file rather than in core, ;you may load them with a "site-load.el" file. |