From 4cc06f7ec6e029ac5cc31d1dc44e5f950957441e Mon Sep 17 00:00:00 2001 From: Mauro Aranda Date: Sun, 25 Aug 2019 11:33:54 -0300 Subject: [PATCH] Create push-button widgets instead of links in epa *Keys* buffer * lisp/epa.el (epa--select-keys): OK and Cancel should be buttons. --- lisp/epa.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/epa.el b/lisp/epa.el index 9e6edf4..b55a55f 100644 --- a/lisp/epa.el +++ b/lisp/epa.el @@ -440,12 +440,12 @@ epa--select-keys (substitute-command-keys "\ - `\\[epa-mark-key]' to mark a key on the line - `\\[epa-unmark-key]' to unmark a key on the line\n")) - (widget-create 'link + (widget-create 'push-button :notify (lambda (&rest _ignore) (abort-recursive-edit)) :help-echo "Click here or \\[abort-recursive-edit] to cancel" "Cancel") - (widget-create 'link + (widget-create 'push-button :notify (lambda (&rest _ignore) (exit-recursive-edit)) :help-echo "Click here or \\[exit-recursive-edit] to finish" -- 2.7.4