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-mode/trunk/sml-mode.el
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.541  
changed lines
  Added in v.542

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