[Emacs-diffs] /srv/bzr/emacs/trunk r107749: epa: bind C-c C-c to finish key selection.

[Daiki Ueno]

------------------------------------------------------------
revno: 107749
committer: Daiki Ueno <address@hidden>
branch nick: trunk
timestamp: Wed 2012-04-04 10:38:37 +0900
message:
  epa: bind C-c C-c to finish key selection.
modified:
  lisp/ChangeLog
  lisp/epa.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-04 01:05:29 +0000
+++ b/lisp/ChangeLog    2012-04-04 01:38:37 +0000
@@ -1,3 +1,10 @@
+2012-04-04  Daiki Ueno  <address@hidden>
+
+       * 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  <address@hidden>
 
        * mail/emacsbug.el (report-emacs-bug): Bind inhibit-read-only.

=== modified file 'lisp/epa.el'
--- a/lisp/epa.el       2012-01-19 07:21:25 +0000
+++ b/lisp/epa.el       2012-04-04 01:38:37 +0000
@@ -482,6 +482,8 @@
     (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 @@
   "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)