tabとか全角スペースに色をつける。
http://d.hatena.ne.jp/higepon/20060308/1141804526を参考に。っというかそのまま.emacsに設定。多少色を変えた程度。
(defface my-face-b-1 '*1 (font-lock-add-keywords major-mode '( (" " 0 my-face-b-1 append) ("\t" 0 my-face-b-2 append) ("[ ]+$" 0 my-face-u-1 append) ))) (ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode) (ad-activate 'font-lock-mode) (add-hook 'find-file-hooks '(lambda () (if font-lock-mode nil (font-lock-mode t))) t)
おお、これはいい感じですね。ただChangeLogには勝手にTabが挿入されるのでうざいですねぇ。回避する方法がありそうだけど、emacsレベルが足りません。
*1:t (:background "medium aquamarine"))) nil) (defface my-face-b-2 '((t (:background "cyan"))) 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 (