(fancy-splash-head): Check XPM is available.

diff --git a/lisp/startup.el b/lisp/startup.el
index e8ebf6696ca7df913f82833f01d7f93fbf5eb464..062a2851e707d759c2e3cec1f553f4cd7004fbaa 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -914,7 +914,8 @@ where FACE is a valid face specification, as it can be used with
 (defun fancy-splash-head ()
   "Insert the head part of the splash screen into the current buffer."
   (let* ((img (create-image (or fancy-splash-image
-                               (if (display-color-p)
+                               (if (and (display-color-p)
+                                        (image-type-available-p 'xpm))
                                    "splash.xpm" "splash.pbm"))))
         (image-width (and img (car (image-size img))))
         (window-width (window-width (selected-window))))