diff options
author | Glenn Morris <rgm@gnu.org> | 2018-03-23 16:13:55 -0400 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2018-03-23 16:14:48 -0400 |
commit | 07e340daaf34504db5f5f71f88505eb524006819 (patch) | |
tree | bae7fcd9e5c836e84e9944bd57be82696ddac7e0 /lisp/obsolete/pgg-gpg.el | |
parent | 3a34c076b9986b1b09fa8c56e9dbda19819da381 (diff) | |
download | emacs-07e340daaf34504db5f5f71f88505eb524006819.tar.gz |
Replace cl in some obsolete files
* lisp/obsolete/assoc.el, lisp/obsolete/fast-lock.el:
* lisp/obsolete/mouse-sel.el: No need for cl.
* lisp/obsolete/lazy-lock.el, lisp/obsolete/pgg-gpg.el:
* lisp/obsolete/pgg-parse.el, lisp/obsolete/pgg-pgp.el:
* lisp/obsolete/pgg-pgp5.el, lisp/obsolete/pgg.el:
* lisp/obsolete/sregex.el: Replace cl with cl-lib.
Diffstat (limited to 'lisp/obsolete/pgg-gpg.el')
-rw-r--r-- | lisp/obsolete/pgg-gpg.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/obsolete/pgg-gpg.el b/lisp/obsolete/pgg-gpg.el index 1bc23cad468..3b890727d14 100644 --- a/lisp/obsolete/pgg-gpg.el +++ b/lisp/obsolete/pgg-gpg.el @@ -27,8 +27,7 @@ ;;; Code: -(eval-when-compile - (require 'cl)) +(eval-when-compile (require 'cl-lib)) (require 'pgg) @@ -303,7 +302,7 @@ passphrase cache or user." (defun pgg-gpg-select-matching-key (message-keys secret-keys) "Choose a key from MESSAGE-KEYS that matches one of the keys in SECRET-KEYS." - (loop for message-key in message-keys + (cl-loop for message-key in message-keys for message-key-id = (and (equal (car message-key) 1) (cdr (assq 'key-identifier (cdr message-key)))) |