emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/pcmpl-args 910f42cdbd 31/33: Fix package-lint warnings


From: ELPA Syncer
Subject: [nongnu] elpa/pcmpl-args 910f42cdbd 31/33: Fix package-lint warnings
Date: Mon, 31 Jan 2022 11:59:28 -0500 (EST)

branch: elpa/pcmpl-args
commit 910f42cdbd4eba777ebaa990e214cc1f0abf9ece
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Troy Hinckley <t.macman@gmail.com>

    Fix package-lint warnings
---
 pcmpl-args.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/pcmpl-args.el b/pcmpl-args.el
index 1470b88dc6..9af97f8c4e 100644
--- a/pcmpl-args.el
+++ b/pcmpl-args.el
@@ -93,12 +93,11 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'cl-lib))
+(eval-when-compile (require 'subr-x))
+(require 'cl-lib)
 (require 'pcomplete)
 (require 'pcmpl-unix)
 (require 'pcmpl-linux)
-(require 'pcmpl-gnu)
-(require 'subr-x)
 
 (defgroup pcmpl-args nil
   "Refined argument completion for use with pcomplete."
@@ -3480,6 +3479,10 @@ return only directories."
            (cl-delete-if #'dotp)
            (mapcar #'chop)))))))
 
+(defvar epa-protocol)
+(declare-function epg-list-keys "epg")
+(declare-function epg-key-user-id-list "epg")
+(declare-function epg-key-sub-key-list "epg")
 (defun pcmpl-args-pass-keys (args)
   "Return a list of gpg secret keys.
 This list is filtered based on `ARGS', which is an alist with
@@ -3494,8 +3497,8 @@ entered, it will be removed from returned list."
          (extract-fingerprints
           (lambda (key)
             (append
-             (mapcar #'epg-user-id-string (epg-key-user-id-list key))
-             (mapcar #'epg-sub-key-fingerprint (epg-key-sub-key-list key))))))
+             (mapcar 'epg-user-id-string (epg-key-user-id-list key))
+             (mapcar 'epg-sub-key-fingerprint (epg-key-sub-key-list key))))))
     (cl-set-difference (mapcan extract-fingerprints keys)
                        (cadr (assq '* args))
                        :test #'string=)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]