Do not use cl-lib functions since those are unavailable on older Emacsen.

* auth-source.el (auth-source-netrc-saver): Do not depend on `cl-lib'
to stay compatible with older Emacsen, so replace `cl-loop' with
`loop'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 828d3d9..14b3eed 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-02-23  David Engster  <deng@randomsample.de>
+
+       * auth-source.el (auth-source-netrc-saver): Do not depend on `cl-lib'
+       to stay compatible with older Emacsen, so replace `cl-loop' with
+       `loop'.
+

 2014-02-22  Daniel Colascione  <dancol@dancol.org>
 
        * auth-source.el (auth-source-secrets-listify-pattern): New function.
 2014-02-22  Daniel Colascione  <dancol@dancol.org>
 
        * auth-source.el (auth-source-secrets-listify-pattern): New function.

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 103b66e..d1437d4 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -1534,10 +1534,10 @@ list, it mathces the original pattern."
            (heads (if (stringp value)
                       (list (list key value))
                     (mapcar (lambda (v) (list key v)) value))))
            (heads (if (stringp value)
                       (list (list key value))
                     (mapcar (lambda (v) (list key v)) value))))

-      (cl-loop
+      (loop

          for h in heads
          nconc
          for h in heads
          nconc

-           (cl-loop
+           (loop

               for tl in tails
               collect (append h tl))))))
 
               for tl in tails
               collect (append h tl))))))