[elpa] master f06d730: * packages/sml-mode/sml-mode.el (sml-smie-rules): Remove incoherent rule.

[Stefan Monnier]

branch: master
commit f06d7300d01f9d687792093f7a5b73e76c92772a
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * 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 <address@hidden> *)
+(* Copyright 1999,2004,2007,2010-2016 Stefan Monnier <address@hidden> *)
 
 (* 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