* lisp/startup.el (fancy-splash-frame): Extend the fix for Bug#16014 to the Cygwin-w32 build. (Bug#18347)

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 81e9a0f2280..df8ce75a696 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-08-29  Ken Brown  <kbrown@cornell.edu>
+
+        * startup.el (fancy-splash-frame): Extend the fix for Bug#16014 to
+        the Cygwin-w32 build.  (Bug#18347)
+
 2014-08-28  Glenn Morris  <rgm@gnu.org>
 
         * tar-mode.el (tar--extract, tar-extract):
diff --git a/lisp/startup.el b/lisp/startup.el
index a229207a2c8..58e970814b9 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1812,7 +1812,7 @@ 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)
+    (if (eq (window-system) 'w32)
         (sit-for 0 t))
     (dolist (frame (append (frame-list) (list (selected-frame))))
       (if (and (frame-visible-p frame)