auctex-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[AUCTeX-devel] toolbarx-find-image didn't work with current CVS Emacs


From: Reiner Steib
Subject: [AUCTeX-devel] toolbarx-find-image didn't work with current CVS Emacs
Date: Thu, 20 Oct 2005 15:06:13 +0200
User-agent: Gnus/5.110004 (No Gnus v0.4) Emacs/22.0.50 (gnu/linux)

Hi,

when using a current CVS Emacs, the standard tool bar icons disappear
when using `LaTeX-install-toolbar'.  This is due to the recent changes
(lisp/toolbar/*.xpm -> etc/images/), see etc/ChangeLog.

I've changed `toolbarx-find-image' to first search the image using
`image-search-load-path' and `image-load-path' (if available) and then
use `locate-library':

--8<---------------cut here---------------start------------->8---
--- toolbar-x.el        05 May 2005 19:19:44 +0200      1.7
+++ toolbar-x.el        20 Oct 2005 14:56:46 +0200      
@@ -1109,7 +1109,13 @@
   (let ((file))
     (dolist (i '("" ".xpm" ".xbm" ".pbm"))
       (unless file
-       (setq file (locate-library (concat filename i) t toolbarx-image-path))))
+       (setq file
+             (or
+              (and (fboundp 'image-search-load-path) ;; Emacs 22+
+                   (boundp 'image-load-path)
+                   (image-search-load-path
+                    (concat filename i) image-load-path))
+              (locate-library (concat filename i) t toolbarx-image-path)))))
     (when file
       (funcall (if (featurep 'xemacs) 'make-glyph 'create-image)
               file))))
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/





reply via email to

[Prev in Thread] Current Thread [Next in Thread]