branch: master
commit f06d7300d01f9d687792093f7a5b73e76c92772a
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
* packages/sml-mode/sml-mode.el (sml-smie-rules): Remove incoherent rule.
---
packages/sml-mode/sml-mode.el | 1 -
packages/sml-mode/testcases.sml | 7 ++++++-
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/packages/sml-mode/sml-mode.el b/packages/sml-mode/sml-mode.el
index f4adf11..dc51c99 100644
--- a/packages/sml-mode/sml-mode.el
+++ b/packages/sml-mode/sml-mode.el
@@ -556,7 +556,6 @@ Regexp match data 0 points to the chars."
(`(:before . "withtype") 0)
(`(:before . "d=")
(cond
- ((smie-rule-parent-p "fun") 2)
((smie-rule-parent-p "datatype") (if (smie-rule-bolp) 2))
((smie-rule-parent-p "structure" "signature" "functor") 0)))
;; Indent an expression starting with "local" as if it were starting
diff --git a/packages/sml-mode/testcases.sml b/packages/sml-mode/testcases.sml
index 4ed3312..7ed53f7 100644
--- a/packages/sml-mode/testcases.sml
+++ b/packages/sml-mode/testcases.sml
@@ -1,4 +1,4 @@
-(* Copyright 1999,2004,2007,2010-2012,2014 Stefan Monnier <monn...@gnu.org> *)
+(* Copyright 1999,2004,2007,2010-2016 Stefan Monnier <monn...@gnu.org> *)
(* sml-mode here treats the second `=' as an equal op because it
* thinks it's seeing something like "... type t = (s.t = ...)". FIXME! *)
@@ -71,6 +71,11 @@ type node' = node
type obj = t
end
+fun test1 None =
+ 4
+ | test1 (Some x) =
+ 5
+
datatype exp_node
= Let of varpat_t list * rhs_t * exp_t
| Do of simpleexp_t * exp_t
