cocoa emacsの不満

jaspase.elを用いて，

;;;jaspace;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;(require 'jaspace)
;(jaspace-mode-on)
; 全角空白を表示させる
(setq jaspace-alternate-jaspace-string "□")

;; 改行記号を表示させる
;(setq jaspace-alternate-eol-string "↓\n")

;; タブを表示
(setq jaspace-highlight-tabs t)

こんな感じでcarbon版の時は.emacsに書いてれば以下のようにタブ記号が表示されていたのに，

cocoa版にすると，タブ記号が表示されなくなった．．．orz
だから，今は，以下のような記述を採用してるんだけど，

;;タブ, 全角スペースを色つき表示する (色名は M-x list-color-displayで調べる)
;;http://homepage1.nifty.com/blankspace/emacs/color.html
(defface my-face-b-1 '((t (:background "Magenta"))) nil)
(defface my-face-b-2 '((t (:background "gray7"))) nil)
(defvar my-face-b-1 'my-face-b-1)
(defvar my-face-b-2 'my-face-b-2)
(defadvice font-lock-mode (before my-font-lock-mode ())
  (font-lock-add-keywords
   major-mode
   '(("\t" 0 my-face-b-2 append)
     ("　" 0 my-face-b-1 append)
     ("[ \t]+$" 0 my-face-b-1 append)
     )))
(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode)
(ad-activate 'font-lock-mode)

タブ記号がcarbon版の時のように設定できないのですごく嫌だ．どうすればいいのだろう