(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 7be4faceb59456f0d533d1ca6866a088b8135b51..cc60320882050699b7b5d9051cdc9b2cb0925ab1 100644 (file)
--- 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.