diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-02 14:55:15 -0700 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-02 14:58:15 -0700 |
commit | 5f5fe275ec54194a9293690ffee3d425026ac14b (patch) | |
tree | f1c1920af7358b9d5978904328308488af54ec9c /lisp/epa.el | |
parent | d2c4309d46529bac656f332677d2c5e199577845 (diff) | |
download | emacs-5f5fe275ec54194a9293690ffee3d425026ac14b.tar.gz |
Treat help strings like other doc strings
* doc/lispref/text.texi (Special Properties), etc/NEWS: Document this.
* lisp/epa.el (epa--select-keys): Remove no-longer-needed calls to
substitute-command-keys.
* src/keyboard.c (show_help_echo, parse_menu_item): Call
substitute-command-keys on the help string before displaying it.
Diffstat (limited to 'lisp/epa.el')
-rw-r--r-- | lisp/epa.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/epa.el b/lisp/epa.el index f6d60459777..a02f1e93545 100644 --- a/lisp/epa.el +++ b/lisp/epa.el @@ -462,14 +462,12 @@ If ARG is non-nil, mark the key." (widget-create 'link :notify (lambda (&rest _ignore) (abort-recursive-edit)) :help-echo - (substitute-command-keys - "Click here or \\[abort-recursive-edit] to cancel") + "Click here or \\[abort-recursive-edit] to cancel" "Cancel") (widget-create 'link :notify (lambda (&rest _ignore) (exit-recursive-edit)) :help-echo - (substitute-command-keys - "Click here or \\[exit-recursive-edit] to finish") + "Click here or \\[exit-recursive-edit] to finish" "OK") (insert "\n\n") (epa--insert-keys keys) |