From 8b6c9169f498e6f0bd147e4f6e7d339c3b1132de Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sat, 2 Jul 2022 06:04:55 +0200 Subject: [PATCH] * lisp/epa-mail.el (epa-mail-mode-map): Use defvar-keymap. --- lisp/epa-mail.el | 28 +++++++++++++--------------- 1 file changed, 13 insertions(+), 15 deletions(-) diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el index 6170dcb6116..bb34ca72d6b 100644 --- a/lisp/epa-mail.el +++ b/lisp/epa-mail.el @@ -30,21 +30,19 @@ ;;; Local Mode -(defvar epa-mail-mode-map - (let ((keymap (make-sparse-keymap))) - (define-key keymap "\C-c\C-ed" 'epa-mail-decrypt) - (define-key keymap "\C-c\C-ev" 'epa-mail-verify) - (define-key keymap "\C-c\C-es" 'epa-mail-sign) - (define-key keymap "\C-c\C-ee" 'epa-mail-encrypt) - (define-key keymap "\C-c\C-ei" 'epa-mail-import-keys) - (define-key keymap "\C-c\C-eo" 'epa-insert-keys) - (define-key keymap "\C-c\C-e\C-d" 'epa-mail-decrypt) - (define-key keymap "\C-c\C-e\C-v" 'epa-mail-verify) - (define-key keymap "\C-c\C-e\C-s" 'epa-mail-sign) - (define-key keymap "\C-c\C-e\C-e" 'epa-mail-encrypt) - (define-key keymap "\C-c\C-e\C-i" 'epa-mail-import-keys) - (define-key keymap "\C-c\C-e\C-o" 'epa-insert-keys) - keymap)) +(defvar-keymap epa-mail-mode-map + "C-c C-e d" #'epa-mail-decrypt + "C-c C-e v" #'epa-mail-verify + "C-c C-e s" #'epa-mail-sign + "C-c C-e e" #'epa-mail-encrypt + "C-c C-e i" #'epa-mail-import-keys + "C-c C-e o" #'epa-insert-keys + "C-c C-e C-d" #'epa-mail-decrypt + "C-c C-e C-v" #'epa-mail-verify + "C-c C-e C-s" #'epa-mail-sign + "C-c C-e C-e" #'epa-mail-encrypt + "C-c C-e C-i" #'epa-mail-import-keys + "C-c C-e C-o" #'epa-insert-keys) (defvar epa-mail-mode-hook nil) (defvar epa-mail-mode-on-hook nil)