行末のスペースを目立たせる(途中まで)

emacs には whitespace.elというのがあって、行末に限らず空白文字を目立たせることができる。
xyzzy では表示の設定で全角スペースやタブ文字の表示を設定できるので、行末の空白文字だけを目立たせればいいかな。
途中まで書いてみた。

(defun show-trail-spaces ()
  (interactive)
  (let ((pattern "[ \t]+$"))        
    (save-excursion
      (goto-char (point-min))
      (while (scan-buffer pattern :regexp t :no-dup t)
        (set-text-attribute (match-beginning 0) (match-end 0)
                            'show-trail-spaces :background 3)))))

(defun hide-trail-spaces ()            
  (interactive)                 
  (delete-text-attributes 'show-trail-spaces))

;(add-hook '*post-command-hook* 'show-trail-spaces)

さて問題は、こんな重たそうなものを post-command-hook に追加していいものかどうか。
scan-buffer の範囲を限定するとか、特定のコマンドの入力後のみ実行するとかが必要な気がする。
whitespace.el も post-command-hook に 追加してるみたいだけど･･･。