(set-language-environment "Japanese")
(setq default-file-name-coding-system 'utf-8-unix)
(menu-bar-mode 0)
(tool-bar-mode nil)
(blink-cursor-mode 0)
(column-number-mode t)
(define-key global-map "\C-c\C-c\ r" 'revert-buffer)
(define-key global-map "\C-c\C-c\ q" 'fill-region)
(custom-set-variables '(fill-column 80))
(autoload 'ansi-color-for-comint-mode-on "ansi-color" nil t)
(add-hook
'shell-mode-hook
'(lambda () (set-buffer-process-coding-system 'utf-8-unix 'utf-8-unix)))
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
(keyboard-translate ?\C-h ?\C-?)
(cond (window-system
(load-file (expand-file-name "~/.emacs.d/font.el"))
(setq x-select-enable-clipboard t)
(add-to-list 'default-frame-alist '(height . 40))))
(create-fontset-from-fontset-spec
"-mplus-*-*-r-semicondensed--12-*-*-*-*-*-fontset-mplus")
(add-to-list 'default-frame-alist '(font . "fontset-mplus"))