(fancy-splash-head): Use splash.pbm instead of

splash.xbm.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 70a8c1ce83ed8ae69e57d0e15a7669d2db64d6c2..d0565776597a74efb3dda527612de432c1d59aa3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-22  Gerd Moellmann  <gerd@gnu.org>
+
+       * startup.el (fancy-splash-head): Use splash.pbm instead of
+       splash.xbm.
+
 2000-09-22  Andre Spiegel  <spiegel@gnu.org>
 
        * vc.el (vc-switch-backend): Signal an error if the file is not 

diff --git a/lisp/startup.el b/lisp/startup.el
index 3353330a1989645780c563bbbbe5133fd691741a..3d178d89619641bc07be20349dd9fdf1061c4b9c 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -915,7 +915,7 @@ where FACE is a valid face specification, as it can be used with
   "Insert the head part of the splash screen into the current buffer."
   (let* ((img (create-image (or fancy-splash-image
                                (if (display-color-p)
-                                   "splash.xpm" "splash.xbm"))))
+                                   "splash.xpm" "splash.pbm"))))
         (image-width (and img (car (image-size img))))
         (window-width (window-width (selected-window))))
     (when img
@@ -1049,7 +1049,7 @@ where FACE is a valid face specification, as it can be used with
                       (if (assq 'display (frame-parameters))
                           (if (or (and (display-color-p)
                                        (image-type-available-p 'xpm))
-                                  (image-type-available-p 'xbm))
+                                  (image-type-available-p 'pbm))
                               (fancy-splash-screens)
                             (progn
                               (insert "\