branch: elpa/helm
commit 3177a7fd02cadedf9abf93e6e41aca13c6267e11
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Handle invalid-regexp in helm-mm-3p
---
helm-multi-match.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/helm-multi-match.el b/helm-multi-match.el
index f5fa27b29d..db362fa5b3 100644
--- a/helm-multi-match.el
+++ b/helm-multi-match.el
@@ -405,7 +405,10 @@ E.g. \"bar foo baz\" will match \"barfoobaz\" or
\"barbazfoo\" but not
(first (car pat)))
(and (funcall (car first) (helm-mm-prefix-match candidate (cdr first)))
(cl-loop for (predicate . regexp) in (cdr pat)
- always (funcall predicate (string-match regexp candidate))))))
+ always (funcall predicate
+ (condition-case _err
+ (string-match regexp candidate)
+ (invalid-regexp nil)))))))
(defun helm-mm-3p-search (pattern &rest _ignore)
(helm-mm-3-search-base
