Mercurial > emacs
changeset 31887:a0891b67bb64
(fancy-splash-head): Check XPM is available.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 25 Sep 2000 18:31:51 +0000 |
| parents | ca37d343042c |
| children | 2e3f1dd73d7e |
| files | lisp/startup.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Mon Sep 25 18:18:31 2000 +0000 +++ b/lisp/startup.el Mon Sep 25 18:31:51 2000 +0000 @@ -914,7 +914,8 @@ (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))))