diff options
author | Stefan Kangas <stefan@marxist.se> | 2020-10-18 16:49:55 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2020-10-18 17:25:23 +0200 |
commit | 420023a6f066d6ffb85e23ffe3abcfee3d523ea7 (patch) | |
tree | 15f408b22538e59be8a71d6d4b8eda2e4fbbe606 /lisp/help.el | |
parent | ef5a604f082f772424400f48b64e9c04edbcc766 (diff) | |
download | emacs-420023a6f066d6ffb85e23ffe3abcfee3d523ea7.tar.gz |
Prefer Lisp version of describer in help--describe-vector
* src/keymap.c (Fhelp__describe_vector):
* lisp/help.el (describe-map): Use Lisp versions of describe_command
and describe_translation.
* src/keymap.c (describe_command, describe_translation): Remove.
(describe_vector_basic): New function.
Diffstat (limited to 'lisp/help.el')
-rw-r--r-- | lisp/help.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index e8dfbdef74a..6ae2664cf41 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1274,10 +1274,13 @@ TRANSL, PARTIAL, SHADOW, NOMENU, MENTION-SHADOW are as in (map (keymap-canonicalize map)) (tail map) (first t) + (describer (if transl + #'help--describe-translation + #'help--describe-command)) done vect) (while (and (consp tail) (not done)) (cond ((or (vectorp (car tail)) (char-table-p (car tail))) - (help--describe-vector (car tail) prefix transl partial + (help--describe-vector (car tail) prefix describer partial shadow map mention-shadow)) ((consp (car tail)) (let ((event (caar tail)) |