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

Parent Directory | Revision Log | Patch

	revision 36, Fri Mar 13 17:58:26 1998 UTC	revision 37, Fri Mar 13 20:07:49 1998 UTC
#	Line 768	Line 768
768	(skip-chars-forward "\t ")	(skip-chars-forward "\t ")
769	(cond	(cond
770	((looking-at "|") (current-indentation))	((looking-at "|") (current-indentation))
771	((and sml-case-indent (looking-at "of\\b"))	((looking-at "of\\b")
772	(1+ (current-indentation)))	(1+ (current-indentation)))
773	((looking-at "fn\\b") (1+ (current-indentation)))	((looking-at "fn\\b") (1+ (current-indentation)))
774	((looking-at "handle\\b") (+ (current-indentation) 5))	((looking-at "handle\\b") (+ (current-indentation) 5))
#	Line 781	Line 781
781	(sml-find-match-indent "in" "\\bin\\b" "\\blocal\\b\\|\\blet\\b"))	(sml-find-match-indent "in" "\\bin\\b" "\\blocal\\b\\|\\blet\\b"))
782	((looking-at "end\\b")         ; Match the beginning	((looking-at "end\\b")         ; Match the beginning
783	(sml-find-match-indent "end" "\\bend\\b" sml-end-starters-reg))	(sml-find-match-indent "end" "\\bend\\b" sml-end-starters-reg))
784	((and sml-nested-if-indent (looking-at "else[\t ]*if\\b"))	((and sml-nested-if-indent (looking-at "else\\b"))
785	(sml-re-search-backward "\\bif\\b\\|\\belse\\b")	(sml-re-search-backward "\\bif\\b\\|\\belse\\b")
786	(current-indentation))	(current-indentation))
787	((looking-at "else\\b")        ; Match the if	((looking-at "else\\b")        ; Match the if
#	Line 789	Line 789
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))	sml-indent-level))
792	((and sml-case-indent (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))
795	((looking-at sml-starters-reg)	((looking-at sml-starters-reg)
#	Line 851	Line 851
851	(let ((indent (current-column)))	(let ((indent (current-column)))
852	(skip-chars-forward "\t (")	(skip-chars-forward "\t (")
853	(cond	(cond
854		;; a "let fun" or "let val"
855		((looking-at "let \\(fun\\|val\\)\\b")
856		(+ (current-column) 4 sml-indent-level))
857	;; Started val/fun/structure...	;; Started val/fun/structure...
858	((looking-at sml-indent-starters-reg)	((looking-at sml-indent-starters-reg)
859	(+ (current-column) sml-indent-level))	(+ (current-column) sml-indent-level))

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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

---

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