SCM Repository
| [smlnj] / sml / trunk / sml-mode / sml-mode.el |
Diff of /sml/trunk/sml-mode/sml-mode.el
Parent Directory
| 
Revision Log
| 
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)) |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
