diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-04-30 05:44:17 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-04-30 05:44:17 +0000 |
| commit | 703b961194aba79bed93bc9905eb444d20ce1552 (patch) | |
| tree | df7e9761c2ae5e9bcf4a095dc4e06ff569f6f850 /lisp/epa.el | |
| parent | 4b33a64a24a7c7514f0e50bf094336fa3680d0ee (diff) | |
| download | emacs-703b961194aba79bed93bc9905eb444d20ce1552.tar.gz | |
(epa-key-list-mode-map): Add more menu entries.
Add ... in the appropriate places.
Diffstat (limited to 'lisp/epa.el')
| -rw-r--r-- | lisp/epa.el | 34 |
1 files changed, 23 insertions, 11 deletions
diff --git a/lisp/epa.el b/lisp/epa.el index 8d20a61ecea..9e02b6443b6 100644 --- a/lisp/epa.el +++ b/lisp/epa.el @@ -219,23 +219,35 @@ You should bind this variable with `let', but do not set it globally.") (define-key keymap [delete] 'scroll-down) (define-key keymap "q" 'epa-exit-buffer) (define-key keymap [menu-bar epa-key-list-mode] (cons "Keys" menu-map)) + (define-key menu-map [epa-key-list-unmark-key] + '(menu-item "Unmark Key" epa-unmark-key + :help "Unmark a key")) + (define-key menu-map [epa-key-list-mark-key] + '(menu-item "Mark Key" epa-mark-key + :help "Mark a key")) + (define-key menu-map [separator-epa-file] '(menu-item "--")) + (define-key menu-map [epa-verify-file] + '(menu-item "Verify File..." epa-verify-file + :help "Verify FILE")) + (define-key menu-map [epa-sign-file] + '(menu-item "Sign File..." epa-sign-file + :help "Sign FILE by SIGNERS keys selected")) + (define-key menu-map [epa-decrypt-file] + '(menu-item "Decrypt File..." epa-decrypt-file + :help "Decrypt FILE")) + (define-key menu-map [epa-encrypt-file] + '(menu-item "Encrypt File.." epa-encrypt-file + :help "Encrypt FILE for RECIPIENTS")) + (define-key menu-map [separator-epa-key-list] '(menu-item "--")) (define-key menu-map [epa-key-list-delete-keys] '(menu-item "Delete keys" epa-delete-keys - :help "Delete marked keys")) + :help "Delete Marked Keys")) (define-key menu-map [epa-key-list-import-keys] - '(menu-item "Import keys" epa-import-keys + '(menu-item "Import Keys" epa-import-keys :help "Import keys from a file")) (define-key menu-map [epa-key-list-export-keys] - '(menu-item "Export keys" epa-export-keys + '(menu-item "Export Keys" epa-export-keys :help "Export marked keys to a file")) - (define-key menu-map [separator-epa-key-list] - '(menu-item "--")) - (define-key menu-map [epa-key-list-unmark-key] - '(menu-item "Unmark key" epa-unmark-key - :help "Unmark a key")) - (define-key menu-map [epa-key-list-mark-key] - '(menu-item "Mark key" epa-mark-key - :help "Mark a key")) keymap)) (defvar epa-key-mode-map |