1221 |
(list face (if (equal value "") nil value)))) |
(list face (if (equal value "") nil value)))) |
1222 |
|
|
1223 |
;;; Enable Japanese fonts on Windows to be used by default. |
;;; Enable Japanese fonts on Windows to be used by default. |
1224 |
(set-fontset-font nil (make-char 'katakana-jisx0201) '("*" . "JISX0208-SJIS")) |
;; (set-fontset-font nil (make-char 'katakana-jisx0201) '("*" . "JISX0208-SJIS")) |
1225 |
(set-fontset-font nil (make-char 'latin-jisx0201) '("*" . "JISX0208-SJIS")) |
;; (set-fontset-font nil (make-char 'latin-jisx0201) '("*" . "JISX0208-SJIS")) |
1226 |
(set-fontset-font nil (make-char 'japanese-jisx0208) '("*" . "JISX0208-SJIS")) |
;; (set-fontset-font nil (make-char 'japanese-jisx0208) '("*" . "JISX0208-SJIS")) |
1227 |
(set-fontset-font nil (make-char 'japanese-jisx0208-1978) '("*" . "JISX0208-SJIS")) |
;; (set-fontset-font nil (make-char 'japanese-jisx0208-1978) '("*" . "JISX0208-SJIS")) |
1228 |
|
|
1229 |
(defun mouse-set-font (&rest fonts) |
(defun mouse-set-font (&rest fonts) |
1230 |
"Select a font. |
"Select a font. |