[Top][All Lists]
[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