diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-06-11 10:44:51 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-06-11 10:44:51 -0400 |
| commit | 115053515b7ab63df2688d54f67c4100ee8956e7 (patch) | |
| tree | c099a70fbe153884c9ea458ef9a67fcc969e8a10 | |
| parent | 6d979bd66268eb0b12be877a3716763387747012 (diff) | |
| download | emacs-115053515b7ab63df2688d54f67c4100ee8956e7.tar.gz | |
-
| -rw-r--r-- | sml-mode.el | 3 | ||||
| -rw-r--r-- | testcases.sml | 4 |
2 files changed, 3 insertions, 4 deletions
diff --git a/sml-mode.el b/sml-mode.el index 551db919829..b057c2c21a2 100644 --- a/sml-mode.el +++ b/sml-mode.el @@ -471,10 +471,9 @@ Regexp match data 0 points to the chars." ((:before . "(") (:hanging parent) point) ((:before . "[") (:hanging parent) point) ((:before . "if") (:prev "else" parent) point) + ((:before . "fn") (:prev "=>" parent) point) ("let") ("in" (:parent "local" 0)) - ;; FIXME: The `then' part of ".. else if .. then" is still not - ;; properly unindented. ("if") ("then") ("else" (:hanging 0)) ;; (:next "if" 0) (("datatype" . "and") . 5) (("fun" . "and") 0) diff --git a/testcases.sml b/testcases.sml index b477fc2f82e..0f2d84da889 100644 --- a/testcases.sml +++ b/testcases.sml @@ -247,8 +247,8 @@ fun sexp env lexp = (* fixindent *) let (* non-side effecting binds are copied to leI if exported *) fun let1 (le,lewrap,lv,vs,effect) = - let val (leE,leI,fvI,leRet) = sexp (S.add(env, lv)) le - val leE = lewrap o leE + let val (leE,leI,fvI,leRet) = sexp (S.add(env, lv)) le + val leE = lewrap o leE in if effect orelse not (S.member(fvI, lv)) then (leE, leI, fvI, leRet) else (leE, lewrap leI, addvs(S_rmv(lv, fvI), vs), leRet) |