branch: elpa/isl
commit 079741dee14035478cfc5a10fb5e7b6a1f5f1d6e
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Handle invalid-regexp in initial search
---
isl.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/isl.el b/isl.el
index d7cb45b1801..c7135d0c25b 100644
--- a/isl.el
+++ b/isl.el
@@ -733,7 +733,10 @@ symbol or line position according to
`isl-multi-search-in-line'."
'(identity . "")))
(rest (cdr pattern))
(case-fold-search (isl-set-case-fold-search)))
- (cl-loop while (funcall isl-search-function (cdr initial) nil t)
+ (cl-loop while (condition-case _err
+ (funcall isl-search-function (cdr initial) nil t)
+ (invalid-regexp
+ (setq isl--invalid t) nil))
for bounds = (cond ((and rest isl-multi-search-in-line)
(cons (point-at-bol) (1+ (point-at-eol))))
(rest
