diff options
author | Mauro Aranda <maurooaranda@gmail.com> | 2019-08-27 08:39:04 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-27 08:39:04 +0200 |
commit | f3f091899e811bfa5d138be95fca7c0a23c7ec84 (patch) | |
tree | 05a1403aaa0fe5dfba41f8ff175172e452eed628 /lisp/epa.el | |
parent | 0e2d559daf43a04024ceaacfc8844839af2d50df (diff) | |
download | emacs-f3f091899e811bfa5d138be95fca7c0a23c7ec84.tar.gz |
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).
Diffstat (limited to 'lisp/epa.el')
-rw-r--r-- | lisp/epa.el | 4 |
1 files changed, 2 insertions, 2 deletions
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" |