; load S-mode
(autoload 'S "S" "Run an inferior S process" t)
(autoload 's-mode' "S" "Mode for editing S source" t)
(setq auto-mode-alist
      '(("\\.txt$" . text-mode)
        ("\\.tex$" . latex-mode)
        ("\\.texinfo$" . texinfo-mode)
        ("\\.h$" . c-mode)
        ("\\.c$" . c-mode)
        ("^/tmp/Re" . non-saved-text-mode)
        ("/\\..*emacs" . emacs-lisp-mode)
	("\\.lsp$" . lisp-mode)
	("\\.s$" . s-mode)
        ("\\.el$" . emacs-lisp-mode)))

; if you want add these lines: (comment them out by removing the leading ";"
; this will give you color coding for S statements

;(setq S-mode-hook '(lambda ()
;	(load-file "/usr/home/fac/pm/emacs/S-site.el")
;	(font-lock-mode 1)))