From d7a7f13120c86296760d0574749283f33ee4c8b6 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 25 Sep 2000 18:31:51 +0000 Subject: [PATCH] (fancy-splash-head): Check XPM is available. --- lisp/startup.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/startup.el b/lisp/startup.el index e8ebf6696ca..062a2851e70 100644 --- 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)))) -- 2.39.5