[Apple Emacs] Emacs21-Cocoa のフォントの設定

Emacs21 on Cocoa のフォントの設定が一応結着着いた、と言っても ISO-8859と EUC-JP の部分だけになるんだけど。~/.emacs.el の中には以下のようなものが追加される

(cond
((eq window-system (quote mac))
;; For Emacs21 on MacOS X Cocoa
(set-clipboard-coding-system 'sjis-mac)
(set-keyboard-coding-system 'sjis-mac)
(create-fontset-from-fontset-spec
(concat
"-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-monaco16,"
"japanese-jisx0208:"
"-apple-osaka-medium-r-normal--16-160-75-75-m-160-jisx0208.1983-sjis,"
"ascii:-apple-monaco-medium-r-normal-*-14-*-*-*-*-*-mac-roman"))
(create-fontset-from-fontset-spec
(concat
"-*-fixed-medium-r-normal-*-11-*-*-*-*-*-fontset-monaco12,"
"japanese-jisx0208:"
"-apple-osaka-medium-r-normal--14-140-*-m-140-jisx0208.1983-sjis,"
"ascii:-apple-monaco-medium-r-normal-*-12-*-*-*-*-*-mac-roman"))
(set-default-font "fontset-monaco12")
(setq default-frame-alist (append '((font . "fontset-monaco12"))))
(cd "~"))))

ちなみに括弧「()」の数があたっているかどうかは不明。なんせ ~/.emacs.el の一部をコピペしているだけなので。