procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix bug #16014 with not showing fancy splash screen on MS-Windows.

Browse source 
lisp/startup.el (fancy-splash-frame): On MS-Windows, trigger
 redisplay to make sure the initial frame gets a change to become
 visible.
This commit is contained in:
Eli Zaretskii 2013-11-30 21:11:00 +02:00
parent 26e4aa7db6
commit 0a8e1269e1
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/startup.el
View file

@ -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