Mercurial > emacs
changeset 49882:3b81891b7703
Call set-fontset-font with NAME nil.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Thu, 20 Feb 2003 12:43:47 +0000 |
parents | 95289e554702 |
children | 4fb79f65681e |
files | lisp/term/w32-win.el |
diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/w32-win.el Thu Feb 20 12:42:39 2003 +0000 +++ b/lisp/term/w32-win.el Thu Feb 20 12:43:47 2003 +0000 @@ -1229,10 +1229,10 @@ (list face (if (equal value "") nil value)))) ;;; 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 nil (make-char 'katakana-jisx0201) '("*" . "JISX0208-SJIS")) +(set-fontset-font nil (make-char 'latin-jisx0201) '("*" . "JISX0208-SJIS")) +(set-fontset-font nil (make-char 'japanese-jisx0208) '("*" . "JISX0208-SJIS")) +(set-fontset-font nil (make-char 'japanese-jisx0208-1978) '("*" . "JISX0208-SJIS")) (defun mouse-set-font (&rest fonts) "Select a font.