Don't ignore case when making replacements

Fixes #204

1 files changed, 2 insertions, 1 deletions

diff --git a/which-key.el b/which-key.el
index 70a6d18ae99..08f259d7ba5 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)))