[nongnu] externals/caml 98d5eef 024/197: refinements

[Stefan Monnier]

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

    refinements
    
    
    git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2457 
f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 caml.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/caml.el b/caml.el
index adc76d6..153d42d 100644
--- a/caml.el
+++ b/caml.el
@@ -1172,13 +1172,14 @@ the line where the governing keyword occurs.")
     (while (and (not (= 0 unbalanced)) kwop)
       (setq kwop
            (caml-find-kwop
-            "\\<\\(with\\|try\\|m\\(atch\\|odule\\)\\|functor\\)\\>\\|{"))
+            "\\<\\(with\\|try\\|m\\(atch\\|odule\\)\\|functor\\)\\>\\|{\\|}"))
       (cond
        ((not kwop))
        ((or (string= kwop "module") (string= kwop "functor"))
        (setq unbalanced 0))
-       ((string= kwop "with") (setq unbalanced (1+ unbalanced)))
-       ( t (setq unbalanced (1- unbalanced)))))
+       ((or (string= kwop "with") (string= kwop "}"))
+       (setq unbalanced (1+ unbalanced)))
+       (t (setq unbalanced (1- unbalanced)))))
     kwop))
 
 (defun caml-find-paren-match (close)