| 8 | | (unless (w32-list-fonts "MSゴシック-12p") |
|---|
| 9 | | (w32-add-font |
|---|
| 10 | | "MSゴシック-12p" |
|---|
| 11 | | '((spec |
|---|
| 12 | | ((:char-spec ascii :height 120) |
|---|
| 13 | | strict |
|---|
| 14 | | (w32-logfont "Courier New" 0 -13 400 0 nil nil nil 0 1 3 49)) |
|---|
| 15 | | ((:char-spec ascii :height 120 :weight bold) |
|---|
| 16 | | strict |
|---|
| 17 | | (w32-logfont "Courier New" 0 -13 700 0 nil nil nil 0 1 3 49)) |
|---|
| 18 | | ((:char-spec ascii :height 120 :slant italic) |
|---|
| 19 | | strict |
|---|
| 20 | | (w32-logfont "Courier New" 0 -13 400 0 t nil nil 0 1 3 49)) |
|---|
| 21 | | ((:char-spec ascii :height 120 :weight bold :slant italic) |
|---|
| 22 | | strict |
|---|
| 23 | | (w32-logfont "Courier New" 0 -13 700 0 t nil nil 0 1 3 49)) |
|---|
| 24 | | ((:char-spec japanese-jisx0208 :height 120) |
|---|
| 25 | | strict |
|---|
| 26 | | (w32-logfont "MS ゴシック" 0 -16 400 0 nil nil nil 128 1 3 49)) |
|---|
| 27 | | ((:char-spec japanese-jisx0208 :height 120 :weight bold) |
|---|
| 28 | | strict |
|---|
| 29 | | (w32-logfont "MS ゴシック" 0 -16 700 0 nil nil nil 128 1 3 49) |
|---|
| 30 | | ((spacing . -1))) |
|---|
| 31 | | ((:char-spec japanese-jisx0208 :height 120 :slant italic) |
|---|
| 32 | | strict |
|---|
| 33 | | (w32-logfont "MS ゴシック" 0 -16 400 0 t nil nil 128 1 3 49)) |
|---|
| 34 | | ((:char-spec japanese-jisx0208 :height 120 :weight bold :slant italic) |
|---|
| 35 | | strict |
|---|
| 36 | | (w32-logfont "MS ゴシック" 0 -16 700 0 t nil nil 128 1 3 49) |
|---|
| 37 | | ((spacing . -1))))))) |
|---|
| | 12 | (unless (w32-list-fonts "MSゴシック-12p") |
|---|
| | 13 | (w32-add-font |
|---|
| | 14 | "MSゴシック-12p" |
|---|
| | 15 | '((spec |
|---|
| | 16 | ((:char-spec ascii :height 120) |
|---|
| | 17 | strict |
|---|
| | 18 | (w32-logfont "Courier New" 0 -13 400 0 nil nil nil 0 1 3 49)) |
|---|
| | 19 | ((:char-spec ascii :height 120 :weight bold) |
|---|
| | 20 | strict |
|---|
| | 21 | (w32-logfont "Courier New" 0 -13 700 0 nil nil nil 0 1 3 49)) |
|---|
| | 22 | ((:char-spec ascii :height 120 :slant italic) |
|---|
| | 23 | strict |
|---|
| | 24 | (w32-logfont "Courier New" 0 -13 400 0 t nil nil 0 1 3 49)) |
|---|
| | 25 | ((:char-spec ascii :height 120 :weight bold :slant italic) |
|---|
| | 26 | strict |
|---|
| | 27 | (w32-logfont "Courier New" 0 -13 700 0 t nil nil 0 1 3 49)) |
|---|
| | 28 | ((:char-spec japanese-jisx0208 :height 120) |
|---|
| | 29 | strict |
|---|
| | 30 | (w32-logfont "MS ゴシック" 0 -16 400 0 nil nil nil 128 1 3 49)) |
|---|
| | 31 | ((:char-spec japanese-jisx0208 :height 120 :weight bold) |
|---|
| | 32 | strict |
|---|
| | 33 | (w32-logfont "MS ゴシック" 0 -16 700 0 nil nil nil 128 1 3 49) |
|---|
| | 34 | ((spacing . -1))) |
|---|
| | 35 | ((:char-spec japanese-jisx0208 :height 120 :slant italic) |
|---|
| | 36 | strict |
|---|
| | 37 | (w32-logfont "MS ゴシック" 0 -16 400 0 t nil nil 128 1 3 49)) |
|---|
| | 38 | ((:char-spec japanese-jisx0208 :height 120 :weight bold :slant italic) |
|---|
| | 39 | strict |
|---|
| | 40 | (w32-logfont "MS ゴシック" 0 -16 700 0 t nil nil 128 1 3 49) |
|---|
| | 41 | ((spacing . -1))))))) |
|---|
| 46 | | (unless (assoc 'ime-font default-frame-alist) |
|---|
| 47 | | (setq default-frame-alist |
|---|
| 48 | | (add-to-list 'default-frame-alist |
|---|
| 49 | | '(ime-font . (w32-logfont "MS ゴシック" |
|---|
| 50 | | 0 16 400 0 nil nil nil |
|---|
| 51 | | 128 1 3 49))))) |
|---|
| | 52 | (create-fontset-from-fontset-spec |
|---|
| | 53 | "-*-Courier New-normal-r-*-*-13-*-*-*-c-*-fontset-TT, |
|---|
| | 54 | latin-jisx0201:-sony-fixed-medium-r-normal--16-*-*-*-*-*-jisx0201.1976-0, |
|---|
| | 55 | japanese-jisx0208:-outline-MS ゴシック-normal-r-normal-normal-16-*-*-*-*-*-jisx0208-sjis" t t) |
|---|