[Emacs]IPA モナーフォントを追加

.emacs に以下を追加する

;; IPA モナーフォント用設定追加
(defvar ntemacs-font-defined-sizes '(7 8 9 10 12 14 16 18 20 24))
(defun ntemacs-font-create-fontset
 (fontset ascii-font latin1-font japanese-font size-list)
 (let (size)
 (while size-list
 (setq size (car size-list))
 (setq size-list (cdr size-list))
 (create-fontset-from-ascii-font
 (format "-outline-%s-normal-r-normal-normal-%d-*-*-*-*-*-iso8859-1"
        ascii-font size)
 nil
 (format "%s%02d" fontset size))
 (set-fontset-font (format "fontset-%s%02d" fontset size)
 'latin-iso8859-1
 (cons latin1-font "iso8859*"))
 (set-fontset-font (format "fontset-%s%02d" fontset size)
 'japanese-jisx0208
 (cons japanese-font "jisx0208-sjis"))
 (set-fontset-font (format "fontset-%s%02d" fontset size)
 'katakana-jisx0201
 (cons japanese-font "jisx0201-katakana"))
        )))

(ntemacs-font-create-fontset
 "IPAmona" "IPA モナー ゴシック" "Lucida Console*" "IPA モナー ゴシック*" ntemacs-font-defined-sizes)
;; ここまで IPA モナー

;; IPAモナー (ipamona12)
(add-to-list 'default-frame-alist
 '(font . "fontset-ipamona12"))