フォントの設定 Carbon Emacs

こういうのはすぐに忘れる．

僕の Carbon Emacs フォント設定に書いてるやつ．

(set-face-attribute 'default nil

                    :family "monaco"

                    :height 140)

(set-fontset-font "fontset-default"

                  'japanese-jisx0208

                  '("ヒラギノ丸ゴ pro w4*" . "jisx0208.*"))

(set-fontset-font "fontset-default"

                  'katakana-jisx0201

                  '("ヒラギノ丸ゴ pro w4*" . "jisx0201.*"))

(add-to-list 'face-font-rescale-alist

	     `(,(encode-coding-string ".*ヒラギノ丸ゴ pro w4.*" 'emacs-mule) . 1.2))
(setq default-frame-alist

      (append (list '(font . "fontset-default")) default-frame-alist))

いろいろ不要なものがあるな．まあいいか．