Commit 0a8e1269 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

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
parent 26e4aa7d
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment