[Emacs-diffs] emacs-24 r117465: * lisp/startup.el (fancy-splash-frame): Extend the fix for Bug#16014 to the Cygwin-w32 build. (Bug#18347)

[Ken Brown]

------------------------------------------------------------
revno: 117465
revision-id: address@hidden
parent: address@hidden
committer: Ken Brown <address@hidden>
branch nick: emacs-24
timestamp: Fri 2014-08-29 18:13:43 -0400
message:
  * lisp/startup.el (fancy-splash-frame): Extend the fix for Bug#16014 to the 
Cygwin-w32 build.  (Bug#18347)
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/startup.el                startup.el-20091113204419-o5vbwnq5f7feedwu-260

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-08-28 19:18:24 +0000
+++ b/lisp/ChangeLog    2014-08-29 22:13:43 +0000
@@ -1,3 +1,8 @@
+2014-08-29  Ken Brown  <address@hidden>
+
+       * startup.el (fancy-splash-frame): Extend the fix for Bug#16014 to
+       the Cygwin-w32 build.  (Bug#18347)
+
 2014-08-28  Glenn Morris  <address@hidden>
 
        * tar-mode.el (tar--extract, tar-extract):

=== modified file 'lisp/startup.el'
--- a/lisp/startup.el   2014-07-08 09:17:09 +0000
+++ b/lisp/startup.el   2014-08-29 22:13:43 +0000
@@ -1812,7 +1812,7 @@
   (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)