diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2013-11-30 21:11:00 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2013-11-30 21:11:00 +0200 |
| commit | 0a8e1269e1abb7cdbb859a4836350362de79bb6c (patch) | |
| tree | 22cf892a04524c6fa75f2fe6fc95c693b5442018 /lisp/startup.el | |
| parent | 26e4aa7db63a3aa6383a76cdad2f6b1e1108a297 (diff) | |
| download | emacs-0a8e1269e1abb7cdbb859a4836350362de79bb6c.tar.gz | |
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.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index c7b171055eb..25e75c994a6 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 |