From 01b15be0a3d451238a5216a219a105527dbf8bec Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 23 Feb 2006 13:19:35 +0000 Subject: [PATCH] Synch to No Gnus 200602231319. --- lisp/ChangeLog | 5 +++++ lisp/gmm-utils.el | 10 ++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7565fad..8397857 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-02-23 Katsumi Yamaoka + + * gmm-utils.el (gmm-image-load-path): Don't modify image-load-path + and load-path. + 2006-02-22 Reiner Steib * message.el: Autoload gmm-image-load-path. diff --git a/lisp/gmm-utils.el b/lisp/gmm-utils.el index 2d680cd..7384bb9 100644 --- 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) -- 1.7.10.4