Commit 555b0992 authored by Juanma Barranquero's avatar Juanma Barranquero

* lisp/startup.el (fancy-splash-head): Fix change of 2008-07-02.

* etc/images/splash8.xpm: Remove.
parent 658a0f85
2008-07-18 Francesc Rocher <rocher@member.fsf.org>
* images/splash8.xpm: Remove.
2008-07-17 Adrian Robert <Adrian.B.Robert@gmail.com>
* NEWS: Add entry about NS port.
......
This diff is collapsed.
2008-07-18 Francesc Rocher <rocher@member.fsf.org>
* startup.el (fancy-splash-head): Fix change of 2008-07-02.
2008-07-18 Glenn Morris <rgm@gnu.org>
* eshell/esh-arg.el (eshell-quote-backslash): Restrict previous change
......
......@@ -1442,15 +1442,17 @@ a face or button specification."
(let* ((image-file (cond ((stringp fancy-splash-image)
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))
(image-width (and img (car (image-size img))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment