cocoa emacs でのフォントの設定

cocoa emacs でデフォルトの日本語フォントをずっと使っていたら目が痛くなってしまったので、
http://macemacsjp.sourceforge.jp/index.php?MacFontSetting
の内容を参考にして、設定しました。
~/.emacs.d/init.el に

(create-fontset-from-ascii-font "Menlo-12:weight=normal:slant=normal" nil "menlokakugo")
(set-fontset-font "fontset-menlokakugo" 'unicode (font-spec :family "Hiragino Kaku Gothic ProN" ) nil 'append)
(add-to-list 'default-frame-alist '(font . "fontset-menlokakugo"))
(setq face-font-rescale-alist '((".*Hiragino.*" . 1.2) (".*Menlo.*" . 1.0)))

ちゃんと設定すれば cocoa emacs も carbon emacs と同じくらい見易くなるんですね。