タブ, 全角スペース, 行末スペースを表示

;; タブ, 全角スペース, 行末スペースを表示
(defface my-face-tab '((t (:foreground "SteelBlue" :underline t))) nil :group 'my-faces)
(defface my-face-zenkaku-space '((t (:background "gray"))) nil :group 'my-faces)
(defface my-face-eol-space '((t (:background "SteelBlue"))) nil :group 'my-faces)
(defvar my-face-tab 'my-face-tab)
(defvar my-face-zenkaku-space 'my-face-zenkaku-space)
(defvar my-face-eol-space 'my-face-eol-space)
(defadvice font-lock-mode (before my-font-lock-mode ())
(font-lock-add-keywords
major-mode
'(("\t" 0 my-face-tab append)
("　" 0 my-face-zenkaku-space append)
("[ \t]+$" 0 my-face-eol-space append)
)))
(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode)
(ad-activate 'font-lock-mode)