[Emacs-diffs] Changes to emacs/lisp/startup.el,v

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      08/07/02 01:49:03

Index: lisp/startup.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/startup.el,v
retrieving revision 1.493
retrieving revision 1.494
diff -u -b -r1.493 -r1.494
--- lisp/startup.el     21 Jun 2008 19:52:27 -0000      1.493
+++ lisp/startup.el     2 Jul 2008 01:49:01 -0000       1.494
@@ -1375,12 +1375,16 @@
   "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))
+                          ((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"))
+                                    "splash.xpm"))))
                             (t "splash.pbm")))
         (img (create-image image-file))
         (image-width (and img (car (image-size img))))