summaryrefslogtreecommitdiff
path: root/lisp/epa-ks.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/epa-ks.el')
-rw-r--r--lisp/epa-ks.el14
1 files changed, 6 insertions, 8 deletions
diff --git a/lisp/epa-ks.el b/lisp/epa-ks.el
index 7c60b659f0a..df8a72af70e 100644
--- a/lisp/epa-ks.el
+++ b/lisp/epa-ks.el
@@ -66,14 +66,12 @@ This is used by `epa-ks-lookup-key', for looking up public keys."
"List of arguments to pass to `epa-search-keys'.
This is used when reverting a buffer to restart search.")
-(defvar epa-ks-search-mode-map
- (let ((map (make-sparse-keymap)))
- (suppress-keymap map)
- (define-key map (kbd "f") #'epa-ks-mark-key-to-fetch)
- (define-key map (kbd "i") #'epa-ks-inspect-key-to-fetch)
- (define-key map (kbd "u") #'epa-ks-unmark-key-to-fetch)
- (define-key map (kbd "x") #'epa-ks-do-key-to-fetch)
- map))
+(defvar-keymap epa-ks-search-mode-map
+ :suppress t
+ "f" #'epa-ks-mark-key-to-fetch
+ "i" #'epa-ks-inspect-key-to-fetch
+ "u" #'epa-ks-unmark-key-to-fetch
+ "x" #'epa-ks-do-key-to-fetch)
(define-derived-mode epa-ks-search-mode tabulated-list-mode "Keyserver"
"Major mode for listing public key search results."