From 07e340daaf34504db5f5f71f88505eb524006819 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 23 Mar 2018 16:13:55 -0400 Subject: 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. --- lisp/obsolete/pgg-gpg.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'lisp/obsolete/pgg-gpg.el') 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)))) -- cgit v1.2.1