.emacs.el

;;; -*- Mode: Emacs-Lisp ; Coding: utf-8 -*-
;;; Time-stamp: <2008-11-01 08:20:05 mtanaka>

(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)

;;; beepを消す
;(setq visible-bell t)
;;; 何もおこらなくする
(setq ring-bell-function '(lambda ()))

;;; バックアップファイルを作らない
(setq backup-inhibited t)

;;; emacs -nw で起動した時にメニューバーを消す
(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)

        ;; CarbonEmacs window mode setting
        (when (eq window-system 'mac)
          ;;; デフォルトの透明度を設定する (85%)
          (add-to-list 'default-frame-alist '(alpha . 85))

          ;;; カレントウィンドウの透明度を変更する (85%)
          (set-frame-parameter nil 'alpha 85)
        )

        ;;; Emacs23 用フォント設定
        (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"))))
  ))

;;; 最終更新日の自動挿入
;;; ファイルの先頭から 8 行以内に Time-stamp: <> または
;;; Time-stamp: " " と書いてあれば、セーブ時に自動的に日付が挿入される
(if (not (memq 'time-stamp write-file-hooks))
   (setq write-file-hooks
     (cons 'time-stamp write-file-hooks)))