Mercurial > emacs
changeset 6318:8ed445c84d3c
Preload menu-bar.
Prescan the menu bar keymaps for keyboard equivalents.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 13 Mar 1994 00:36:01 +0000 |
| parents | 731726860971 |
| children | 63bf78eadcfe |
| files | lisp/loadup.el |
| diffstat | 1 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/loadup.el Sun Mar 13 00:35:22 1994 +0000 +++ b/lisp/loadup.el Sun Mar 13 00:36:01 1994 +0000 @@ -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.