[elpa] externals/sml-mode c161959 38/45: * packages/sml-mode/sml-mode.el (sml-smie-rules): Remove incoherent rule.

[Stefan Monnier]

branch: externals/sml-mode
commit c16195904f823acd3fe81dbf30cc1985fc24710b
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * packages/sml-mode/sml-mode.el (sml-smie-rules): Remove incoherent rule.
---
 sml-mode.el   | 1 -
 testcases.sml | 7 ++++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/sml-mode.el b/sml-mode.el
index f4adf11..dc51c99 100644
--- a/sml-mode.el
+++ b/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/testcases.sml b/testcases.sml
index 4ed3312..7ed53f7 100644
--- a/testcases.sml
+++ b/testcases.sml
@@ -1,4 +1,4 @@
-(* Copyright 1999,2004,2007,2010-2012,2014 Stefan Monnier <monnier@gnu.org> *)
+(* Copyright 1999,2004,2007,2010-2016 Stefan Monnier <monnier@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