Mercurial > emacs
comparison lisp/loadup.el @ 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 | 5d907d4216ce |
| children | fd0c4b42a63b |
comparison
equal
deleted
inserted
replaced
| 6317:731726860971 | 6318:8ed445c84d3c |
|---|---|
| 54 (if (fboundp 'delete-frame) | 54 (if (fboundp 'delete-frame) |
| 55 (progn | 55 (progn |
| 56 (load "frame") | 56 (load "frame") |
| 57 (load "mouse") | 57 (load "mouse") |
| 58 (garbage-collect) | 58 (garbage-collect) |
| 59 (load "menu-bar") | |
| 59 (load "scroll-bar") | 60 (load "scroll-bar") |
| 60 (load "select"))) | 61 (load "select"))) |
| 61 (garbage-collect) | 62 (garbage-collect) |
| 62 (load "paths.el") ;Don't get confused if someone compiled paths by mistake. | 63 (load "paths.el") ;Don't get confused if someone compiled paths by mistake. |
| 63 (garbage-collect) | 64 (garbage-collect) |
| 111 (garbage-collect) | 112 (garbage-collect) |
| 112 (load "vc-hooks") | 113 (load "vc-hooks") |
| 113 | 114 |
| 114 ;; We specify .el in case someone compiled version.el by mistake. | 115 ;; We specify .el in case someone compiled version.el by mistake. |
| 115 (load "version.el") | 116 (load "version.el") |
| 117 | |
| 118 ;; Precompute the keyboard equivalents in the menu bar items. | |
| 119 (if (fboundp 'x-popup-menu) | |
| 120 (let ((submap (lookup-key global-map [menu-bar]))) | |
| 121 (while submap | |
| 122 (and (consp (car submap)) | |
| 123 (symbolp (car (car submap))) | |
| 124 (stringp (car-safe (cdr (car submap)))) | |
| 125 (keymapp (cdr (cdr (car submap)))) | |
| 126 (x-popup-menu nil (cdr (cdr (car submap))))) | |
| 127 (setq submap (cdr submap))))) | |
| 116 | 128 |
| 117 ;If you want additional libraries to be preloaded and their | 129 ;If you want additional libraries to be preloaded and their |
| 118 ;doc strings kept in the DOC file rather than in core, | 130 ;doc strings kept in the DOC file rather than in core, |
| 119 ;you may load them with a "site-load.el" file. | 131 ;you may load them with a "site-load.el" file. |
| 120 ;But you must also cause them to be scanned when the DOC file | 132 ;But you must also cause them to be scanned when the DOC file |