font.el

;; フォントセット作成
(create-fontset-from-mac-roman-font
 "-apple-m+ 2m-medium-r-normal--14-*-*-*-*-*-iso10646-1" nil "mplus")
(set-fontset-font "fontset-mplus" 'japanese-jisx0208
                 '("m+ 2m light" . "iso10646"))
(set-fontset-font "fontset-mplus" (cons (make-char 'japanese-jisx0208 #x30 #x20)
                                       (make-char 'japanese-jisx0208 #x74 #x7f))
                 '("ヒラギノ角ゴ pro w3" . "jisx0208.1983"))
(set-fontset-font "fontset-mplus" 'katakana-jisx0201
                 '("m+ 1m light" . "iso10646"))

(create-fontset-from-mac-roman-font
 "-apple-m+ 2m-medium-r-normal--12-*-*-*-*-*-iso10646-1" nil "mplus")
(set-fontset-font "fontset-mplus" 'japanese-jisx0208
                  '("m+ 2m light" . "iso10646"))
(set-fontset-font "fontset-mplus" (cons (make-char 'japanese-jisx0208 #x30 #x20)
                                        (make-char 'japanese-jisx0208 #x74 #x7f))
                  '("ヒラギノ角ゴ pro w3" . "jisx0208.1983"))
(set-fontset-font "fontset-mplus" 'katakana-jisx0201
                  '("m+ 1m light" . "iso10646"))

;; フォント設定
(add-to-list 'default-frame-alist '(font . "fontset-mplus"))
(setq fixed-width-rescale nil)