Commit f3f09189 authored by Mauro Aranda's avatar Mauro Aranda Committed by Lars Ingebrigtsen

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).
parent 0e2d559d
......@@ -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"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment