;; Japanese configurations
;(set-language-environment 'Japanese)
(set-language-environment "Japanese")
(set-keyboard-coding-system 'euc-jp)
(set-terminal-coding-system 'euc-jp)
(set-buffer-file-coding-system 'shift_jis)
;(if (eq window-system 'x)
;    (set-buffer-file-coding-system 'euc-jp))

;; load-path
(setq load-path
  (append
    (list (expand-file-name "~/elisp"))
    load-path))

;; info dir
;(setq info-directory-list )

;; I use YC for Canna's frontend
(setq yc-canna-lib-path "/sw/etc/canna/")
;(setq yc-server-host "unix")
(load "yc")
(global-yc-mode 1)

;;; sdic-mode 用の設定
(setq load-path (cons "/usr/local/share/emacs/site-lisp" load-path))
(autoload 'sdic-describe-word "sdic" "英単語の意味を調べる" t nil)
(global-set-key "\C-cw" 'sdic-describe-word)
(autoload 'sdic-describe-word-at-point "sdic" "カーソルの位置の英単語の意味を調べる" t nil)
(global-set-key "\C-cW" 'sdic-describe-word-at-point)

;; yatex
(setq auto-mode-alist
      (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)

;; skk
;(require 'skk-autoloads)
;(global-set-key "\C-x\C-j" 'skk-mode)
;(global-set-key "\C-xj" 'skk-auto-fill-mode)
;(global-set-key "\C-xt" 'skk-tutorial)
;(setq skk-large-jisyo "~/elisp/SKK-JISYO.L")
;; skk-incrimental search
;(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))
;		      (and (boundp 'skk-mode-invoked) skk-mode-invoked
;			   (skk-set-cursor-properly)))))
;; cursol color
;(add-hook 'isearch-mode-end-hook
;	  (function (lambda ()
;	     (and (boundp 'skk-mode) 
;		  skk-mode (skk-isearch-mode-cleanup)))))
;(add-hook 'isearch-mode-end-hook 'skk-isearch-mode-cleanup)
;; tutorial
;(setq skk-tut-file "/sw/share/skk/SKK.tut")

;; misc
(setq transient-mark-mode t)
(setq inhibit-startup-message t)
(load-library "term/bobcat")
(line-number-mode t)
(setq enable-double-n-syntax t)
(setq next-line-add-newlines nil)
(display-time)
;; type C-u 80 C-x f
;(setq fill-column 80)
;(setq text-mode-hook 'turn-on-auto-fill)
;(setq default-major-mode 'text-mode)
(global-font-lock-mode t)
(set-scroll-bar-mode 'right)

;; if anything wrong in this file, make these initialization invalid.
(put 'eval-expression 'disabled nil)