Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/sml-mode/sml-mode.el
ViewVC logotype

Diff of /sml/trunk/sml-mode/sml-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 37, Fri Mar 13 20:07:49 1998 UTC revision 38, Fri Mar 13 20:31:45 1998 UTC
# Line 788  Line 788 
788            (sml-find-match-indent "else" "\\belse\\b" "\\bif\\b" t))            (sml-find-match-indent "else" "\\belse\\b" "\\bif\\b" t))
789           ((looking-at "then\\b")        ; Match the if + extra indentation           ((looking-at "then\\b")        ; Match the if + extra indentation
790            (+ (sml-find-match-indent "then" "\\bthen\\b" "\\bif\\b" t)            (+ (sml-find-match-indent "then" "\\bthen\\b" "\\bif\\b" t)
791               sml-indent-level))               (if sml-type-of-indent sml-indent-level 0)))
792           ((looking-at "of\\b")           ((looking-at "of\\b")
793            (sml-re-search-backward "\\bcase\\b")            (sml-re-search-backward "\\bcase\\b")
794            (+ (current-column) 2))            (+ (current-column) 2))

Legend:
Removed from v.37  
changed lines
  Added in v.38

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0