From 0a8e1269e1abb7cdbb859a4836350362de79bb6c Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 30 Nov 2013 21:11:00 +0200 Subject: [PATCH] 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. --- lisp/startup.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/startup.el b/lisp/startup.el index c7b171055e..25e75c994a 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 -- 2.20.1