| 1 |
(custom-set-variables |
|---|
| 2 |
;; custom-set-variables was added by Custom -- don't edit or cut/paste it! |
|---|
| 3 |
;; Your init file should contain only one such instance. |
|---|
| 4 |
'(case-fold-search t) |
|---|
| 5 |
'(current-language-environment "Japanese") |
|---|
| 6 |
'(default-input-method "japanese")) |
|---|
| 7 |
(custom-set-faces |
|---|
| 8 |
;; custom-set-faces was added by Custom -- don't edit or cut/paste it! |
|---|
| 9 |
;; Your init file should contain only one such instance. |
|---|
| 10 |
) |
|---|
| 11 |
(set-language-environment "Japanese") |
|---|
| 12 |
(mw32-ime-initialize) |
|---|
| 13 |
(setq default-input-method "MW32-IME") |
|---|
| 14 |
(create-fontset-from-request "private-fontset" |
|---|
| 15 |
'((width . 8) |
|---|
| 16 |
(height . 16) |
|---|
| 17 |
(fixed . t) |
|---|
| 18 |
(italic . nil)) |
|---|
| 19 |
'((family . "$B#M#S(B $B%4%7%C%/(B") |
|---|
| 20 |
(family . "Courier New"))) |
|---|
| 21 |
(setq default-frame-alist |
|---|
| 22 |
(append (list '(font . "private-fontset")) |
|---|
| 23 |
default-frame-alist)) |
|---|
| 24 |
;; ;;; $B0u:~$N@_Dj(B |
|---|
| 25 |
;; ;; $B$3$N@_Dj$G(B M-x print-buffer RET $B$J$I$G$N0u:~$,$G$-$k$h$&$K$J$j$^$9(B |
|---|
| 26 |
..... |
|---|
| 27 |
;; (and (file-readable-p tmpfile) (file-writable-p tmpfile) |
|---|
| 28 |
;; (delete-file tmpfile)))) |
|---|
| 29 |
;; |
|---|
| 30 |
;; (setq print-region-function 'w32-print-region) |
|---|
