diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-06-06 12:26:23 +0200 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-06-06 12:26:23 +0200 |
| commit | 53f5204ad3f541e11eb6eeb9b86584964b7a3678 (patch) | |
| tree | cf91e8ba840e123765198e600187917392ceff9e | |
| parent | ac4aeb66f331f4c4a430d5556071e33177304c37 (diff) | |
orderless-not, orderless-annotation: Respect smart-case (Fix #174)
| -rw-r--r-- | orderless.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/orderless.el b/orderless.el index c71e82a..41910b6 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." |