From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 30 Nov 2013 19:11:00 +0000 (+0200)
Subject: Fix bug #16014 with not showing fancy splash screen on MS-Windows.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~619
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a8e1269e1abb7cdbb859a4836350362de79bb6c;p=emacs.git

Fix bug #16014 with not showing fancy splash screen on MS-Windows.

 lisp/startup.el (fancy-splash-frame): On MS-Windows, trigger
 redisplay to make sure the initial frame gets a change to become
 visible.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index c7b171055eb..25e75c994a6 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1764,6 +1764,10 @@ Returning non-nil does not mean we should necessarily
 use the fancy splash screen, but if we do use it,
 we put it on this frame."
   (let (chosen-frame)
+    ;; MS-Windows needs this to have a chance to make the initial
+    ;; frame visible.
+    (if (eq system-type 'windows-nt)
+	(sit-for 0 t))
     (dolist (frame (append (frame-list) (list (selected-frame))))
       (if (and (frame-visible-p frame)
 	       (not (window-minibuffer-p (frame-selected-window frame))))
@@ -1774,7 +1778,7 @@ we put it on this frame."
   "Return t if fancy splash screens should be used."
   (when (and (display-graphic-p)
              (or (and (display-color-p)
-		 (image-type-available-p 'xpm))
+		      (image-type-available-p 'xpm))
                  (image-type-available-p 'pbm)))
     (let ((frame (fancy-splash-frame)))
       (when frame