;;;;;;;;;;;;;;;;;;;;;;;;;;:
;; specific for Windows  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; $B4D6-JQ?t(B
(setenv "TMP"  "c:/temp")

;; $BF|K\8l(B
(set-ime-toggle-key "\C-o")
(load "menu-jp")
(set-file-coding-system *sjis*)

;; $B%i%$%V%i%jFI$_9~$_%Q%9(B
(setq load-path
  (cons (expand-file-name
        (concat exec-directory "../site-lisp"))
        load-path))

;; $B%7%'%k8F$S=P$7$N$H$-$N%*%W%7%g%s(B
(setq shell-command-option "-c")                              
;; $B%U%)%s%HB0@-$N@_Dj(B ($B%$%?%j%C%/$rHr$1$k(B)
(win32-change-font-property  "default"    0   ; $BDL>o(B
   '("Terminal" 0 -19 400 0 nil nil 128 1 1 1) "default")
(win32-change-font-property  "default"    1   ; $BB@;z(B
   '("Terminal" 0 -19 700 0 nil nil 128 1 1 1) "default")
(win32-change-font-property  "default"    2   ; $B%$%?%j%C%/(B($B$NBeMQ(B)
   '("$B#M#S(B $BL@D+(B" 0 -19 400 0 nil nil 128 1 3 1) "default")
(win32-change-font-property  "default"    3   ; $B%$%?%j%C%/B@;z(B($B$NBeMQ(B)
   '("$B#M#S(B $B%4%7%C%/(B" 0 -19 700 0 nil nil 128 1 3 1) "default")


;;;;;;;;;;;;;
;; Generic ;;
;;;;;;;;;;;;;

;;; $B%-!<%P%$%s%I4X?t(B ;;;
(global-set-key "\M-g"     'goto-line)
(global-set-key "\C-x\C-g" 'what-line)

;;; $B%U%!%$%kKvHx$N6u9T<+F0DI2C$rM^@)(B ;;;
(setq next-line-add-newlines nil)                                       

;; hilight19
(setq inhibit-default-init-hilit t)
(cond (window-system
       (setq hilit-mode-enable-list  '(not text-mode)
             hilit-background-mode   'light
             hilit-inhibit-hooks     nil
       hilit-inhibit-rebinding nil)
       (require 'hilit19)))                                 

;; YaTeX ($B!VLnD;!W(B--- Yet Another TeX mode for emacs )

(setq load-path
      (cons (expand-file-name (concat exec-directory "../site-lisp/yatex"))
            load-path))
(setq auto-mode-alist
      (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(setq YaTeX-help-file (expand-file-name "YATEXHLP.jp" data-directory))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
(setq yatex-mode-load-hook
      '(lambda() (YaTeX-define-begend-key "b\C-e" "eqnarray")))
(setq tex-command "c:/wintex/bin/wintex")
(setq dvi2-command "c:/wintex/bin/windvi") 

;; YaHTML (HTML$BF~NO;Y1g(B) 

(setq auto-mode-alist
      (cons '("\\.html$" . yahtml-mode)
      (cons '("\\.htm$"  . yahtml-mode) auto-mode-alist)))

(autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t)
(setq yahtml-www-browser
      "D:/Netscape/NN4.04/Program/netscape.exe")
