(setq auto-mode-alist (mapcar 'purecopy
                              '(("\\.c$" . c-mode)
                                ("\\.h$" . c-mode)
                                ("\\.tex$" . tex-mode)
                                ("\\.txi$" . texinfo-mode)
                                ("\\.el$" . emacs-lisp-mode)
				("\\.sql$" . sql-mode)
				("\\.msql$" . msql-mode)
                                ("\\.a$" . c-mode))))


(defun msql-mode nil
  "Start SQL mode and tailor it to mSQL"
  (interactive)
  (sql-mode)
  (sql-msql)
)

(autoload 'sql "sql-mode"
  "Start the interactive SQL interpreter in a new buffer." t)

(autoload 'sql-mode "sql-mode"
  "Mode for editing SQL files and running a SQL interpetror." t)

