branch: elpa/isl
commit 134c3b74752b9fe2df40a58e1b4e5b73e5105c3b
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Add comment
---
isl.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/isl.el b/isl.el
index d38ec15c91c..38e0e0f4dd4 100644
--- a/isl.el
+++ b/isl.el
@@ -909,6 +909,11 @@ See `isl-requires-pattern'."
(cl-incf count))
(when (= (car bounds) (cdr bounds))
(forward-line 1)
+ ;; If we are here we are matching empty lines and
+ ;; isl--re-search-forward fails on this new
+ ;; empty line (re-search-forward instead would be
+ ;; stuck and infloop) so match it with looking-at
+ ;; and use GO value in next turn of the loop.
(when (and (looking-at isl-pattern) (not (eobp)))
(setq go (cons (pos-bol) (pos-eol))))))
(invalid-regexp (setq isl--invalid t) nil))
