1006 |
(fboundp 'find-image) |
(fboundp 'find-image) |
1007 |
(display-graphic-p) |
(display-graphic-p) |
1008 |
(let* ((data-directory (nnheader-find-etc-directory "images/gnus")) |
(let* ((data-directory (nnheader-find-etc-directory "images/gnus")) |
1009 |
|
(image-load-path (cond (data-directory |
1010 |
|
(list data-directory)) |
1011 |
|
((boundp 'image-load-path) |
1012 |
|
(symbol-value 'image-load-path)) |
1013 |
|
(t load-path))) |
1014 |
(image (find-image |
(image (find-image |
1015 |
`((:type xpm :file "gnus.xpm" |
`((:type xpm :file "gnus.xpm" |
1016 |
:color-symbols |
:color-symbols |