Cocoa Emacsのフォント設定

Cocoa Emacsのフォント設定は「Emacs23 (Cocoa Emacs) 入門から中毒まで : 紹介マニア - フォントの設定」からコピペして使っていたのだけど、いわゆる半角カナが表示できなくなってしまったので、「Cocoa Emacs // 不定期な記録」の記述を見て、以下のように設定した(フォントにあんまりこだわりがないので適当)。

(when run-emacs23
 (set-face-attribute 'default nil
                     :family "monaco"
                     :height 140)
 (set-fontset-font
  (frame-parameter nil 'font)
  'japanese-jisx0208
  '("Hiragino Maru Gothic Pro" . "iso10646-1"))
 (set-fontset-font
  (frame-parameter nil 'font)
  'japanese-jisx0212
  '("Hiragino Maru Gothic Pro" . "iso10646-1"))
 (set-fontset-font
  (frame-parameter nil 'font)
  'mule-unicode-0100-24ff
  '("monaco" . "iso10646-1"))

 ;; 半角カナのために↓を追加
 (set-fontset-font
  (frame-parameter nil 'font)
  'katakana-jisx0201
  '("Hiragino Maru Gothic Pro" . "iso10646-1"))

 (setq face-font-rescale-alist
      '(("^-apple-hiragino.*" . 1.0)
        (".*osaka-bold.*" . 1.0)
        (".*osaka-medium.*" . 1.0)
        (".*courier-bold-.*-mac-roman" . 0.8)
        (".*monaco cy-bold-.*-mac-cyrillic" . 0.8)
        (".*monaco-bold-.*-mac-roman" . 0.8)
        ("-cdac$" . 0.9))))