From: Mauro Aranda <maurooaranda@gmail.com>
Date: Tue, 27 Aug 2019 06:39:04 +0000 (+0200)
Subject: Create push-button widgets instead of links in epa *Keys* buffer
X-Git-Tag: emacs-27.0.90~1328^2~61
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f3f091899e811bfa5d138be95fca7c0a23c7ec84;p=emacs.git

Create push-button widgets instead of links in epa *Keys* buffer

* lisp/epa.el (epa--select-keys): Make OK and Cancel into buttons
(bug#15682).
---

diff --git a/lisp/epa.el b/lisp/epa.el
index 9e6edf463c6..b55a55fbb9a 100644
--- a/lisp/epa.el
+++ b/lisp/epa.el
@@ -440,12 +440,12 @@ If ARG is non-nil, mark the key."
 	      (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"