branch: externals/which-key
commit 51c485f16b4724488bcf2cbf7933fbd9eede1edd
Author: Justin Burkett <[email protected]>
Commit: Justin Burkett <[email protected]>
Don't ignore case when making replacements
Fixes #204
---
which-key.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/which-key.el b/which-key.el
index 70a6d18..08f259d 100644
--- a/which-key.el
+++ b/which-key.el
@@ -1406,7 +1406,8 @@ local bindings coming first. Within these categories
order using
;; handled in the selection of alist
(when (and (consp key-binding) (not (symbolp (car replacement))))
(let ((key-regexp (caar replacement))
- (binding-regexp (cdar replacement)))
+ (binding-regexp (cdar replacement))
+ case-fold-search)
(and (or (null key-regexp)
(string-match-p key-regexp
(car key-binding)))
