emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: New look for Emacs-23.0


From: Francesc Rocher
Subject: Re: New look for Emacs-23.0
Date: Wed, 16 Jul 2008 11:56:43 +0200

> Indeed, I also saw that the 2 images are low-color versions, so the test
> didn't make much sense, but the situation now is very different because
> the new files use up many colors, so the display-depth should be used to
> guard the use of those new high-color images.

You're right, so my proposal is to use the following patch and to delete the
file 'splash8.xpm' from the repository.

-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----
--- startup.el.~1.495~  2008-07-16 10:17:39.000000000 +0200
+++ startup.el  2008-07-16 10:53:20.000000000 +0200
@@ -1443,13 +1443,15 @@
                            fancy-splash-image)
                           ((display-color-p)
-                           (cond ((image-type-available-p 'svg)
+                           (cond ((<= (display-planes) 8)
+                                  (if (image-type-available-p 'xpm)
+                                      "splash.xpm"
+                                    "splash.pbm"))
+                                 ((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")))
                           (t "splash.pbm")))
         (img (create-image image-file))
-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----

-- Francesc Rocher




reply via email to

[Prev in Thread] Current Thread [Next in Thread]