メイリオを Meadow で使う方法

メイリオは日本語は等幅、アルファベットなどはプロポーショナルなフォント。

アルファベット部分が等幅じゃなくてもよいのなら、単純に ttfontsetup.el や Netinstall の msfontset をいじって使えばよい。
けどエディタ的にはやっぱり英語も等幅にして日本語との幅を 1:2 にしたいので、こんな感じで Courier New と組み合わせてみた。ちなみに Windows XP でやってます。Vista でも同じかな？

まだこれじゃフォントが少し大きすぎて特に行間が空きすぎるので、もうちょっと調整した方が良いのだけれど、とりあえず書いておきます。ボールドとイタリックもちゃんとテストしていないので spacing を変更した方がいいかも。

たぶんメイリオは同じポイントで比較して縦サイズが大きく取ってある、つまり行間が広いので、Courier New と並べたときに同じくらいの文字の大きさだとどうしても高さが合わない。これは Meadow のフォント設定じゃどうにもならないような気がするんだけど、回避できるのかな？

もっといい設定方法だれか教えてください。

ちなみに Corier New のフォントサイズ (-14) を -12 にして meiryo を -13 にしても等幅でバランスします。

(w32-add-font  "meiryo-courier" nil)
(w32-change-font
 "meiryo-courier"
 '*1
    *2
    *3
    *4
    ((:char-spec japanese-jisx0208 :height any)
     strict
     (w32-logfont "meiryo" 0 -15 400 0 nil nil nil 128 1 3 49)
     ((spacing . 1)))
    ((:char-spec japanese-jisx0208 :height any :slant italic)
     strict
     (w32-logfont "meiryo" 0 -15 400 0 t nil nil 128 1 3 49)
     ((spacing . 1)))
    ((:char-spec japanese-jisx0208 :height any :weight bold)
     strict
     (w32-logfont "meiryo" 0 -15 700 0 nil nil nil 128 1 3 49)
     ((spacing . 1)))
    ((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
     strict
     (w32-logfont "meiryo" 0 -15 700 0 t nil nil 128 1 3 49)
     ((spacing . 1))))))
(set-face-attribute 'variable-pitch nil :font "meiryo-courier")

*1:spec ((:char-spec ascii :height any) strict (w32-logfont "Courier New" 0 -14 400 0 nil nil nil 0 1 3 0

*2::char-spec ascii :height any :weight bold) strict (w32-logfont "Courier New" 0 -14 700 0 nil nil nil 0 1 3 0

*3::char-spec ascii :height any :slant italic) strict (w32-logfont "Courier New" 0 -14 400 0 t nil nil 0 1 3 0

*4::char-spec ascii :height any :weight bold :slant italic) strict (w32-logfont "Courier New" 0 -14 700 0 t nil nil 0 1 3 0