   ;; デフォルトで視覚化を有効にする。
   (global-whitespace-mode 1))
 
+;; gnu global (gtags)
 (when nil ;; (require 'gtags nil t)
   (global-set-key "\M-t" nil)
   (global-set-key "\M-tt" 'gtags-find-tag)

;; -------------------------------------------------------------------------
;; メジャーモードの設定や読み込み

;; css-mode
;;(when (autoload-if-exist 'css-mode "css-mode" "Mode for editing CSS files" t)
;;  (add-to-list 'auto-mode-alist '("\\.css$" . css-mode))
;;  (eval-after-load "css-mode"
;;    (let ()
;;      ;; css-mode 読み込まれた時に評価される
;;      )))

;; markdown-mode
(when (autoload-if-exist 'markdown-mode "markdown-mode"
                         "Major mode for editing Markdown files" t)

;; -*- mode: lisp-interaction; syntax: elisp; coding: utf-8-unix -*-

(set-language-environment "Japanese")

(set-cursor-color "green")

;; meadow 向けの設定
; (if (string-equal system-type "windows-nt")    (let ()  ))

;; 自動保存機能
(setq auto-save-default t
      auto-save-list-file-name "~/.emacs-auto-save-list" ;; 自動保存に関する情報
      auto-save-intrval 50  ;; 自動保存する打鍵回数
      auto-save-timeout 10)  ;; 自動保存する時間

;; フォントロックモード (強調表示等) を有効にする
;; (global-font-lock-mode t)

;; マークしている範囲をハイライトする
(setq-default transient-mark-mode t)

;; 対応する括弧をハイライト
(show-paren-mode 1)
(setq show-paren-style 'mixed)

;; バッファ末尾に余計な改行コードを防ぐための設定
(setq next-line-add-newlines nil)

;; 縦分割の時、一行で表示しきれない時の挙動
;; nil: 改行、t: オーバーフロー
(setq truncate-partial-width-windows nil)

;; インデントの際にタブを用いるか否か
(setq-default indent-tabs-mode nil)

;; メニューバーの表示
(menu-bar-mode (if window-system 1 0))

;; シンボリックリンク先がバージョンコントロール化にある時の
;; プロンプトを表示しない
(setq vc-follow-symlinks t)

;; "The local variables list in .emacs" と言われるのを抑止
(add-to-list 'ignored-local-variables 'syntax)

;; 列数表示
(column-number-mode 1)

;; スプラッシュ画面を表示しない
(setq inhibit-splash-screen t)

;; ウィンドウシステムを使っているとき
(if window-system
    (let ()

      ;; ツールバーの表示
      (tool-bar-mode -1)

      ;; スクロールバーを消す(nil:消える,right:右側)
      (set-scroll-bar-mode "right")

      ;; ウィンドウサイズを画面に揃える（精度は微妙）
      (add-to-list 'default-frame-alist
                   (cons 'height (/ (- (x-display-pixel-height) 50)
                                    (frame-char-height))))
      ))

;; BS で選択範囲を消す
(delete-selection-mode 1)

;; 現在の行をハイライト
(global-hl-line-mode)

;; 保存前に末尾空白の削除
;; (add-hook 'before-save-hook 'delete-trailing-whitespace)

;; パッケージ管理
(require 'package)
(add-to-list 'package-archives
             '("melpa" . "http://melpa.milkbox.net/packages/") t)
(add-to-list 'package-archives
             '("marmalade" . "http://marmalade-repo.org/packages/"))
(package-initialize)


;; -------------------------------------------------------------------------
;; グローバルキーバインド変更

;; 不要なキーバインド削除
(global-unset-key "\C-\\")	;; 入力モード切り替え
(global-unset-key "\C-t")	;; 文字入れ替え

;; C-h でカーソルの左にある文字を消す
(global-set-key "\C-h" 'delete-backward-char)
