1109 |
(let ((file)) |
(let ((file)) |
1110 |
(dolist (i '("" ".xpm" ".xbm" ".pbm")) |
(dolist (i '("" ".xpm" ".xbm" ".pbm")) |
1111 |
(unless file |
(unless file |
1112 |
(setq file (locate-library (concat filename i) t toolbarx-image-path)))) |
(setq file |
1113 |
|
(or |
1114 |
|
(and (fboundp 'image-search-load-path) ;; Emacs 22+ |
1115 |
|
(boundp 'image-load-path) |
1116 |
|
(image-search-load-path (concat filename i) |
1117 |
|
image-load-path)) |
1118 |
|
(locate-library (concat filename i) t toolbarx-image-path))))) |
1119 |
(when file |
(when file |
1120 |
(funcall (if (featurep 'xemacs) 'make-glyph 'create-image) |
(funcall (if (featurep 'xemacs) 'make-glyph 'create-image) |
1121 |
file)))) |
file)))) |