(gmm-image-load-path): Don't modify image-load-path and load-path.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 62edd0b..62de41b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-23  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gmm-utils.el (gmm-image-load-path): Don't modify image-load-path
+       and load-path.
+
 2006-02-22  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * message.el: Autoload gmm-image-load-path.

diff --git a/lisp/gmm-utils.el b/lisp/gmm-utils.el
index 2962597..2d9121f 100644 (file)
--- a/lisp/gmm-utils.el
+++ b/lisp/gmm-utils.el
@@ -316,12 +316,14 @@ path to IMAGE.  If PATH is given, it is used instead of
   ;; Return augmented `image-load-path' or `load-path'.
   (cond ((and path (symbolp path))
         (nconc (list gmm-image-load-path)
-               (delete gmm-image-load-path (if (boundp path)
-                                               (symbol-value path)
-                                             nil))))
+               (delete gmm-image-load-path
+                       (if (boundp path)
+                           (copy-sequence (symbol-value path))
+                         nil))))
        (t
         (nconc (list gmm-image-load-path)
-               (delete gmm-image-load-path load-path)))))
+               (delete gmm-image-load-path
+                       (copy-sequence load-path))))))
 
 (provide 'gmm-utils)