; ---- language-env DON'T MODIFY THIS LINE!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ܸɽ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (not (boundp 'MULE))
    (if (featurep 'xemacs)
        ; xemacs21 ξ
	(progn
	  (set-language-environment "Japanese")
	  (set-default-buffer-file-coding-system 'euc-jp-unix)
	  (set-keyboard-coding-system 'euc-jp-unix)
	  (if (not window-system) (set-terminal-coding-system 'euc-jp-unix))
        )
        ; emacs20 ξ
        (progn
	  (set-language-environment "Japanese")
	  (set-default-coding-systems 'euc-japan-unix)
	  (set-keyboard-coding-system 'euc-japan-unix)
	  (if (not window-system) (set-terminal-coding-system 'euc-japan-unix))
        )
    )
)
; ܸ info ʸʤ褦
(auto-compression-mode t)
; xemacs  shell-mode  ܸ EUC Ȥ褦ˤ
(if (featurep 'xemacs)
    (add-hook 'shell-mode-hook (function
       (lambda () (set-buffer-process-coding-system 'euc-japan 'euc-japan))))
)
; ܸ grep
(if (file-exists-p "/usr/bin/jgrep")
    (setq grep-command "jgrep -n -e ")
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Ѵ (wnn) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(set-input-method 'japanese-egg-wnn)
(toggle-input-method nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; XǤΥ顼ɽ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'font-lock)
(if (not (featurep 'xemacs))
    (global-font-lock-mode t)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; C ץν
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;(defun my-c-mode-common-hook ()
;   (c-set-style "linux") (setq indent-tabs-mode t) ;linux Ȥ
;      /usr/src/linux/Documentation/CodingStyle 
;   (c-set-style "k&r") ;k&rȤϤͭˤ
;   (c-set-style "gnu") ;ǥեȤ
; )
;(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Deleteǥ֤ʸä褦ˤ
(global-set-key [delete] 'delete-char)
;; C-h ǥκʸä褦ˤ롣
;; Ȥ C-h ϥإפʤΤǡ
;; ͭˤȡإפȤȤˤ
;; M-x help  F1 Ȥɬפޤ
;(global-set-key "\C-h" 'backward-delete-char)

; ---- language-env end DON'T MODIFY THIS LINE!
