Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

refinements 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2457 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Jacques Garrigue 1999-11-02 16:49:20 +00:00
parent b2908f2611
commit 9bef4eaefb
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
emacs/caml.el
View File

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