Commit fd11871a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(command-line-1): Precompute menu bar before startup msg.

parent e8f9dff9
...@@ -404,6 +404,10 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.") ...@@ -404,6 +404,10 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.")
(and window-setup-hook (and window-setup-hook
(run-hooks 'window-setup-hook)) (run-hooks 'window-setup-hook))
(setq window-setup-hook nil) (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 (unwind-protect
(progn (progn
(insert (emacs-version) (insert (emacs-version)
...@@ -437,11 +441,6 @@ GNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for f ...@@ -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. You may give out copies of Emacs; type \\[describe-copying] to see the conditions.
Type \\[describe-distribution] for information on getting the latest version."))) Type \\[describe-distribution] for information on getting the latest version.")))
(set-buffer-modified-p nil) (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)) (sit-for 120))
(save-excursion (save-excursion
;; In case the Emacs server has already selected ;; In case the Emacs server has already selected
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment