diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-07-02 06:04:55 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-07-02 06:36:26 +0200 |
| commit | 8b6c9169f498e6f0bd147e4f6e7d339c3b1132de (patch) | |
| tree | 49717eb86fb232a4a9ae3cfc73a17730bf56e757 /lisp/epa-mail.el | |
| parent | 3b66c23325909fef077831c5f289221583e75bd7 (diff) | |
| download | emacs-8b6c9169f498e6f0bd147e4f6e7d339c3b1132de.tar.gz emacs-8b6c9169f498e6f0bd147e4f6e7d339c3b1132de.tar.bz2 emacs-8b6c9169f498e6f0bd147e4f6e7d339c3b1132de.zip | |
* lisp/epa-mail.el (epa-mail-mode-map): Use defvar-keymap.
Diffstat (limited to 'lisp/epa-mail.el')
| -rw-r--r-- | lisp/epa-mail.el | 28 |
1 files 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) |