From c606abd083387d85e96dbc9b7ebde52f214407c6 Mon Sep 17 00:00:00 2001 From: Jeremy Bryant Date: Mon, 8 Apr 2024 23:11:08 +0100 Subject: [PATCH] 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 660ff22..7d859a9 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))