auth-source.el (auth-source-search): Use copy-sequence instead of the cl.el copy...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b64da04..7cb48a4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-14  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * auth-source.el (auth-source-search): Use copy-sequence instead of
+       the cl.el copy-list.
+
 2011-02-13  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * imap.el: Bring it back (revert

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index b7a7b41..de69262 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -485,7 +485,7 @@ must call it to obtain the actual value."
        (or (eq t create) (listp create)) t
        "Invalid auth-source :create parameter (must be nil, t, or a list)")
 
-      (setq filtered-backends (copy-list backends))
+      (setq filtered-backends (copy-sequence backends))
       (dolist (backend backends)
         (dolist (key keys)
           ;; ignore invalid slots