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 1476, Fri Apr 16 20:51:46 2004 UTC revision 1477, Wed Apr 21 21:26:58 2004 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    
 ;; Copyright (C) 1989       Lars Bo Nielsen  
 ;; Copyright (C) 1994-1997  Matthew J. Morley  
3  ;; Copyright (C) 1999,2000,2004  Stefan Monnier  ;; Copyright (C) 1999,2000,2004  Stefan Monnier
4    ;; Copyright (C) 1994-1997  Matthew J. Morley
5    ;; Copyright (C) 1989       Lars Bo Nielsen
6    
7  ;; Author: Lars Bo Nielsen  ;; Author: Lars Bo Nielsen
8  ;;      Olin Shivers  ;;      Olin Shivers
# Line 285  Line 285 
285    
286  ;;; MORE CODE FOR SML-MODE  ;;; MORE CODE FOR SML-MODE
287    
288  ;;;###Autoload  ;;;###autoload (add-to-list 'load-path (file-name-directory load-file-name))
289    ;;;###autoload
290  (add-to-list 'auto-mode-alist '("\\.s\\(ml\\|ig\\)\\'" . sml-mode))  (add-to-list 'auto-mode-alist '("\\.s\\(ml\\|ig\\)\\'" . sml-mode))
291    
292  ;;;###Autoload  ;;;###autoload
293  (define-derived-mode sml-mode fundamental-mode "SML"  (define-derived-mode sml-mode fundamental-mode "SML"
294    "\\<sml-mode-map>Major mode for editing ML code.    "\\<sml-mode-map>Major mode for editing ML code.
295  This mode runs `sml-mode-hook' just before exiting.  This mode runs `sml-mode-hook' just before exiting.
# Line 749  Line 750 
750      (let ((fsym (intern (concat "sml-form-" name))))      (let ((fsym (intern (concat "sml-form-" name))))
751        `(progn        `(progn
752           (add-to-list 'sml-forms-alist ',(cons name fsym))           (add-to-list 'sml-forms-alist ',(cons name fsym))
753           (define-abbrev sml-mode-abbrev-table ,name "" ',fsym)           (condition-case err
754                 ;; Try to use the new `system' flag.
755                 (define-abbrev sml-mode-abbrev-table ,name "" ',fsym nil 'system)
756               (wrong-number-of-arguments
757                (define-abbrev sml-mode-abbrev-table ,name "" ',fsym)))
758           (define-skeleton ,fsym           (define-skeleton ,fsym
759             ,(format "SML-mode skeleton for `%s..' expressions" name)             ,(format "SML-mode skeleton for `%s..' expressions" name)
760             ,interactor             ,interactor

Legend:
Removed from v.1476  
changed lines
  Added in v.1477

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