[Emacs-diffs] trunk r115316: Fix bug #16014 with not showing fancy splash screen on MS-Windows.

[Eli Zaretskii]

------------------------------------------------------------
revno: 115316
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16014
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Sat 2013-11-30 21:11:00 +0200
message:
  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.
modified:
  lisp/startup.el                startup.el-20091113204419-o5vbwnq5f7feedwu-260

=== modified file 'lisp/startup.el'
--- a/lisp/startup.el   2013-11-27 06:15:06 +0000
+++ b/lisp/startup.el   2013-11-30 19:11:00 +0000
@@ -1764,6 +1764,10 @@
 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 @@
   "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