From 6141b80242b3da876e576cd19b263ef3ca4586b7 Mon Sep 17 00:00:00 2001 From: Ken Brown Date: Fri, 29 Aug 2014 18:13:43 -0400 Subject: [PATCH] * lisp/startup.el (fancy-splash-frame): Extend the fix for Bug#16014 to the Cygwin-w32 build. (Bug#18347) --- lisp/ChangeLog | 5 +++++ lisp/startup.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * startup.el (fancy-splash-frame): Extend the fix for Bug#16014 to + the Cygwin-w32 build. (Bug#18347) + 2014-08-28 Glenn Morris * 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) -- 2.11.4.GIT