[nongnu] elpa/tuareg 34090741ee 2/2: Merge pull request #303 from janestreet/fix-pattern-pre-form-let

[ELPA Syncer]

branch: elpa/tuareg
commit 34090741ee56809bc0a7937988521dcf7b7a94b2
Merge: 53ce2fdfdd a19099803d
Author: monnier <monnier@iro.umontreal.ca>
Commit: GitHub <noreply@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))