GNU Intlfonts
- ダウンロード
- .emacs
(setq bdf-use-intlfonts16 t)
(setq initial-frame-alist '((font . "intlfonts16")))
MS ゴシック
- .emacs
(w32-add-font
"fontset-msgothic12"
'((strict-spec
((:char-spec ascii :height any)
(w32-logfont "MS ゴシック" 0 12 400 0 nil nil nil 0 1 3 49))
((:char-spec ascii :height any :weight bold)
(w32-logfont "MS ゴシック" 0 12 700 0 nil nil nil 0 1 3 49))
((:char-spec ascii :height any :slant italic)
(w32-logfont "MS ゴシック" 0 12 400 0 t nil nil 0 1 3 49))
((:char-spec ascii :height any :weight bold :slant italic)
(w32-logfont "MS ゴシック" 0 12 700 0 t nil nil 0 1 3 49))
((:char-spec japanese-jisx0208 :height any)
(w32-logfont "MS ゴシック" 0 12 400 0 nil nil nil 128 1 3 49))
((:char-spec japanese-jisx0208 :height any :weight bold)
(w32-logfont "MS ゴシック" 0 12 700 0 nil nil nil 128 1 3 49)
((spacing . -1)))
((:char-spec japanese-jisx0208 :height any :slant italic)
(w32-logfont "MS ゴシック" 0 12 400 0 t nil nil 128 1 3 49))
((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
(w32-logfont "MS ゴシック" 0 12 700 0 t nil nil 128 1 3 49)
((spacing . -1)))
((:char-spec katakana-jisx0201 :height any)
(w32-logfont "MS ゴシック" 0 12 400 0 nil nil nil 128 1 3 49))
((:char-spec katakana-jisx0201 :height any :weight bold)
(w32-logfont "MS ゴシック" 0 12 700 0 nil nil nil 128 1 3 49)
((spacing . -1)))
((:char-spec katakana-jisx0201 :height any :slant italic)
(w32-logfont "MS ゴシック" 0 12 400 0 t nil nil 128 1 3 49))
((:char-spec katakana-jisx0201 :height any :weight bold :slant italic)
(w32-logfont "MS ゴシック" 0 12 700 0 t nil nil 128 1 3 49)
((spacing . -1)))
)))
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)))
)))
Windows の logfont を調べる
- フォント選択ダイアログを表示し、ダイアログで選択されたフォントの logfont を返します。
(w32-query-get-logfont)
|