;; mode hooks
(load-file "c:/cygwin/home/YOURNAME/software/sml-mode-3.3-custom/sml-mode.el")

(setq auto-mode-alist
      (cons '("\\.\\(ml\\|sml\\|fun\\|cm\\|sig\\)\\'" . sml-mode)
             auto-mode-alist))

(defun my-sml-mode-hook () "Local defaults for SML mode"
  (setq sml-program-name "sml.bat")

  (setq sml-indent-level 2)             ; conserve on horizontal space
  (setq words-include-escape t)         ; \ loses word break status
  (setq indent-tabs-mode nil)           ; never ever indent with tabs
  
  (define-key sml-mode-map "\C-c\C-e" 'sml)
  (define-key sml-mode-map "\C-c\C-m" 'sml-smlnj-make)

  (font-lock-fontify-buffer)
  )

(add-hook 'sml-mode-hook 'my-sml-mode-hook)
 
;; General non-SML-specific settings that are appropriate follow - feel
;; free to comment these out if you don't like them.

(setq ring-bell-function (lambda () ()))
(pending-delete-mode t)
(show-paren-mode t)
(transient-mark-mode t)
(global-font-lock-mode t)
(line-number-mode t)
(column-number-mode t)
(overwrite-mode nil)
(setq-default indent-tabs-mode nil)
(setq-default truncate-lines t)
(setq-default fill-column 72) 
(add-hook 'before-save-hook 'delete-trailing-whitespace)
(setq require-final-newline t)