Fix which-key labels for alt leader key #1332

Also mentioned in #1240
This commit is contained in:
Henrik Lissner 2019-04-15 15:39:33 -04:00
parent 12161e1b67
commit 068a324fd1
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -101,6 +101,10 @@ If any hook returns non-nil, all hooks after it are ignored.")
,bdef) ,bdef)
forms)) forms))
(when-let* ((desc (plist-get udef :which-key))) (when-let* ((desc (plist-get udef :which-key)))
(push `(which-key-add-key-based-replacements
(general--concat t doom-leader-alt-key ,key)
,desc)
wkforms)
(push `(which-key-add-key-based-replacements (push `(which-key-add-key-based-replacements
(general--concat t doom-leader-key ,key) (general--concat t doom-leader-key ,key)
,desc) ,desc)