GNU Intlfonts †

1. • GNU intlfonts

     wget ftp://m17n.org/pub/mule/intlfonts-1.2.1.tar.gz

2. .emacs

   (setq bdf-use-intlfonts16 t)
   (setq initial-frame-alist '((font . "intlfonts16")))

†

1. .emacs

   (w32-add-font
    "fontset-msgothic12"
    '((strict-spec
   	((:char-spec ascii :height any)
   
   	((:char-spec ascii :height any :weight bold)
   
   	((:char-spec ascii :height any :slant italic)
   
   	((:char-spec ascii :height any :weight bold :slant italic)
   
   	((:char-spec japanese-jisx0208 :height any)
   
   	((:char-spec japanese-jisx0208 :height any :weight bold)
   
   	 ((spacing . -1)))
   	((:char-spec japanese-jisx0208 :height any :slant italic)
   
   	((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
   
   	 ((spacing . -1)))
   	((:char-spec katakana-jisx0201 :height any)
   
   	((:char-spec katakana-jisx0201 :height any :weight bold)
   
   	 ((spacing . -1)))
   	((:char-spec katakana-jisx0201 :height any :slant italic)
   
   	((:char-spec katakana-jisx0201 :height any :weight bold :slant italic)
   
   	 ((spacing . -1)))
   )))

Fixed98Epson †

2. .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)))
   )))

†

• (w32-query-get-logfont)