/[auctex]/auctex/toolbar-x.el
ViewVC logotype

Diff of /auctex/toolbar-x.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by dak, Mon May 2 14:37:44 2005 UTC revision 1.8 by rsteib, Thu Oct 20 12:57:52 2005 UTC
# Line 1109  ommited, tries `xpm', `xbm' and `pbm'." Line 1109  ommited, tries `xpm', `xbm' and `pbm'."
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))))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26