[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/corfu db8745f616: Let-bind case-fold-search=nil
From: |
ELPA Syncer |
Subject: |
[elpa] externals/corfu db8745f616: Let-bind case-fold-search=nil |
Date: |
Thu, 11 May 2023 12:57:37 -0400 (EDT) |
branch: externals/corfu
commit db8745f616b859266a0b26fbad061bc576b93c27
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Let-bind case-fold-search=nil
---
corfu.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/corfu.el b/corfu.el
index 00ce4531d7..c5c55363cb 100644
--- a/corfu.el
+++ b/corfu.el
@@ -645,7 +645,8 @@ FRAME is the existing frame."
(defun corfu--match-symbol-p (pattern sym)
"Return non-nil if SYM is matching an element of the PATTERN list."
(and (symbolp sym)
- (cl-loop for x in pattern
+ (cl-loop with case-fold-search = nil
+ for x in pattern
thereis (if (symbolp x)
(eq sym x)
(string-match-p x (symbol-name sym))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/corfu db8745f616: Let-bind case-fold-search=nil,
ELPA Syncer <=