From 78b84da382c9d323c11e61abd0c327fcfcb0afb0 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Mon, 26 Jul 2010 14:22:13 +0900 Subject: [PATCH] Add alternative key bindings to epa-mail.el. * epa-mail.el (epa-mail-mode-map): Add alternative key bindings which consist of control chars only. Suggested by Richard Stallman. --- lisp/ChangeLog | 6 ++++++ lisp/epa-mail.el | 6 ++++++ 2 files changed, 12 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e5629f41588..9d6f0ed0d98 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2010-07-26 Daiki Ueno + + * epa-mail.el (epa-mail-mode-map): Add alternative key bindings + which consist of control chars only. Suggested by Richard + Stallman. + 2010-07-25 Daiki Ueno * epa-file.el (epa-file-insert-file-contents): Check if LOCAL-FILE diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el index b3c31fe4354..69fb6d7d7e8 100644 --- a/lisp/epa-mail.el +++ b/lisp/epa-mail.el @@ -32,6 +32,12 @@ (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 epa-mail-mode-hook nil) -- 2.11.4.GIT