Escape key regexps when building which-key leader prefix

This commit is contained in:
Jeffrey Chu 2019-03-31 12:38:42 -07:00 committed by GitHub
parent be6efd8dbf
commit ec76d9acb6
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -124,8 +124,8 @@ If any hook returns non-nil, all hooks after it are ignored.")
(concat "\\(?:"
(cl-loop for key in (append (list doom-leader-key doom-leader-alt-key)
(where-is-internal 'doom/leader))
if (stringp key) collect key into keys
else collect (key-description key) into keys
if (stringp key) collect (regexp-quote key) into keys
else collect (regexp-quote (key-description key)) into keys
finally return (string-join keys "\\|"))
"\\)"))))
(add-hook 'doom-after-init-modules-hook #'doom|init-leader-keys)