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 541, Fri Feb 18 20:35:43 2000 UTC | revision 542, Fri Feb 18 22:59:40 2000 UTC | |
|---|---|---|
| # | Line 1 | Line 1 |
| 1 | ;;; sml-mode.el --- Major mode for editing (Standard) ML | ;;; sml-mode.el --- Major mode for editing (Standard) ML |
| 2 | ||
| (defconst rcsid-sml-mode "@(#)$Name$:$Id$") | ||
| 3 | ;; Copyright (C) 1989 Lars Bo Nielsen | ;; Copyright (C) 1989 Lars Bo Nielsen |
| 4 | ;; Copyright (C) 1994-1997 Matthew J. Morley | ;; Copyright (C) 1994-1997 Matthew J. Morley |
| 5 | ;; Copyright (C) 1999-2000 Stefan Monnier | ;; Copyright (C) 1999-2000 Stefan Monnier |
| # | Line 335 | Line 333 |
| 333 | (string-match "^'" sym)) | (string-match "^'" sym)) |
| 334 | (sml-forward-spaces)) | (sml-forward-spaces)) |
| 335 | (concat sym " = ")) | (concat sym " = ")) |
| 336 | ((member sym '("case" "handle" "fn")) " => ") | ((member sym '("case" "handle" "fn" "of")) " => ") |
| 337 | ((member sym '("abstype" "datatype")) "") | ((member sym '("abstype" "datatype")) "") |
| 338 | (t (error "Wow, now, there's a bug"))))))) | (t (error "Wow, now, there's a bug"))))))) |
| 339 |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
