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 ()
