;; coding systems
(set-default-coding-systems 'euc-jp)
(set-buffer-file-coding-system 'euc-jp-unix)
(set-terminal-coding-system 'euc-jp)
(set-keyboard-coding-system 'euc-jp)

(server-start)

(setq skk-large-jisyo "/usr/share/skk/SKK-JISYO.L")
(global-set-key "\C-\\" 'skk-mode);;Ctrl - \でskk起動
(global-set-key "\C-x\C-j" 'skk-mode)
(global-set-key "\C-xj" 'skk-auto-fill-mode)
(autoload 'skk-mode "skk" nil t)
(autoload 'skk-auto-fill-mode "skk" nil t)
(autoload 'skk-isearch-mode-setup "skk-isearch" nil t)
(autoload 'skk-isearch-mode-cleanup "skk-isearch" nil t)
(add-hook 'isearch-mode-hook
	  (function (lambda ()
		      (and (boundp 'skk-mode) skk-mode
			   (skk-isearch-mode-setup) ))))
(add-hook 'isearch-mode-end-hook
	  (function (lambda ()
		      (and (boundp 'skk-mode) skk-mode
			   (skk-isearch-mode-cleanup)
			   (skk-set-cursor-color-properly) ))))

(require 'mime-setup)
(load "path-util")
(setq rmail-enable-mime t)

(setq rail-emulate-genjis t)
(load "rail")

(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-draft "wl" "Write draft with Wanderlust." t)
(load "term/bobcat")

(display-time)
(setq visible-bell t)
(line-number-mode t);;; 行番号を表示する

;;menu bar
(if window-system (menu-bar-mode 1) (menu-bar-mode -1))
(setq next-line-add-newlines nil)

;; tab_width=2
(setq tab-width 2)
(add-hook 'c-mode-common-hook
          '(lambda ()
             (progn
               (c-toggle-hungry-state 1)
               (setq c-basic-offset 2 indent-tabs-mode nil))))
(add-hook 'java-mode-common-hook
          '(lambda ()
             (progn
               (c-toggle-hungry-state 1)
               (setq c-basic-offset 2 indent-tabs-mode nil))))

(add-hook 'perl-mode-common-hook
          '(lambda ()
             (progn
               (perl-toggle-hungry-state 1)
               (setq perl-basic-offset 2 indent-tabs-mode nil)
	       (define-key perl-mode-map "\t" "  "))))

(add-hook 'fortran-mode-hook
      '(lambda ()
        (setq comment-start "!")
        (setq fortran-do-indent 2)
        (setq fortran-if-indent 2)
        (setq fortran-structure-indent 2)
        (setq fortran-blink-matching-if t)
        (setq fortran-cotinuation-string "&")
        (setq fortran-comment-region "!!")
        (setq fortran-electric-line-number nil)
	(abbrev-mode 1)
        ))


;; keys
(global-set-key [delete] 'delete-char)
(global-set-key [backspace] 'delete-backward-char)
(global-set-key "\C-h" 'delete-backward-char)

(global-set-key "\M-g" 'goto-line)
(global-set-key "\M-c" 'compile)