From: ueno <ueno>
Date: Sun, 16 Apr 2006 21:51:52 +0000 (+0000)
Subject: Add "Close" button on epa-select-keys.
X-Git-Tag: epgsm-branchpoint~73
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e10715ac8dd3e22663c711e5a266b41676dab41f;p=elisp%2Fepg.git

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

diff --git a/epa.el b/epa.el
index 46e12d0..900e036 100644
--- 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))