From e10715ac8dd3e22663c711e5a266b41676dab41f Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 16 Apr 2006 21:51:52 +0000 Subject: [PATCH] Add "Close" button on epa-select-keys. --- epa.el | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) 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)) -- 1.7.10.4