From: Glenn Morris <rgm@gnu.org>
Date: Tue, 5 Apr 2005 15:19:35 +0000 (+0000)
Subject: (command-line-1): Display startup-echo-area-message when fancy splash
X-Git-Tag: ttn-vms-21-2-B4~1195
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=79f9f704ea99f174e3fd26f7188f79f0ba453151;p=emacs.git

(command-line-1): Display startup-echo-area-message when fancy splash
screen is in use.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 7be4faceb59..cc603208820 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1481,9 +1481,10 @@ normal otherwise."
 			    nil t))
 		       (error nil))
 		   (kill-buffer buffer)))))
-      ;; Stop any "Loading image..." message hiding echo-area-message.
-      (use-fancy-splash-screens-p)
-      (display-startup-echo-area-message))
+      (progn
+        ;; Stop any "Loading image..." message hiding echo-area-message.
+        (use-fancy-splash-screens-p)
+        (display-startup-echo-area-message)))
 
   ;; Delay 2 seconds after an init file error message
   ;; was displayed, so user can read it.