[nongnu] externals/caml 28d1a1d 033/197: indentation of else

[Stefan Monnier]

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