Add "Close" button on epa-select-keys.

diff --git a/epa.el b/epa.el
index 46e12d0..900e036 100644 (file)
--- a/epa.el
+++ b/epa.el
@@ -215,6 +215,9 @@
       (widget-create 'link 
                     :tag (epg-sub-key-id primary-sub-key)
                     :notify 'epa-show-key-notify
+                    :help-echo
+                    (format "Show key %s"
+                            (epg-sub-key-id primary-sub-key))
                     (car keys))
       (insert " " (epg-user-id-name primary-user-id) "\n")
       (put-text-property point (point) 'epa-key (car keys))
@@ -229,9 +232,14 @@
        point)
     (set-buffer epa-keys-buffer)
     (erase-buffer)
-    (insert prompt "\n\n"
-           (substitute-command-keys "\\[exit-recursive-edit] to exit.")
-           "\n\n")
+    (insert prompt "\n")
+    (widget-create 'link
+                  :notify (lambda (&rest ignore) (exit-recursive-edit))
+                  :help-echo
+                  (substitute-command-keys
+                   "Click here or \\[exit-recursive-edit] to exit")
+                  "Close")
+    (insert "\n\n")
     (if names
        (while names
          (setq point (point))