end0tknr's kipple - 新web写経開発

http://d.hatena.ne.jp/end0tknr/ から移転しました

srcに含まれる全角スペース, 行末スペース, 行頭タブをハイライト

srcを書く際、インデント数を気にすることは多いと思いますが、私の場合、srcに含まれる全角スペースや行末スペース, 行頭タブも
気になってしまいます。

http://homepage1.nifty.com/blankspace/emacs/color.html

そんなときに、↑このurlを見つけました。
.emacsに次のように書くと、srcに含まれる全角スペース, 行末スペース, 行頭タブがハイライトされます。

(defface my-face-b-1 '((t (:background "bisque"))) nil)
(defface my-face-b-2 '((t (:background "LemonChiffon2"))) nil)
(defface my-face-u-1 '((t (:foreground "SteelBlue" :underline t))) nil)
(defvar my-face-b-1 'my-face-b-1)
(defvar my-face-b-2 'my-face-b-2)
(defvar my-face-u-1 'my-face-u-1)
(defadvice font-lock-mode (before my-font-lock-mode ())
  (font-lock-add-keywords
   major-mode
   '((" " 0 my-face-b-1 append)
     ("\t" 0 my-face-b-2 append)
     ("[ \t]+$" 0 my-face-u-1 append)
     )))
(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode)
(ad-activate 'font-lock-mode)