diff options
| author | Jason Rumney <[email protected]> | 2000-07-15 11:49:36 +0000 |
|---|---|---|
| committer | Jason Rumney <[email protected]> | 2000-07-15 11:49:36 +0000 |
| commit | 8322784013f25cd5a26a8ac8dbf3a4c0d8f5b4b6 (patch) | |
| tree | 6ee38b165b468627a54338b439925d6a7856d242 /lisp/term | |
| parent | 178c5d9c65da7c156e1f1263b54f339ef7db0d80 (diff) | |
Make FONTNAME arg to set-fontset-font a cons.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/w32-win.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index 081c8d1ff8..ae675e388a 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -851,10 +851,10 @@ will have like Terminal and Courier. These fonts are used in the font menu if the variable `w32-use-w32-font-dialog' is nil.") ;;; Enable Japanese fonts on Windows to be used by default. -(set-fontset-font t (make-char 'katakana-jisx0201) "JISX0208-SJIS") -(set-fontset-font t (make-char 'latin-jisx0201) "JISX0208-SJIS") -(set-fontset-font t (make-char 'japanese-jisx0208) "JISX0208-SJIS") -(set-fontset-font t (make-char 'japanese-jisx0208-1978) "JISX0208-SJIS") +(set-fontset-font t (make-char 'katakana-jisx0201) '("*" . "JISX0208-SJIS")) +(set-fontset-font t (make-char 'latin-jisx0201) '("*" . "JISX0208-SJIS")) +(set-fontset-font t (make-char 'japanese-jisx0208) '("*" . "JISX0208-SJIS")) +(set-fontset-font t (make-char 'japanese-jisx0208-1978) '("*" . "JISX0208-SJIS")) (defun mouse-set-font (&rest fonts) "Select a font. |