branch: elpa/tuareg
commit 34090741ee56809bc0a7937988521dcf7b7a94b2
Merge: 53ce2fdfdd a19099803d
Author: monnier <monn...@iro.umontreal.ca>
Commit: GitHub <nore...@github.com>
Merge pull request #303 from janestreet/fix-pattern-pre-form-let
Prevent "Invalid search bound" error on long patterns
---
tuareg.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/tuareg.el b/tuareg.el
index f032fe2495..0c5a2e30dd 100644
--- a/tuareg.el
+++ b/tuareg.el
@@ -1348,6 +1348,7 @@ It must not be used outside fontification purposes."
pos)
(setq tuareg--pattern-matcher-limit nil)
(while (and
+ (<= (point) limit)
(setq pos (re-search-forward "[=({:]" limit t))
(progn
(backward-char)
@@ -1387,6 +1388,7 @@ It must not be used outside fontification purposes."
(limit (+ opoint 800))
pos)
(while (and
+ (<= (point) limit)
(setq pos (re-search-forward "[-({]" limit t))
(cond
((or (char-equal ?\( (char-before))
