Mercurial > emacs

comparison lisp/gnus/gnus.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 986aaff044ca
children a9dc0e7c3f2b
comparison
equal deleted inserted replaced
96478:cb623ad4eda6 96479:2cfacee4e258
1013 (list data-directory)) 1013 (list data-directory))
1014 ((boundp 'image-load-path) 1014 ((boundp 'image-load-path)
1015 (symbol-value 'image-load-path)) 1015 (symbol-value 'image-load-path))
1016 (t load-path))) 1016 (t load-path)))
1017 (image (find-image 1017 (image (find-image
1018 `((:type xpm :file "gnus.xpm" 1018 `((:type svg :file "gnus.svg")
1019 (:type png :file "gnus.png")
1020 (:type xpm :file "gnus.xpm"
1019 :color-symbols 1021 :color-symbols
1020 (("thing" . ,(car gnus-logo-colors)) 1022 (("thing" . ,(car gnus-logo-colors))
1021 ("shadow" . ,(cadr gnus-logo-colors)) 1023 ("shadow" . ,(cadr gnus-logo-colors))
1022 ("oort" . "#eeeeee") 1024 ("oort" . "#eeeeee")
1023 ("background" . ,(face-background 'default)))) 1025 ("background" . ,(face-background 'default))))