From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Thu, 16 Mar 2006 18:22:20 +0000 (+0000)
Subject: (gmm-image-load-path-for-library): Prefer user's
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=a30ba013c9ec1bf5f73dcf21f673924d5e79aeb1;p=gnus

(gmm-image-load-path-for-library): Prefer user's
images in image-load-path.  [Sync with image.el, revision 1.60, in
Emacs.]
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6792afe54..cd7d36611 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,15 @@
+2006-03-16  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* gmm-utils.el (gmm-image-load-path-for-library): Prefer user's
+	images in image-load-path.  [Sync with image.el, revision 1.60, in
+	Emacs.]
+
 2006-03-15  Reiner Steib  <Reiner.Steib@gmx.de>
 
-	* gmm-utils.el (gmm-image-load-path-for-library): Sync with
-	image.el, revision 1.59, in Emacs.  Pass value of path rather than
-	symbol.  Always return list of directories.  Guarantee that image
-	directory comes first.
+	* gmm-utils.el (gmm-image-load-path-for-library): Pass value of
+	path rather than symbol.  Always return list of directories.
+	Guarantee that image directory comes first.  [Sync with image.el,
+	revision 1.59, in Emacs.]
 
 	* message.el (message-make-tool-bar): Adjust to new API of
 	`gmm-image-load-path-for-library'.
diff --git a/lisp/gmm-utils.el b/lisp/gmm-utils.el
index ad05ffb9c..fef6dd556 100644
--- a/lisp/gmm-utils.el
+++ b/lisp/gmm-utils.el
@@ -304,10 +304,11 @@ This function returns nil on those systems."
 (defun gmm-image-load-path-for-library (library image &optional path no-error)
   "Return a suitable search path for images relative to LIBRARY.
 
-First it searches for IMAGE in a path suitable for LIBRARY, which
-includes \"../../etc/images\" and \"../etc/images\" relative to
-the library file itself, followed by `image-load-path' and
-`load-path'.
+First it searches for IMAGE in `image-load-path' (excluding
+\"`data-directory'/images\") and `load-path', followed by a path
+suitable for LIBRARY, which includes \"../../etc/images\" and
+\"../etc/images\" relative to the library file itself, and then
+in \"`data-directory'/images\".
 
 Then this function returns a list of directories which contains
 first the directory in which IMAGE was found, followed by the
@@ -332,8 +333,36 @@ compatibility with versions of Emacs that lack the variable
       (mh-tool-bar-folder-buttons-init))"
   (unless library (error "No library specified"))
   (unless image   (error "No image specified"))
-  (let ((image-directory))
+  (let (image-directory image-directory-load-path)
+    ;; Check for images in image-load-path or load-path.
+    (let ((img image)
+          (dir (or
+                ;; Images in image-load-path.
+                (gmm-image-search-load-path image) ;; "gmm-" prefix!
+                ;; Images in load-path.
+                (locate-library image)))
+          parent)
+      ;; Since the image might be in a nested directory (for
+      ;; example, mail/attach.pbm), adjust `image-directory'
+      ;; accordingly.
+      (when dir
+        (setq dir (file-name-directory dir))
+        (while (setq parent (file-name-directory img))
+          (setq img (directory-file-name parent)
+                dir (expand-file-name "../" dir))))
+      (setq image-directory-load-path dir))
+
+    ;; If `image-directory-load-path' isn't Emacs' image directory,
+    ;; it's probably a user preference, so use it. Then use a
+    ;; relative setting if possible; otherwise, use
+    ;; `image-directory-load-path'.
     (cond
+     ;; User-modified image-load-path?
+     ((and image-directory-load-path
+           (not (equal image-directory-load-path
+                       (file-name-as-directory
+                        (expand-file-name "images" data-directory)))))
+      (setq image-directory image-directory-load-path))
      ;; Try relative setting.
      ((let (library-name d1ei d2ei)
         ;; First, find library in the load-path.
@@ -343,33 +372,20 @@ compatibility with versions of Emacs that lack the variable
         ;; And then set image-directory relative to that.
         (setq
          ;; Go down 2 levels.
-         d2ei (expand-file-name
-               (concat (file-name-directory library-name) "../../etc/images"))
+         d2ei (file-name-as-directory
+               (expand-file-name
+                (concat (file-name-directory library-name) "../../etc/images")))
          ;; Go down 1 level.
-         d1ei (expand-file-name
-               (concat (file-name-directory library-name) "../etc/images")))
+         d1ei (file-name-as-directory
+               (expand-file-name
+                (concat (file-name-directory library-name) "../etc/images"))))
         (setq image-directory
               ;; Set it to nil if image is not found.
               (cond ((file-exists-p (expand-file-name image d2ei)) d2ei)
                     ((file-exists-p (expand-file-name image d1ei)) d1ei)))))
-     ;; Check for images in image-load-path or load-path.
-     ((let ((img image)
-            (dir (or
-                  ;; Images in image-load-path.
-                  (gmm-image-search-load-path image) ;; "gmm-" prefix!
-                  ;; Images in load-path.
-                  (locate-library image)))
-            parent)
-        ;; Since the image might be in a nested directory (for
-        ;; example, mail/attach.pbm), adjust `image-directory'
-        ;; accordingly.
-        (and dir
-             (setq dir (file-name-directory dir))
-             (progn
-               (while (setq parent (file-name-directory img))
-                 (setq img (directory-file-name parent)
-                       dir (expand-file-name "../" dir)))
-               (setq image-directory dir)))))
+     ;; Use Emacs' image directory.
+     (image-directory-load-path
+      (setq image-directory image-directory-load-path))
      (no-error
       (message "Could not find image %s for library %s" image library))
      (t