Commit 2d562c0f authored by Daiki Ueno's avatar Daiki Ueno
Browse files

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

parent 4443f204
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>
* mail/emacsbug.el (report-emacs-bug): Bind inhibit-read-only.
......
......@@ -482,6 +482,8 @@ If ARG is non-nil, mark the key."
(setq epa-keys-buffer (generate-new-buffer "*Keys*")))
(with-current-buffer epa-keys-buffer
(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)
buffer-read-only)
(erase-buffer)
......@@ -1236,7 +1238,8 @@ between START and END."
"Insert selected KEYS after the point."
(interactive
(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)))
;;(epg-context-set-armor context epa-armor)
(epg-context-set-armor context t)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment