Mercurial > emacs

comparison lisp/startup.el @ 96479:2cfacee4e258

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add new SVG and PNG splash images. * etc/images/splash.png: * etc/images/splash.svg: * etc/images/gnus/gnus.png: * etc/images/gnus/gnus.svg: New files. * lisp/startup.el (fancy-splash-head): * lisp/gnus/gnus.el (gnus-group-startup-message): Prefer SVG or PNG image, if available.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 02 Jul 2008 01:49:03 +0000
parents 58ac3c5e4746
children d45acf0c8d23
comparison
equal deleted inserted replaced
96478:cb623ad4eda6 96479:2cfacee4e258
1373 1373
1374 (defun fancy-splash-head () 1374 (defun fancy-splash-head ()
1375 "Insert the head part of the splash screen into the current buffer." 1375 "Insert the head part of the splash screen into the current buffer."
1376 (let* ((image-file (cond ((stringp fancy-splash-image) 1376 (let* ((image-file (cond ((stringp fancy-splash-image)
1377 fancy-splash-image) 1377 fancy-splash-image)
1378 ((and (display-color-p) 1378 ((display-color-p)
1379 (image-type-available-p 'xpm)) 1379 (cond ((image-type-available-p 'svg)
1380 (if (and (fboundp 'x-display-planes) 1380 "splash.svg")
1381 (= (funcall 'x-display-planes) 8)) 1381 ((image-type-available-p 'png)
1382 "splash8.xpm" 1382 "splash.png")
1383 "splash.xpm")) 1383 ((image-type-available-p 'xpm)
1384 (t "splash.pbm"))) 1384 (if (and (fboundp 'x-display-planes)
1385 (= (funcall 'x-display-planes) 8))
1386 "splash8.xpm"
1387 "splash.xpm"))))
1388 (t "splash.pbm")))
1385 (img (create-image image-file)) 1389 (img (create-image image-file))
1386 (image-width (and img (car (image-size img)))) 1390 (image-width (and img (car (image-size img))))
1387 (window-width (window-width (selected-window)))) 1391 (window-width (window-width (selected-window))))
1388 (when img 1392 (when img
1389 (when (> window-width image-width) 1393 (when (> window-width image-width)