[elpa] externals/vertico 926234ab3f 2/2: Let-bind case-fold-search

[ELPA Syncer]

branch: externals/vertico
commit 926234ab3fbe2b89e8c7ddfccecff518d73ac6ba
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Let-bind case-fold-search
---
 extensions/vertico-multiform.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/extensions/vertico-multiform.el b/extensions/vertico-multiform.el
index ea844c0057..4953e7c136 100644
--- a/extensions/vertico-multiform.el
+++ b/extensions/vertico-multiform.el
@@ -95,12 +95,13 @@ category settings have lower precedence than
   "Lookup symbolic KEY in LIST.
 The keys in LIST can be symbols or regexps."
   (and (symbolp key)
-       (seq-find (lambda (x)
-                   (cond
-                    ((eq (car x) t))
-                    ((symbolp (car x)) (eq key (car x)))
-                    ((string-match-p (car x) (symbol-name key)))))
-                 list)))
+       (let (case-fold-search)
+         (seq-find (pcase-lambda (`(,x . ,_))
+                     (cond
+                      ((eq x t))
+                      ((symbolp x) (eq key x))
+                      ((string-match-p x (symbol-name key)))))
+                   list))))
 
 (defun vertico-multiform--setup ()
   "Enable modes at minibuffer setup."