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)
