branch: externals/which-key
commit c606abd083387d85e96dbc9b7ebde52f214407c6
Author: Jeremy Bryant <[email protected]>
Commit: Justin Burkett <[email protected]>
Add explicit binding to nil in let
* which-key.el (which-key--match-replacement,
which-key--propertize-key): Add explicit binding of case-fold-search to nil.
---
which-key.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/which-key.el b/which-key.el
index 660ff22801..7d859a90bc 100644
--- a/which-key.el
+++ b/which-key.el
@@ -1551,7 +1551,7 @@ Within these categories order using
`which-key-key-order'."
(when (and (consp key-binding) (not (symbolp (car replacement))))
(let ((key-regexp (caar replacement))
(binding-regexp (cdar replacement))
- case-fold-search)
+ (case-fold-search nil))
(and (or (null key-regexp)
(string-match-p key-regexp
(car key-binding)))
@@ -1684,7 +1684,7 @@ If KEY contains any \"special keys\" defined in
(mapconcat #'identity which-key-special-keys
"\\|")
"\\)"))
- case-fold-search)
+ (case-fold-search nil))
(save-match-data
(if (and which-key-special-keys
(string-match regexp key))
