| 50 | | ;; (create-fontset-from-request "private-fontset" |
|---|
| 51 | | ;; '((width . 8) |
|---|
| 52 | | ;; (height . 16) |
|---|
| 53 | | ;; (fixed . t) |
|---|
| 54 | | ;; (italic . nil)) |
|---|
| 55 | | ;; '((family . "$B#M#S(B $B%4%7%C%/(B") |
|---|
| 56 | | ;; (family . "Courier New"))) |
|---|
| 57 | | ;; |
|---|
| 58 | | ;; (change-fontset-from-request "private-fontset" |
|---|
| 59 | | ;; '((width . 8) |
|---|
| 60 | | ;; (height . 16) |
|---|
| 61 | | ;; (fixed . t) |
|---|
| 62 | | ;; (weight . 700) |
|---|
| 63 | | ;; (italic . nil)) |
|---|
| 64 | | ;; '((family . "$B#M#S(B $B%4%7%C%/(B") |
|---|
| 65 | | ;; (family . "Courier New")) |
|---|
| 66 | | ;; 1) |
|---|
| | 50 | ;; (w32-add-font |
|---|
| | 51 | ;; "private-fontset" |
|---|
| | 52 | ;; '((spec |
|---|
| | 53 | ;; ((:char-spec ascii :height 120) |
|---|
| | 54 | ;; strict |
|---|
| | 55 | ;; (w32-logfont "Courier New" 0 -13 400 0 nil nil nil 0 1 3 49)) |
|---|
| | 56 | ;; ((:char-spec ascii :height 120 :weight bold) |
|---|
| | 57 | ;; strict |
|---|
| | 58 | ;; (w32-logfont "Courier New" 0 -13 700 0 nil nil nil 0 1 3 49)) |
|---|
| | 59 | ;; ((:char-spec ascii :height 120 :slant italic) |
|---|
| | 60 | ;; strict |
|---|
| | 61 | ;; (w32-logfont "Courier New" 0 -13 400 0 t nil nil 0 1 3 49)) |
|---|
| | 62 | ;; ((:char-spec ascii :height 120 :weight bold :slant italic) |
|---|
| | 63 | ;; strict |
|---|
| | 64 | ;; (w32-logfont "Courier New" 0 -13 700 0 t nil nil 0 1 3 49)) |
|---|
| | 65 | ;; ((:char-spec japanese-jisx0208 :height 120) |
|---|
| | 66 | ;; strict |
|---|
| | 67 | ;; (w32-logfont "$B#M#S(B $B%4%7%C%/(B" 0 -16 400 0 nil nil nil 128 1 3 49)) |
|---|
| | 68 | ;; ((:char-spec japanese-jisx0208 :height 120 :weight bold) |
|---|
| | 69 | ;; strict |
|---|
| | 70 | ;; (w32-logfont "$B#M#S(B $B%4%7%C%/(B" 0 -16 700 0 nil nil nil 128 1 3 49) |
|---|
| | 71 | ;; ((spacing . -1))) |
|---|
| | 72 | ;; ((:char-spec japanese-jisx0208 :height 120 :slant italic) |
|---|
| | 73 | ;; strict |
|---|
| | 74 | ;; (w32-logfont "$B#M#S(B $B%4%7%C%/(B" 0 -16 400 0 t nil nil 128 1 3 49)) |
|---|
| | 75 | ;; ((:char-spec japanese-jisx0208 :height 120 :weight bold :slant italic) |
|---|
| | 76 | ;; strict |
|---|
| | 77 | ;; (w32-logfont "$B#M#S(B $B%4%7%C%/(B" 0 -16 700 0 t nil nil 128 1 3 49) |
|---|
| | 78 | ;; ((spacing . -1)))))) |
|---|
| | 79 | |
|---|
| | 80 | ;; (set-face-attribute 'variable-pitch nil :family "*") |
|---|