diff options
| author | Mauro Aranda | 2019-08-27 08:39:04 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-08-27 08:39:04 +0200 |
| commit | f3f091899e811bfa5d138be95fca7c0a23c7ec84 (patch) | |
| tree | 05a1403aaa0fe5dfba41f8ff175172e452eed628 | |
| parent | 0e2d559daf43a04024ceaacfc8844839af2d50df (diff) | |
| download | emacs-f3f091899e811bfa5d138be95fca7c0a23c7ec84.tar.gz emacs-f3f091899e811bfa5d138be95fca7c0a23c7ec84.zip | |
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).
| -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." | |||
| 440 | (substitute-command-keys "\ | 440 | (substitute-command-keys "\ |
| 441 | - `\\[epa-mark-key]' to mark a key on the line | 441 | - `\\[epa-mark-key]' to mark a key on the line |
| 442 | - `\\[epa-unmark-key]' to unmark a key on the line\n")) | 442 | - `\\[epa-unmark-key]' to unmark a key on the line\n")) |
| 443 | (widget-create 'link | 443 | (widget-create 'push-button |
| 444 | :notify (lambda (&rest _ignore) (abort-recursive-edit)) | 444 | :notify (lambda (&rest _ignore) (abort-recursive-edit)) |
| 445 | :help-echo | 445 | :help-echo |
| 446 | "Click here or \\[abort-recursive-edit] to cancel" | 446 | "Click here or \\[abort-recursive-edit] to cancel" |
| 447 | "Cancel") | 447 | "Cancel") |
| 448 | (widget-create 'link | 448 | (widget-create 'push-button |
| 449 | :notify (lambda (&rest _ignore) (exit-recursive-edit)) | 449 | :notify (lambda (&rest _ignore) (exit-recursive-edit)) |
| 450 | :help-echo | 450 | :help-echo |
| 451 | "Click here or \\[exit-recursive-edit] to finish" | 451 | "Click here or \\[exit-recursive-edit] to finish" |