branch: externals/caml
commit 28d1a1d80b3f42c7f4e1df32bbde429c72ef8502
Author: Jacques Garrigue <garrigue at math.nagoya-u.ac.jp>
Commit: Jacques Garrigue <garrigue at math.nagoya-u.ac.jp>
indentation of else
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3248
f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
caml.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/caml.el b/caml.el
index 795ac17..46e4a6f 100644
--- a/caml.el
+++ b/caml.el
@@ -1198,8 +1198,9 @@ the line where the governing keyword occurs.")
(progn (beginning-of-line) (point)))))
kwop done matching-fun)
(while (not done)
- (setq kwop (caml-find-kwop
- "\\<\\(e\\(nd\\|lse\\)\\|done\\|then\\|if\\)\\>\\|[])};]"))
+ (setq kwop
+ (caml-find-kwop
+ "\\<\\(e\\(nd\\|lse\\)\\|done\\|then\\|if\\|with\\)\\>\\|[])};]"))
(cond
((not kwop) (setq done t))
((caml-at-sexp-close-p)
@@ -1208,9 +1209,7 @@ the line where the governing keyword occurs.")
((string= kwop "then")
(if (not from-else) (setq kwop (caml-find-then-match))))
((setq matching-fun (cdr-safe (assoc kwop caml-matching-kw-alist)))
- (setq kwop (funcall matching-fun)))
- ((string= kwop "then")
- (if (not from-else) (setq kwop (caml-find-then-match))))))
+ (setq kwop (funcall matching-fun)))))
(if (and bol (>= (point) bol))
"if-else"
kwop)))
