From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 May 1994 07:47:27 +0000 (+0000)
Subject: (command-line-1): Precompute menu bar before startup msg.
X-Git-Tag: emacs-19.34~8195
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd11871ac0d99f543c943d9dc8aa63c64897e4eb;p=emacs.git

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

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