;;; -*- Mode: Lisp; Package: user -*- ;;; .xyzzy --- xyzzy Customize ;; ;; Created: [2006/05/06] ;; Last updated: [2009/02/07] ;;; Commentary: ;;; Change Log: ;;; Code: (require "scratchcl") (require "easy-indent") (require "easy-paragraph") ;; 関連付け ;;; ;; MySQL ;;; (pushnew '("\\.sql$" . sql-my) *auto-mode-alist* :test 'equal) ;;; ;; Procedure ;;; (pushnew '("\\.prc$" . sql-my) *auto-mode-alist* :test 'equal) ;;; ;; Table ;;; (pushnew '("\\.tab$" . sql-my) *auto-mode-alist* :test 'equal) ;; Oracle (pushnew '("\\.sql$" . sql-ora) *auto-mode-alist* :test 'equal) ;; 制御ファイル (pushnew '("\\.ctl$" . sql-ora) *auto-mode-alist* :test 'equal) ;; Package (pushnew '("\\.bdy$" . sql-ora) *auto-mode-alist* :test 'equal) ;; Header (pushnew '("\\.hdr$" . sql-ora) *auto-mode-alist* :test 'equal) ;; Function (pushnew '("\\.fnc$" . sql-ora) *auto-mode-alist* :test 'equal) ;; Procedure (pushnew '("\\.prc$" . sql-ora) *auto-mode-alist* :test 'equal) ;; Package (pushnew '("\\.spc$" . sql-ora) *auto-mode-alist* :test 'equal) ;; Table (pushnew '("\\.tab$" . sql-ora) *auto-mode-alist* :test 'equal) ;; View (pushnew '("\\.vw$" . sql-ora) *auto-mode-alist* :test 'equal) ;; Trigger (pushnew '("\\.trg$" . sql-ora) *auto-mode-alist* :test 'equal)