2249 |
(setq local-abbrev-table sql-mode-abbrev-table) |
(setq local-abbrev-table sql-mode-abbrev-table) |
2250 |
(setq abbrev-all-caps 1) |
(setq abbrev-all-caps 1) |
2251 |
;; Run hook |
;; Run hook |
2252 |
(run-hooks 'sql-mode-hook) |
(run-mode-hooks 'sql-mode-hook) |
2253 |
;; Catch changes to sql-product and highlight accordingly |
;; Catch changes to sql-product and highlight accordingly |
2254 |
(sql-highlight-product) |
(sql-highlight-product) |
2255 |
(add-hook 'hack-local-variables-hook 'sql-highlight-product t t)) |
(add-hook 'hack-local-variables-hook 'sql-highlight-product t t)) |
2367 |
(make-local-variable 'sql-input-ring-separator) |
(make-local-variable 'sql-input-ring-separator) |
2368 |
(make-local-variable 'sql-input-ring-file-name) |
(make-local-variable 'sql-input-ring-file-name) |
2369 |
;; Run hook. |
;; Run hook. |
2370 |
(run-hooks 'sql-interactive-mode-hook) |
(run-mode-hooks 'sql-interactive-mode-hook) |
2371 |
;; Set comint based on user overrides. |
;; Set comint based on user overrides. |
2372 |
(setq comint-prompt-regexp sql-prompt-regexp) |
(setq comint-prompt-regexp sql-prompt-regexp) |
2373 |
(setq left-margin sql-prompt-length) |
(setq left-margin sql-prompt-length) |