MeadowでConsolas＋メイリオ

前に書いたような気がするけど設定とかをメモってなかったので再度。

;;メイリオ-consolas
(w32-add-font  "meiryo-consolas" nil)
(w32-change-font
 "meiryo-consolas"
 '((spec
    ((:char-spec ascii :height any)
     strict
     (w32-logfont "Consolas" 0 -14 400 0 nil nil nil 0 1 3 0))
    ((:char-spec ascii :height any :weight bold)
     strict
     (w32-logfont "Consolas" 0 -14 700 0 nil nil nil 0 1 3 0))
    ((:char-spec ascii :height any :slant italic)
     strict
     (w32-logfont "Consolas" 0 -14 400 0 t nil nil 0 1 3 0))
    ((:char-spec ascii :height any :weight bold :slant italic)
     strict
     (w32-logfont "Consolas" 0 -14 700 0 t nil nil 0 1 3 0))
    ((: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-consolas")

そういえばこの設定自体誰かの設定から引っ張ってきたやつを適当にいじったやつなんだけど引用元忘れちった。