これを設定ファイルに書く。
;; Show tab, zenkaku-space, white spaces at end of line ;; http://www.bookshelf.jp/soft/meadow_26.html#SEC317 (defface my-face-tab '((t (:background "Yellow"))) nil :group 'my-faces) (defface my-face-zenkaku-spc '((t (:background "LightBlue"))) nil :group 'my-faces) (defface my-face-spc-at-eol '((t (:foreground "Red" :underline t))) nil :group 'my-faces) (defvar my-face-tab 'my-face-tab) (defvar my-face-zenkaku-spc 'my-face-zenkaku-spc) (defvar my-face-spc-at-eol 'my-face-spc-at-eol) (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-spc append) ("[ \t]+$" 0 my-face-spc-at-eol append) ))) (ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode) (ad-activate 'font-lock-mode) ;; settings for text file (add-hook 'text-mode-hook '(lambda () (progn (font-lock-mode t) (font-lock-fontify-buffer))))