Allow map!'s :prefix to accept key vectors

2018-06-15 16:15:24 +02:00 · 2018-06-15 16:15:24 +02:00 · 11b5a7116f
commit 11b5a7116f
parent 9e54e393ea
1 changed files with 7 additions and 1 deletions
--- a/core/core-keybinds.el
+++ b/core/core-keybinds.el
@ -249,7 +249,13 @@ Example
                    forms)))
          (:prefix
            (let ((def (pop rest)))
-              (setq doom--prefix `(vconcat ,doom--prefix (kbd ,def)))
+              (setq doom--prefix
+                    `(vconcat ,doom--prefix
+                              ,(if (or (stringp def)
+                                       (and (symbolp def)
+                                            (stringp (symbol-value def))))
+                                   `(kbd ,def)
+                                 def)))
              (when desc
                (push `(doom--keybind-register ,(key-description (eval doom--prefix))
                                               ,desc ',modes)