/[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.10 by dak, Thu Oct 20 21:04:22 2005 UTC revision 1.11 by rsteib, Fri Oct 21 15:12:15 2005 UTC
# Line 1121  searched." Line 1121  searched."
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"))

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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