diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-23 07:47:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-23 07:47:27 +0000 |
| commit | fd11871ac0d99f543c943d9dc8aa63c64897e4eb (patch) | |
| tree | 548aa040c5f95623333561ed81a061f5f5c1baef | |
| parent | e8f9dff93bc1a0415327d6299a25ca136a833326 (diff) | |
| download | emacs-fd11871ac0d99f543c943d9dc8aa63c64897e4eb.tar.gz | |
(command-line-1): Precompute menu bar before startup msg.
| -rw-r--r-- | lisp/startup.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 2bfb5863f27..65024de31bb 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -404,6 +404,10 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.") (and window-setup-hook (run-hooks 'window-setup-hook)) (setq window-setup-hook nil) + ;; Do this now to avoid an annoying delay if the user + ;; clicks the menu bar during the sit-for. + (precompute-menubar-bindings) + (setq menubar-bindings-done t) (unwind-protect (progn (insert (emacs-version) @@ -437,11 +441,6 @@ GNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for f You may give out copies of Emacs; type \\[describe-copying] to see the conditions. Type \\[describe-distribution] for information on getting the latest version."))) (set-buffer-modified-p nil) - ;; Do this now to avoid an annoying delay if the user - ;; clicks the menu bar during the sit-for. - (sit-for 0) - (precompute-menubar-bindings) - (setq menubar-bindings-done t) (sit-for 120)) (save-excursion ;; In case the Emacs server has already selected |