branch: externals/orderless
commit 9b70ac8df2bd3c13d350a509dce4e696b3dc5cd0
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
orderless-filter: Remove unnecessary condition-case
---
orderless.el | 24 +++++++++++-------------
1 file changed, 11 insertions(+), 13 deletions(-)
diff --git a/orderless.el b/orderless.el
index 5be0a12193..0ec8205e9a 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)
