mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 05:52:32 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
splash.xbm.
This commit is contained in:
Gerd Moellmann 2000-09-22 11:20:05 +00:00
parent 36a03bf9d6
commit 13f93deeba
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

4
lisp/startup.el
View file

@ -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 "\