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 | |
| parent | 4b33a64a24a7c7514f0e50bf094336fa3680d0ee (diff) | |
| download | emacs-703b961194aba79bed93bc9905eb444d20ce1552.tar.gz | |
(epa-key-list-mode-map): Add more menu entries.
Add ... in the appropriate places.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/epa.el | 34 |
2 files changed, 26 insertions, 11 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1499f15a921..7b3cd0ffd89 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-04-30 Dan Nicolaescu <dann@ics.uci.edu> + * epa.el (epa-key-list-mode-map): Add more menu entries. + Add ... in the appropriate places. + * dired.el (dired-mode-map): Add :help. * vc.el (vc-deduce-fileset): Add new parameter. 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 |