From 068a324fd1e872f1c7973ad819add422c9b6c499 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Mon, 15 Apr 2019 15:39:33 -0400
Subject: [PATCH] Fix which-key labels for alt leader key #1332

Also mentioned in #1240
---
 core/core-keybinds.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/core/core-keybinds.el b/core/core-keybinds.el
index f35f6c1a4..dee061219 100644
--- a/core/core-keybinds.el
+++ b/core/core-keybinds.el
@@ -101,6 +101,10 @@ If any hook returns non-nil, all hooks after it are ignored.")
                        ,bdef)
                     forms))
             (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
                        (general--concat t doom-leader-key ,key)
                        ,desc)