Re: New GNOME icons

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> In <1183.1142359136@olgas.newt.com> Bill Wohler wrote:

> Katsumi Yamaoka <yamaoka@jpl.org> wrote:

[...]

>> My doubt is that there seems to be no way to tell the
>> `(gmm-)image-load-path-for-library' function that my image files
>> are in "/usr/local/share/emacs/etc/images/".  Of course, it is
>> not a matter since Emacs provides new image files now, though.

> Just add your directory to image-load-path (or load-path if
> image-load-path isn't bound) before calling the function and it will be
> found, assuming that the image passed to image-load-path-for-library is
> in your directory. This is what the Debian MH-E package does in its
> site-init.

I exactly did so.  However, `image-load-path-for-library'
doesn't take notice of

"/usr/local/share/emacs/etc/images/gnus/toggle-subscription.xpm"

if

"/usr/local/share/emacs/22.0.50/etc/images/gnus/toggle-subscription.xpm"

exists.  It suggests there's no way that she uses her favorite
images instead of the ones Emacs provides.

image-load-path
 => ("/usr/local/share/emacs/etc/images/"
     "/usr/local/share/emacs/22.0.50/etc/images/"
     data-directory
     load-path)

(file-exists-p
 "/usr/local/share/emacs/etc/images/gnus/toggle-subscription.xpm")
 => t

(file-exists-p
 "/usr/local/share/emacs/22.0.50/etc/images/gnus/toggle-subscription.xpm")
 => t

(let ((dirs (image-load-path-for-library
	     "gnus"
	     "gnus/toggle-subscription.xpm"
	     nil t)))
  (or (member "/usr/local/share/emacs/etc/images/" dirs)
      (member "/usr/local/share/emacs/etc/images" dirs)))
 => nil