diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-09-12 16:47:53 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-09-13 11:06:40 +0200 |
| commit | cbbecd46fda2c07b5e00d5ad63e7487680cd5b36 (patch) | |
| tree | d585a143772c60e13da9bd18a6e836e81753feb0 /lisp/epa-ks.el | |
| parent | a139748e546b86bef3b85d10b9642d62b3e0d69a (diff) | |
| download | emacs-cbbecd46fda2c07b5e00d5ad63e7487680cd5b36.tar.gz emacs-cbbecd46fda2c07b5e00d5ad63e7487680cd5b36.tar.bz2 emacs-cbbecd46fda2c07b5e00d5ad63e7487680cd5b36.zip | |
Prefer defvar-keymap in lisp/epa*.el
* lisp/epa-ks.el (epa-ks-search-mode-map):
* lisp/epa.el (epa-key-list-mode-map, epa-key-mode-map): Prefer
defvar-keymap.
Diffstat (limited to 'lisp/epa-ks.el')
| -rw-r--r-- | lisp/epa-ks.el | 14 |
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." |