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-defs.el
ViewVC logotype

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

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

revision 540, Fri Feb 18 19:46:31 2000 UTC revision 541, Fri Feb 18 20:35:43 2000 UTC
# Line 1  Line 1 
1  ;;; sml-move.el  ;;; sml-defs.el --- Various definitions for sml-mode
2    
3  (defconst rcsid-sml-defs "@(#)$Name$:$Id$")  ;; Copyright (C) 1999-2000  Stefan Monnier <monnier@cs.yale.edu>
   
 ;; Copyright (C) 1999-1999  Stefan Monnier <monnier@cs.yale.edu>  
4  ;;  ;;
5  ;; This program is free software; you can redistribute it and/or modify  ;; This program is free software; you can redistribute it and/or modify
6  ;; it under the terms of the GNU General Public License as published by  ;; it under the terms of the GNU General Public License as published by
# Line 18  Line 16 
16  ;; along with this program; if not, write to the Free Software  ;; along with this program; if not, write to the Free Software
17  ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18    
19  (require 'cl)  ;;; Commentary:
20    
21    
22    ;;; Code:
23    
24    (eval-when-compile (require 'cl))
25  (require 'sml-util)  (require 'sml-util)
26    
 ;;;  
 ;;; Code  
 ;;;  
27    
28  (defgroup sml ()  (defgroup sml ()
29    "Editing SML code."    "Editing SML code."
# Line 189  Line 189 
189       (,sml-=-starter-syms nil)       (,sml-=-starter-syms nil)
190       (("abstype" "case" "datatype" "if" "then" "else" "sharing" "infix" "infixr"       (("abstype" "case" "datatype" "if" "then" "else" "sharing" "infix" "infixr"
191         "let" "local" "nonfix" "open" "raise" "sig" "struct" "type" "val" "while"         "let" "local" "nonfix" "open" "raise" "sig" "struct" "type" "val" "while"
192         "do" "with" "withtype"))))         "do" "with" "withtype")))))
   "")  
193    
194  (defconst sml-starters-indent-after  (defconst sml-starters-indent-after
195    (sml-syms-re "let" "local" "struct" "in" "sig" "with")    (sml-syms-re "let" "local" "struct" "in" "sig" "with")
# Line 251  Line 250 
250     (sml-syms-re "fun" "fn" "and" "handle" "datatype" "abstype"))     (sml-syms-re "fun" "fn" "and" "handle" "datatype" "abstype"))
251    "A `|' corresponds to one of these.")    "A `|' corresponds to one of these.")
252    
 ;;  
253  (provide 'sml-defs)  (provide 'sml-defs)
254    
255    ;;; sml-defs.el ends here

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

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