最近のNTEmacsのフォント設定

今使っているEmacsは

(emacs-version)
"GNU Emacs 23.3.1 (i386-mingw-nt6.1.7601)
 of 2011-08-15 on GNUPACK"

ここ(fontset-standard を使ったフォント設定)とここ(FontSets)を参考に

こんな感じで使っている

(defun my-setup-fontset ()
  "fontset-standard を使ったフォント設定"
  (interactive)
  ;; fontset-standard
  (dolist (target '(japanese-jisx0208
   japanese-jisx0208-1978
   japanese-jisx0212
   japanese-jisx0213-1
   japanese-jisx0213-2
   japanese-jisx0213.2004-1
   katakana-jisx0201))
    (set-fontset-font "fontset-standard" target "Migu 1M"))
  (dolist (target '(latin-iso8859-1
   latin-iso8859-2
   latin-iso8859-3
   latin-iso8859-4
   cyrillic-iso8859-5
   greek-iso8859-7))
    (set-fontset-font "fontset-standard" target "Bitstream Vera Sans Mono"))
  (set-fontset-font "fontset-standard" 'ascii "Bitstream Vera Sans Mono")
  (set-fontset-font t nil "Arial Unicode MS")
  (dolist (elt '((".*Migu 1M.*" . 1.1)
(".*Bitstream Vera Sans Mono.*" . 0.8)))
    (add-to-list 'face-font-rescale-alist elt))
  (my-setup-fontset)
  (add-to-list 'default-frame-alist '(font . "fontset-standard"))
  (add-to-list 'default-frame-alist '(fontset . "fontset-standard"))

他の組み合わせを色々試してみたが結局ここに落ち着いた….