(set-language-environment 'Japanese)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(setq locale-coding-system 'utf-8)
(transient-mark-mode t)
(setq ring-bell-function '(lambda ()))
(setq backup-inhibited t)
(if window-system (menu-bar-mode 1) (menu-bar-mode -1))
(if window-system
(progn
(setq scroll-step 1)
(set-scroll-bar-mode 'right)
(server-start)
(when (eq window-system 'mac)
(add-to-list 'default-frame-alist '(alpha . 85))
(set-frame-parameter nil 'alpha 85)
)
(if (>= emacs-major-version 23)
(progn
(set-default-font "Bitstream Vera Sans Mono-12")
(set-fontset-font (frame-parameter nil 'font)
'japanese-jisx0208
'("VL ゴシック" . "unicode-bmp"))))
))
(if (not (memq 'time-stamp write-file-hooks))
(setq write-file-hooks
(cons 'time-stamp write-file-hooks)))