1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 07:51:17 -08:00

Further simplify which-key--pseudo-key

This commit is contained in:
Justin Burkett 2020-12-16 12:20:14 -05:00
parent 3908719ff2
commit 428aedfce0

View file

@ -1596,7 +1596,7 @@ which are strings. KEY is of the form produced by `key-binding'."
"Replace the last key in the sequence KEY by a special symbol
in order for which-key to allow looking up a description for the key."
(let ((seq (listify-key-sequence key)))
(vconcat (or prefix (butlast seq)) (vector 'which-key (last seq)))))
(vconcat (or prefix (butlast seq)) [which-key] (last seq))))
(defun which-key--maybe-get-prefix-title (keys)
"KEYS is a string produced by `key-description'.