diff options
Diffstat (limited to 'lisp/startup.el')
-rw-r--r-- | lisp/startup.el | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index ec0619db3b..3b509b57c6 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1375,13 +1375,17 @@ a face or button specification." "Insert the head part of the splash screen into the current buffer." (let* ((image-file (cond ((stringp fancy-splash-image) fancy-splash-image) - ((and (display-color-p) - (image-type-available-p 'xpm)) - (if (and (fboundp 'x-display-planes) - (= (funcall 'x-display-planes) 8)) - "splash8.xpm" - "splash.xpm")) - (t "splash.pbm"))) + ((display-color-p) + (cond ((image-type-available-p 'svg) + "splash.svg") + ((image-type-available-p 'png) + "splash.png") + ((image-type-available-p 'xpm) + (if (and (fboundp 'x-display-planes) + (= (funcall 'x-display-planes) 8)) + "splash8.xpm" + "splash.xpm")))) + (t "splash.pbm"))) (img (create-image image-file)) (image-width (and img (car (image-size img)))) (window-width (window-width (selected-window)))) |