branch: externals/orderless
commit 53f5204ad3f541e11eb6eeb9b86584964b7a3678
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
orderless-not, orderless-annotation: Respect smart-case (Fix #174)
---
orderless.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/orderless.el b/orderless.el
index c71e82a208..41910b670c 100644
--- a/orderless.el
+++ b/orderless.el
@@ -285,7 +285,9 @@ which can invert any predicate or regexp."
"Return t if STR matches PRED and REGEXP."
(and str
(or (not pred) (funcall pred str))
- (or (not regexp) (string-match-p regexp str))))
+ (or (not regexp)
+ (let ((case-fold-search completion-ignore-case))
+ (string-match-p regexp str)))))
(defun orderless-not (pred regexp)
"Match strings that do *not* match PRED and REGEXP."
