Meadowのフォントを変える

Meadowのフォント設定は結構難しいというか面倒なので、同僚が使ってたものをコピペして使っていました。こいつはMS ゴシックの設定で、別に不満もなく普通に使っていたのですが、ふとしたことからプログラマ向けかもしれない固定ピッチフォントというのを見つけました。こいつがなんとEPSONの98互換機のフォントだというじゃないですか！
PC98x1時代にはEPSON互換機で暮らした私としては、ぜひ使わねば！ということで、Meadowで使えるようにしました。

１．Fixed98Epson.lzhをダウソ
２．Fixed98Epsonをインスコ
３．Fixed98Epsonフォントセットを作る（以下の設定を.emacsに追加）
(w32-add-font
 "fontset-fixepson12"
 '((strict-spec
  ((:char-spec ascii :height any)
   (w32-logfont "Fixed98Epson" 0 -12 400 0 nil nil nil 128 1 1 49))
  ((:char-spec ascii :height any :weight bold)
   (w32-logfont "Fixed98Epson" 0 -12 700 0 nil nil nil 128 1 1 49))
  ((:char-spec ascii :height any :slant italic)
   (w32-logfont "Fixed98Epson" 0 -12 400 0 t nil nil 128 1 1 49))
  ((:char-spec ascii :height any :weight bold :slant italic)
   (w32-logfont "Fixed98Epson" 0 -12 700 0 t nil nil 128 1 1 49))
  ((:char-spec japanese-jisx0208 :height any)
   (w32-logfont "Fixed98Epson" 0 -12 400 0 nil nil nil 128 1 1 49))
  ((:char-spec japanese-jisx0208 :height any :weight bold)
   (w32-logfont "Fixed98Epson" 0 -12 700 0 nil nil nil 128 1 1 49)
   ((spacing . -1)))
  ((:char-spec japanese-jisx0208 :height any :slant italic)
   (w32-logfont "Fixed98Epson" 0 -12 400 0 t nil nil 128 1 1 49))
  ((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
   (w32-logfont "Fixed98Epson" 0 -12 700 0 t nil nil 128 1 1 49)
   ((spacing . -1)))
  ((:char-spec katakana-jisx0201 :height any)
   (w32-logfont "Fixed98Epson" 0 -12 400 0 nil nil nil 128 1 1 49))
  ((:char-spec katakana-jisx0201 :height any :weight bold)
   (w32-logfont "Fixed98Epson" 0 -12 700 0 nil nil nil 128 1 1 49)
   ((spacing . -1)))
  ((:char-spec katakana-jisx0201 :height any :slant italic)
   (w32-logfont "Fixed98Epson" 0 -12 400 0 t nil nil 128 1 1 49))
  ((:char-spec katakana-jisx0201 :height any :weight bold :slant italic)
   (w32-logfont "Fixed98Epson" 0 -12 700 0 t nil nil 128 1 1 49)
   ((spacing . -1)))
)))
４．フレームのフォントセットを変更
(setq default-frame-alist
 (append (list
  '(font . "fontset-fixepson12")
  '(ime-font . (w32-logfont "Fixed98Epson" 0 -12 400 0 nil nil nil 128 1 1 49))
  …
 )
 default-frame-alist))