From: David Engster Date: Sun, 23 Feb 2014 12:11:33 +0000 (+0100) Subject: Do not use cl-lib functions since those are unavailable on older Emacsen. X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=adf889ef6b5a38c8655714703719e582e36f0de6 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 828d3d915..14b3eed4a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2014-02-23 David Engster + + * 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 * auth-source.el (auth-source-secrets-listify-pattern): New function. diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 103b66e73..d1437d472 100644 --- 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)))) - (cl-loop + (loop for h in heads nconc - (cl-loop + (loop for tl in tails collect (append h tl))))))