1121 |
(let ((file)) |
(let ((file)) |
1122 |
(dolist (i '("" ".xpm" ".xbm" ".pbm")) |
(dolist (i '("" ".xpm" ".xbm" ".pbm")) |
1123 |
(unless file |
(unless file |
1124 |
(setq file (locate-library (concat filename i) t toolbarx-image-path)))) |
(setq file (locate-library (concat name i) t toolbarx-image-path)))) |
1125 |
(if (featurep 'xemacs) |
(if (featurep 'xemacs) |
1126 |
(and file (make-glyph file)) |
(and file (make-glyph file)) |
1127 |
(if file |
(if file |
1128 |
(create-image file) |
(create-image file) |
1129 |
(find-image `((:type xpm :file ,(concat name ".xpm")) |
(find-image `((:type xpm :file ,(concat name ".xpm")) |
1130 |
(:type xbm :file ,(concat name ".xbm")) |
(:type xbm :file ,(concat name ".xbm")) |