comparison lisp/progmodes/sql.el @ 62772:f2892faa87d4

* progmodes/ada-mode.el (ada-mode): * progmodes/antlr-mode.el (antlr-mode): * progmodes/autoconf.el (autoconf-mode): * progmodes/dcl-mode.el (dcl-mode): * progmodes/delphi.el (delphi-mode): * progmodes/ebrowse.el (ebrowse-tree-mode) (ebrowse-electric-list-mode, ebrowse-member-mode) (ebrowse-electric-position-mode): * progmodes/f90.el (f90-mode): * progmodes/fortran.el (fortran-mode): * progmodes/icon.el (icon-mode): * progmodes/idlw-help.el (idlwave-help-mode): * progmodes/idlw-shell.el (idlwave-shell-mode): * progmodes/idlwave.el (idlwave-mode): * progmodes/inf-lisp.el (inferior-lisp-mode): * progmodes/m4-mode.el (m4-mode): * progmodes/meta-mode.el (metafont-mode, metapost-mode): * progmodes/modula2.el (modula-2-mode): * progmodes/octave-inf.el (inferior-octave-mode): * progmodes/octave-mod.el (octave-mode): * progmodes/pascal.el (pascal-mode): * progmodes/sh-script.el (sh-mode): * progmodes/sql.el (sql-mode, sql-interactive-mode): * progmodes/vhdl-mode.el (vhdl-mode): * progmodes/xscheme.el (scheme-interaction-mode): Use run-mode-hooks.
author Lute Kamstra <lute@gnu.org>
date Thu, 26 May 2005 16:39:28 +0000
parents aac0a33f5772
children 37dd5dc2f5ae 01137c1fdbe9
comparison
equal deleted inserted replaced
62771:a0b0cf078b7b 62772:f2892faa87d4
2247 paragraph-start "[\n\f]") 2247 paragraph-start "[\n\f]")
2248 ;; Abbrevs 2248 ;; Abbrevs
2249 (setq local-abbrev-table sql-mode-abbrev-table) 2249 (setq local-abbrev-table sql-mode-abbrev-table)
2250 (setq abbrev-all-caps 1) 2250 (setq abbrev-all-caps 1)
2251 ;; Run hook 2251 ;; Run hook
2252 (run-hooks 'sql-mode-hook) 2252 (run-mode-hooks 'sql-mode-hook)
2253 ;; Catch changes to sql-product and highlight accordingly 2253 ;; Catch changes to sql-product and highlight accordingly
2254 (sql-highlight-product) 2254 (sql-highlight-product)
2255 (add-hook 'hack-local-variables-hook 'sql-highlight-product t t)) 2255 (add-hook 'hack-local-variables-hook 'sql-highlight-product t t))
2256 2256
2257 2257
2365 (set (make-local-variable 'sql-prompt-length) 2365 (set (make-local-variable 'sql-prompt-length)
2366 (sql-product-feature :sqli-prompt-length)) 2366 (sql-product-feature :sqli-prompt-length))
2367 (make-local-variable 'sql-input-ring-separator) 2367 (make-local-variable 'sql-input-ring-separator)
2368 (make-local-variable 'sql-input-ring-file-name) 2368 (make-local-variable 'sql-input-ring-file-name)
2369 ;; Run hook. 2369 ;; Run hook.
2370 (run-hooks 'sql-interactive-mode-hook) 2370 (run-mode-hooks 'sql-interactive-mode-hook)
2371 ;; Set comint based on user overrides. 2371 ;; Set comint based on user overrides.
2372 (setq comint-prompt-regexp sql-prompt-regexp) 2372 (setq comint-prompt-regexp sql-prompt-regexp)
2373 (setq left-margin sql-prompt-length) 2373 (setq left-margin sql-prompt-length)
2374 ;; People wanting a different history file for each 2374 ;; People wanting a different history file for each
2375 ;; buffer/process/client/whatever can change separator and file-name 2375 ;; buffer/process/client/whatever can change separator and file-name