Mercurial > emacs
changeset 109546:018487fd2873
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.
| author | Daiki Ueno <ueno@unixuser.org> |
|---|---|
| date | Mon, 26 Jul 2010 14:22:13 +0900 |
| parents | 0526a9cf04a3 |
| children | 05aff7edcc3d |
| files | lisp/ChangeLog lisp/epa-mail.el |
| diffstat | 2 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Jul 26 13:30:05 2010 +0900 +++ b/lisp/ChangeLog Mon Jul 26 14:22:13 2010 +0900 @@ -1,3 +1,9 @@ +2010-07-26 Daiki Ueno <ueno@unixuser.org> + + * 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 <ueno@unixuser.org> * epa-file.el (epa-file-insert-file-contents): Check if LOCAL-FILE
--- a/lisp/epa-mail.el Mon Jul 26 13:30:05 2010 +0900 +++ b/lisp/epa-mail.el Mon Jul 26 14:22:13 2010 +0900 @@ -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)