diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2021-03-23 19:31:49 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2021-03-23 19:31:49 +0100 |
| commit | 9b70ac8df2bd3c13d350a509dce4e696b3dc5cd0 (patch) | |
| tree | 5beebd4b3c68bf3420d81c042cf06636bba38df9 /orderless.el | |
| parent | 150155ce3cdd28a8a94cdf99d769b2350cf07b5c (diff) | |
orderless-filter: Remove unnecessary condition-case
Diffstat (limited to 'orderless.el')
| -rw-r--r-- | orderless.el | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/orderless.el b/orderless.el index 5be0a12..0ec8205 100644 --- a/orderless.el +++ b/orderless.el @@ -411,19 +411,17 @@ The predicate PRED is used to constrain the entries in TABLE." (defun orderless-filter (string table &optional pred) "Split STRING into components and find entries TABLE matching all. The predicate PRED is used to constrain the entries in TABLE." - (condition-case nil - (save-match-data - (pcase-let* ((`(,prefix . ,pattern) - (orderless--prefix+pattern string table pred)) - (completion-regexp-list - (funcall orderless-pattern-compiler pattern)) - (completion-ignore-case - (if orderless-smart-case - (cl-loop for regexp in completion-regexp-list - always (isearch-no-upper-case-p regexp t)) - completion-ignore-case))) - (all-completions prefix table pred))) - (invalid-regexp nil))) + (save-match-data + (pcase-let* ((`(,prefix . ,pattern) + (orderless--prefix+pattern string table pred)) + (completion-regexp-list + (funcall orderless-pattern-compiler pattern)) + (completion-ignore-case + (if orderless-smart-case + (cl-loop for regexp in completion-regexp-list + always (isearch-no-upper-case-p regexp t)) + completion-ignore-case))) + (all-completions prefix table pred)))) ;;;###autoload (defun orderless-all-completions (string table pred _point) |
