;;  Call function when mode is turned on.
(add-hook 'sql-mode-hook 'my-site-sql-mode-hook)


(defun my-site-sql-mode-hook ()
  "Turns OFF auto-submission. makes _ a word char"
  (interactive)
  (modify-syntax-entry ?\_ "w")         ; make _ a regular "in-word" char
  (local-set-key "\C-cc" 'comment-region)
  (setq comment-start "REM ")
  (site/define-sql-abbrevs)             ; sql-mode Abbreviations
  (if (device-type)                     ; window only type stuff
      (progn
	(site/set-sql-menu)
	(if (not (boundp 'my-site-sql-font-lock-keywords))
	    (progn
	      (setq my-site-sql-font-lock-keywords
		    (purecopy
		     (list
		      '("/\\*.*\\*/" . font-lock-comment-face)
		      '("\"[^\"]*\"" . font-lock-string-face)
		      '("\'[^\']*\'" . font-lock-string-face)
		      '("--.*$" . font-lock-comment-face)
		      '("\\<varchar\\>" . font-lock-function-name-face)
		      '("\\<binary\\>" . font-lock-function-name-face)
		      '("\\<bit\\>" . font-lock-function-name-face)
		      '("\\<char\\>" . font-lock-function-name-face)
		      '("\\<datetime\\>" . font-lock-function-name-face)
		      '("\\<float\\>" . font-lock-function-name-face)
		      '("\\<int\\>" . font-lock-function-name-face)
		      '("\\<money\\>" . font-lock-function-name-face)
		      '("\\<smallint\\>" . font-lock-function-name-face)
		      '("\\<tinyint\\>" . font-lock-function-name-face)
		      '("\\<varbinary\\>" . font-lock-function-name-face)
		      '("\\<AND\\>" . font-lock-keyword-face)
		      '("\\<ALTER\\>" . font-lock-keyword-face)
		      '("\\<AS\\>" . font-lock-keyword-face)
		      '("\\<ASC\\>" . font-lock-keyword-face)
		      '("\\<ASCENDING\\>" . font-lock-keyword-face)
		      '("\\<AVG\\>" . font-lock-keyword-face)
		      '("\\<BEGIN\\>" . font-lock-keyword-face)
		      '("\\<BY\\>" . font-lock-keyword-face)
		      '("\\<CHARINDEX\\>" . font-lock-keyword-face)
		      '("\\<CLUSTERED\\>" . font-lock-keyword-face)
		      '("\\<CHECKPOINT\\>" . font-lock-keyword-face)
		      '("\\<COMMIT\\>" . font-lock-keyword-face)
		      '("\\<COMPUTE\\>" . font-lock-keyword-face)
		      '("\\<CONVERT\\>" . font-lock-keyword-face)
		      '("\\<COUNT\\>" . font-lock-keyword-face)
		      '("\\<CREATE\\>" . font-lock-keyword-face)
		      '("\\<DATABASE\\>" . font-lock-keyword-face)
		      '("\\<DATEADD\\>" . font-lock-keyword-face)
		      '("\\<DATEDIFF\\>" . font-lock-keyword-face)
		      '("\\<DATENAME\\>" . font-lock-keyword-face)
		      '("\\<DATEPART\\>" . font-lock-keyword-face)
		      '("\\<DECLARE\\>" . font-lock-keyword-face)
		      '("\\<DESC\\>" . font-lock-keyword-face)
		      '("\\<DESCENDING\\>" . font-lock-keyword-face)
		      '("\\<DEFAULT\\>" . font-lock-keyword-face)
		      '("\\<DELETE\\>" . font-lock-keyword-face)
		      '("\\<DISTINCT\\>" . font-lock-keyword-face)
		      '("\\<DROP\\>" . font-lock-keyword-face)
		      '("\\<DUMP\\>" . font-lock-keyword-face)
		      '("\\<ELSE\\>" . font-lock-keyword-face)
		      '("\\<END\\>" . font-lock-keyword-face)
		      '("\\<EXISTS\\>" . font-lock-keyword-face)
		      '("\\<EXEC\\>" . font-lock-keyword-face)
		      '("\\<FOR\\>" . font-lock-keyword-face)
		      '("\\<FROM\\>" . font-lock-keyword-face)
		      '("\\<GETDATE\\>" . font-lock-keyword-face)
		      '("\\<GO\\>" . font-lock-keyword-face)
		      '("\\<GROUP\\>" . font-lock-keyword-face)
		      '("\\<HAVING\\>" . font-lock-keyword-face)
		      '("\\<IF\\>" . font-lock-keyword-face)
		      '("\\<IN\\>" . font-lock-keyword-face)
		      '("\\<INDEX\\>" . font-lock-keyword-face)
		      '("\\<INSERT\\>" . font-lock-keyword-face)
		      '("\\<INTO\\>" . font-lock-keyword-face)
		      '("\\<IS\\>" . font-lock-keyword-face)
		      '("\\<ISNULL\\>" . font-lock-keyword-face)
		      '("\\<LIKE\\>" . font-lock-keyword-face)
		      '("\\<LOAD\\>" . font-lock-keyword-face)
		      '("\\<MAX\\>" . font-lock-keyword-face)
		      '("\\<MIN\\>" . font-lock-keyword-face)
		      '("\\<NONCLUSTERED\\>" . font-lock-keyword-face)
		      '("\\<NOT\\>" . font-lock-keyword-face)
		      '("\\<NULL\\>" . font-lock-keyword-face)
		      '("\\<ON\\>" . font-lock-keyword-face)
		      '("\\<ORDER\\>" . font-lock-keyword-face)
		      '("\\<OR\\>" . font-lock-keyword-face)
		      '("\\<PRINT\\>" . font-lock-keyword-face)
		      '("\\<PROC\\>" . font-lock-keyword-face)
		      '("\\<RAISERROR\\>" . font-lock-keyword-face)
		      '("\\<RETURN\\>" . font-lock-keyword-face)
		      '("\\<RULE\\>" . font-lock-keyword-face)
		      '("\\<SAVE\\>" . font-lock-keyword-face)
		      '("\\<SELECT\\>" . font-lock-keyword-face)
		      '("\\<SET\\>" . font-lock-keyword-face)
		      '("\\<STATISTICS\\>" . font-lock-keyword-face)
		      '("\\<SUBSTRING\\>" . font-lock-keyword-face)
		      '("\\<SUM\\>" . font-lock-keyword-face)
		      '("\\<TABLE\\>" . font-lock-keyword-face)
		      '("\\<TRAN\\>" . font-lock-keyword-face)
		      '("\\<TRANSACTION\\>" . font-lock-keyword-face)
		      '("\\<TRIGGER\\>" . font-lock-keyword-face)
		      '("\\<TRUNCATE\\>" . font-lock-keyword-face)
		      '("\\<UNIQUE\\>" . font-lock-keyword-face)
		      '("\\<UPDATE\\>" . font-lock-keyword-face)
		      '("\\<USE\\>" . font-lock-keyword-face)
		      '("\\<VALUES\\>" . font-lock-keyword-face)
		      '("\\<VIEW\\>" . font-lock-keyword-face)
		      '("\\<WHERE\\>" . font-lock-keyword-face)
		      '("\\<WHILE\\>" . font-lock-keyword-face)
		      '("\\<and\\>" . font-lock-keyword-face)
		      '("\\<alter\\>" . font-lock-keyword-face)
		      '("\\<as\\>" . font-lock-keyword-face)
		      '("\\<asc\\>" . font-lock-keyword-face)
		      '("\\<ascending\\>" . font-lock-keyword-face)
		      '("\\<avg\\>" . font-lock-keyword-face)
		      '("\\<begin\\>" . font-lock-keyword-face)
		      '("\\<by\\>" . font-lock-keyword-face)
		      '("\\<charindex\\>" . font-lock-keyword-face)
		      '("\\<clustered\\>" . font-lock-keyword-face)
		      '("\\<checkpoint\\>" . font-lock-keyword-face)
		      '("\\<commit\\>" . font-lock-keyword-face)
		      '("\\<compute\\>" . font-lock-keyword-face)
		      '("\\<convert\\>" . font-lock-keyword-face)
		      '("\\<count\\>" . font-lock-keyword-face)
		      '("\\<create\\>" . font-lock-keyword-face)
		      '("\\<database\\>" . font-lock-keyword-face)
		      '("\\<dateadd\\>" . font-lock-keyword-face)
		      '("\\<datediff\\>" . font-lock-keyword-face)
		      '("\\<datename\\>" . font-lock-keyword-face)
		      '("\\<datepart\\>" . font-lock-keyword-face)
		      '("\\<declare\\>" . font-lock-keyword-face)
		      '("\\<desc\\>" . font-lock-keyword-face)
		      '("\\<descending\\>" . font-lock-keyword-face)
		      '("\\<default\\>" . font-lock-keyword-face)
		      '("\\<delete\\>" . font-lock-keyword-face)
		      '("\\<distinct\\>" . font-lock-keyword-face)
		      '("\\<drop\\>" . font-lock-keyword-face)
		      '("\\<dump\\>" . font-lock-keyword-face)
		      '("\\<else\\>" . font-lock-keyword-face)
		      '("\\<end\\>" . font-lock-keyword-face)
		      '("\\<exists\\>" . font-lock-keyword-face)
		      '("\\<exec\\>" . font-lock-keyword-face)
		      '("\\<for\\>" . font-lock-keyword-face)
		      '("\\<from\\>" . font-lock-keyword-face)
		      '("\\<getdate\\>" . font-lock-keyword-face)
		      '("\\<go\\>" . font-lock-keyword-face)
		      '("\\<group\\>" . font-lock-keyword-face)
		      '("\\<having\\>" . font-lock-keyword-face)
		      '("\\<if\\>" . font-lock-keyword-face)
		      '("\\<in\\>" . font-lock-keyword-face)
		      '("\\<index\\>" . font-lock-keyword-face)
		      '("\\<insert\\>" . font-lock-keyword-face)
		      '("\\<into\\>" . font-lock-keyword-face)
		      '("\\<is\\>" . font-lock-keyword-face)
		      '("\\<isnull\\>" . font-lock-keyword-face)
		      '("\\<like\\>" . font-lock-keyword-face)
		      '("\\<load\\>" . font-lock-keyword-face)
		      '("\\<max\\>" . font-lock-keyword-face)
		      '("\\<min\\>" . font-lock-keyword-face)
		      '("\\<nonclustered\\>" . font-lock-keyword-face)
		      '("\\<not\\>" . font-lock-keyword-face)
		      '("\\<null\\>" . font-lock-keyword-face)
		      '("\\<on\\>" . font-lock-keyword-face)
		      '("\\<order\\>" . font-lock-keyword-face)
		      '("\\<or\\>" . font-lock-keyword-face)
		      '("\\<print\\>" . font-lock-keyword-face)
		      '("\\<proc\\>" . font-lock-keyword-face)
		      '("\\<raiserror\\>" . font-lock-keyword-face)
		      '("\\<return\\>" . font-lock-keyword-face)
		      '("\\<rule\\>" . font-lock-keyword-face)
		      '("\\<save\\>" . font-lock-keyword-face)
		      '("\\<select\\>" . font-lock-keyword-face)
		      '("\\<set\\>" . font-lock-keyword-face)
		      '("\\<statistics\\>" . font-lock-keyword-face)
		      '("\\<substring\\>" . font-lock-keyword-face)
		      '("\\<sum\\>" . font-lock-keyword-face)
		      '("\\<table\\>" . font-lock-keyword-face)
		      '("\\<tran\\>" . font-lock-keyword-face)
		      '("\\<transaction\\>" . font-lock-keyword-face)
		      '("\\<trigger\\>" . font-lock-keyword-face)
		      '("\\<truncate\\>" . font-lock-keyword-face)
		      '("\\<unique\\>" . font-lock-keyword-face)
		      '("\\<update\\>" . font-lock-keyword-face)
		      '("\\<use\\>" . font-lock-keyword-face)
		      '("\\<values\\>" . font-lock-keyword-face)
		      '("\\<view\\>" . font-lock-keyword-face)
		      '("\\<where\\>" . font-lock-keyword-face)
		      '("\\<while\\>" . font-lock-keyword-face)
		      )))
              (setq sql-mode-font-lock-keywords
                    my-site-sql-font-lock-keywords)))
	(site/turn-on-font-lock))))