aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJason Rumney2000-07-15 11:49:36 +0000
committerJason Rumney2000-07-15 11:49:36 +0000
commit8322784013f25cd5a26a8ac8dbf3a4c0d8f5b4b6 (patch)
tree6ee38b165b468627a54338b439925d6a7856d242
parent178c5d9c65da7c156e1f1263b54f339ef7db0d80 (diff)
downloademacs-8322784013f25cd5a26a8ac8dbf3a4c0d8f5b4b6.tar.gz
emacs-8322784013f25cd5a26a8ac8dbf3a4c0d8f5b4b6.zip
Make FONTNAME arg to set-fontset-font a cons.
-rw-r--r--lisp/term/w32-win.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 081c8d1ff85..ae675e388a0 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
851menu if the variable `w32-use-w32-font-dialog' is nil.") 851menu if the variable `w32-use-w32-font-dialog' is nil.")
852 852
853;;; Enable Japanese fonts on Windows to be used by default. 853;;; Enable Japanese fonts on Windows to be used by default.
854(set-fontset-font t (make-char 'katakana-jisx0201) "JISX0208-SJIS") 854(set-fontset-font t (make-char 'katakana-jisx0201) '("*" . "JISX0208-SJIS"))
855(set-fontset-font t (make-char 'latin-jisx0201) "JISX0208-SJIS") 855(set-fontset-font t (make-char 'latin-jisx0201) '("*" . "JISX0208-SJIS"))
856(set-fontset-font t (make-char 'japanese-jisx0208) "JISX0208-SJIS") 856(set-fontset-font t (make-char 'japanese-jisx0208) '("*" . "JISX0208-SJIS"))
857(set-fontset-font t (make-char 'japanese-jisx0208-1978) "JISX0208-SJIS") 857(set-fontset-font t (make-char 'japanese-jisx0208-1978) '("*" . "JISX0208-SJIS"))
858 858
859(defun mouse-set-font (&rest fonts) 859(defun mouse-set-font (&rest fonts)
860 "Select a font. 860 "Select a font.