[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f3f0918 1/3: Create push-button widgets instead of
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master f3f0918 1/3: Create push-button widgets instead of links in epa *Keys* buffer |
Date: |
Tue, 27 Aug 2019 02:41:55 -0400 (EDT) |
branch: master
commit f3f091899e811bfa5d138be95fca7c0a23c7ec84
Author: Mauro Aranda <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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).
---
lisp/epa.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/epa.el b/lisp/epa.el
index 9e6edf4..b55a55f 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"