                                     (frame-char-height))))
       ))
 
-;; BS で選択範囲を消す
+;; BS でマーク範囲を消す
 (delete-selection-mode 1)
+
+;; マーク範囲をハイライト
+(setq-default transient-mark-mode t)
 
 ;; 現在の行をハイライト
 (global-hl-line-mode)


;; -------------------------------------------------------------------------
;; 色とか
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(ansi-color-names-vector ["#2d3743" "#ff4242" "#74af68" "#dbdb95" "#34cae2" "#008b8b" "#00ede1" "#e1e1e0"])
 '(custom-enabled-themes (quote (tango-dark))))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(col-highlight ((t :inherit (quote hl-line))) t)
 '(highlight ((t :foreground nil)))
 '(hl-line ((t :foreground nil :background "black"))))

;; whitespace-mode
(when (require 'whitespace nil t)
  ;; n 列以上はハイライトで警告
  ;; (setq whitespace-line-column 90)

  (setq whitespace-style
        '(face ;; faceを使って視覚化する。
          ;; 行末の空白
          trailing
          ;; 長すぎる行のうち whitespace-line-column 以降部分をハイライト
          ;; lines-tail
          ;; タブ
          tabs
          ;; タブの前にあるスペース
