.emacs-my
changeset 117 e8fec75adcd6
parent 116 8b2e019ee147
child 118 27add777f357
equal deleted inserted replaced
116:8b2e019ee147 117:e8fec75adcd6
   573 
   573 
   574 ;; (setq sh-shell-file "D:\\home\\cygwin\\bin\\sh.exe")
   574 ;; (setq sh-shell-file "D:\\home\\cygwin\\bin\\sh.exe")
   575 ;; (setq sh-shell-arg (quote ((bash) (csh . "-f") (pdksh) (ksh88) (rc . "-p") (wksh) (zsh . "-f") (sh . "-i"))))
   575 ;; (setq sh-shell-arg (quote ((bash) (csh . "-f") (pdksh) (ksh88) (rc . "-p") (wksh) (zsh . "-f") (sh . "-i"))))
   576 (setq explicit-bash-args (quote ("-login" "-i")))
   576 (setq explicit-bash-args (quote ("-login" "-i")))
   577 
   577 
   578 
   578 (when (provide 'bat-mode)
   579 (if (equal window-system 'w32)
   579   (progn
   580     (progn
   580     (add-to-list 'auto-mode-alist '("\\.[bB][aA][tT]$" . bat-mode))
   581       (setq auto-mode-alist
   581     ;; For DOS init files
   582             (append
   582     (add-to-list 'auto-mode-alist '("CONFIG\\." . bat-mode))
   583              (list (cons "\\.[bB][aA][tT]$" 'bat-mode))
   583     (add-to-list 'auto-mode-alist '("AUTOEXEC\\." . bat-mode)))
   584              ;; For DOS init files
       
   585              (list (cons "CONFIG\\."   'bat-mode))
       
   586              (list (cons "AUTOEXEC\\." 'bat-mode))
       
   587              auto-mode-alist))
       
   588       ;; XXX Wrong!
       
   589       (require 'bat-mode)
       
   590       )
       
   591   )
       
   592 
   584 
   593 ;; ======================================================================
   585 ;; ======================================================================
   594 ;;
   586 ;;
   595 ;; Spell
   587 ;; Spell
   596 
   588