]> git.eshelyaron.com Git - emacs.git/commitdiff
Create push-button widgets instead of links in epa *Keys* buffer
authorMauro Aranda <maurooaranda@gmail.com>
Tue, 27 Aug 2019 06:39:04 +0000 (08:39 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Tue, 27 Aug 2019 06:39:04 +0000 (08:39 +0200)
* lisp/epa.el (epa--select-keys): Make OK and Cancel into buttons
(bug#15682).

lisp/epa.el

index 9e6edf463c6b461abc8fefe98a42bb79f033739f..b55a55fbb9a1ed90979cf45408aab084f5504551 100644 (file)
@@ -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"