[nongnu] externals/caml a0d389f 058/197: skip structs in let module ... in

[Stefan Monnier]

branch: externals/caml
commit a0d389f3c6756115e14bd6c03c3f2a1687ad04de
Author: Jacques Garrigue <garrigue at math.nagoya-u.ac.jp>
Commit: Jacques Garrigue <garrigue at math.nagoya-u.ac.jp>

    skip structs in let module ... in
    
    
    git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5068 
f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 caml.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/caml.el b/caml.el
index bfe1b59..95cc096 100644
--- a/caml.el
+++ b/caml.el
@@ -1244,11 +1244,12 @@ the line where the governing keyword occurs.")
 (defun caml-find-in-match ()
   (let ((unbalanced 1) (kwop t))
     (while (and (not (= 0 unbalanced)) kwop)
-      (setq kwop (caml-find-kwop "\\<\\(in\\|let\\)\\>"))
+      (setq kwop (caml-find-kwop "\\<\\(in\\|let\\|end\\)\\>"))
       (cond
        ((not kwop))
+       ((string= kwop "end") (caml-find-end-match))
        ((string= kwop "in") (setq unbalanced (1+ unbalanced)))
-       ( t (setq unbalanced (1- unbalanced)))))
+       (t (setq unbalanced (1- unbalanced)))))
     kwop))
 
 (defun caml-find-with-match ()