mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

epa: bind C-c C-c to finish key selection.

Browse source
This commit is contained in:
Daiki Ueno 2012-04-04 10:38:37 +09:00
parent 4443f2045b
commit 2d562c0fbb
2 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2012-04-04 Daiki Ueno <ueno@unixuser.org>
* epa.el (epa--select-keys): Bind C-c C-c to finish the key
selection (Bug#11159).
(epa-insert-keys): Inform that the default public key will be
exported if no key is selected.
2012-04-04 Richard Stallman <rms@gnu.org> 2012-04-04 Richard Stallman <rms@gnu.org>
* mail/emacsbug.el (report-emacs-bug): Bind inhibit-read-only. * mail/emacsbug.el (report-emacs-bug): Bind inhibit-read-only.

5
lisp/epa.el
View file

@ -482,6 +482,8 @@ If ARG is non-nil, mark the key."
(setq epa-keys-buffer (generate-new-buffer "*Keys*"))) (setq epa-keys-buffer (generate-new-buffer "*Keys*")))
(with-current-buffer epa-keys-buffer (with-current-buffer epa-keys-buffer
(epa-key-list-mode) (epa-key-list-mode)
;; C-c C-c is the usual way to finish the selection (bug#11159).
(define-key (current-local-map) "\C-c\C-c" 'exit-recursive-edit)
(let ((inhibit-read-only t) (let ((inhibit-read-only t)
buffer-read-only) buffer-read-only)
(erase-buffer) (erase-buffer)
@ -1236,7 +1238,8 @@ between START and END."
"Insert selected KEYS after the point." "Insert selected KEYS after the point."
(interactive (interactive
(list (epa-select-keys (epg-make-context epa-protocol) (list (epa-select-keys (epg-make-context epa-protocol)
"Select keys to export. "))) "Select keys to export.
If no one is selected, default public key is exported. ")))
(let ((context (epg-make-context epa-protocol))) (let ((context (epg-make-context epa-protocol)))
;;(epg-context-set-armor context epa-armor) ;;(epg-context-set-armor context epa-armor)
(epg-context-set-armor context t) (epg-context-set-armor context t)