branch: externals/vertico
commit 926234ab3fbe2b89e8c7ddfccecff518d73ac6ba
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@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."
