; この設定ファイルに間違いがあった場合、全てを無効にする
(put 'eval-expression 'disabled nil)

; C-c C-g で指定行移動(行番号を入力)
(global-set-key "\C-c\C-g" 'goto-line)

; アイコンのツールバーを消す
(tool-bar-mode -1)
; メニューバーを消す
(menu-bar-mode -1)

;; 警告音を鳴らないようにする
;(setq ring-bell-function 'ignore)

;; 警告音の代わりにウィンドウを点滅させる
;(setq visible-bell t)

; 文字コード変換のショートカット(文字コード名を入力、Tabキーで一覧や補完あり)
(global-set-key "\C-c\C-k" 'set-buffer-file-coding-system)

; カーソルを点滅させない
(blink-cursor-mode nil)

; 範囲選択中の部分に色をつける
(setq transient-mark-mode t)
; 範囲選択中の色を灰色80%に指定
(set-face-background 'region "gray80")

; 圧縮されたファイルも編集できるようにする
(auto-compression-mode t)

; ステータス行に行番号を表示
(line-number-mode t)
; ステータス行に列番号を表示
(setq column-number-mode t)
;; 左に行番号を表示
;(global-linum-mode)

; スタート時のメッセージ表示しない
(setq inhibit-startup-message t)

; スタート時のバッファ中のメッセージを表示しない
(setq initial-scratch-message nil)

; 端末(非X Windows System)ではメニューを出さない
(or window-system
    (menu-bar-mode 0))

; 対応する括弧に色をつける
(cond ((fboundp 'show-paren-mode)
       (setq show-paren-delay 0.5)
       (show-paren-mode t)))

; 現在の関数名をステータス行に表示
(which-function-mode 1)

; 先頭が"#!"で始まるなら自動的に実行許可を与える
(add-hook 'after-save-hook
 '(lambda ()
   (save-restriction
    (widen)
    (if (string= "#!" (buffer-substring 1 (min 3 (point-max))))
      (let ((name (buffer-file-name)))
       (or (char-equal ?. (string-to-char (file-name-nondirectory name)))
         (let ((mode (file-modes name)))
          (set-file-modes name (logior mode (logand (/ mode 4) 73)))
          (message (concat "Wrote " name " (+x)"))))
       )))))

; バッファの最後で次の行に移動しようとしても新しい行を作らない
(setq next-line-add-newlines nil)

; バッファの最初と最後の行で警告音を出さない
(defun previous-line (arg)
  (interactive "p")
  (if (interactive-p)
       (condition-case nil
    (line-move (- arg))
  ((beginning-of-buffer end-of-buffer)))
       (line-move (- arg)))
  nil)
(defun next-line (arg)
  (interactive "p")
  (if (interactive-p)
       (condition-case nil
    (line-move (+ arg))
  ((beginning-of-buffer end-of-buffer)))
       (line-move (+ arg)))
  nil)

; ~/.saves-PID-hostname という名前の中間ファイルを作らない
(setq auto-save-list-file-prefix nil)

; Ctrl-oでインプットメソッド(日本語入力)を有効/無効化
(global-set-key (kbd "C-o") 'toggle-input-method)

;; 行末のスペースに色をつける
;(setq-default show-trailing-whitespace t)
;(set-face-background 'trailing-whitespace "gray50")

;; 一行が 80 字以上になった時には自動改行する
;(setq fill-column 80)
;(setq-default auto-fill-mode t)

;; 検索するときに大文字/小文字を区別しない
;(setq case-fold-search t)

;; emacs-w3m
;(autoload 'w3m "w3m" "Interface for w3m on Emacs." t)

;; mozc(Google日本語入力のオープンソース版)の設定
;(require 'mozc)
;(setq default-input-method "japanese-mozc")
;以下はいずれかを選択。候補の表示箇所。
;overlayはカーソルの上、echo-areaは最下行のecho-area
;(setq mozc-candidate-style 'overlay)
;(setq mozc-candidate-style 'echo-area)

;; YaTeX
;;
;(autoload 'yatex-mode "yatex" nil t)
;(setq auto-mode-alist (cons '("\\.tex\\'" . yatex-mode) auto-mode-alist))
;(setq YaTeX-use-font-lock t)
;(add-hook 'yatex-mode-hook
;          (lambda () (define-key YaTeX-mode-map "\C-l" 'recenter)))
;;(setq tex-command              "platex"
;;      dvi2-command             "xdvi -geometry +0+0 -s 7"
;;      ;dviprint-command-format  "dvips %s | lpr"
;;      YaTeX-kanji-code         3        ;3=EUC
;;      YaTeX-no-begend-shortcut t)