Mercurial > emacs
changeset 30236:c6e051bf5f2e
Make FONTNAME arg to set-fontset-font a cons.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Sat, 15 Jul 2000 11:49:36 +0000 |
| parents | 5a0d447b7eea |
| children | c470ffbc2a4a |
| 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 Fri Jul 14 20:29:04 2000 +0000 +++ b/lisp/term/w32-win.el Sat Jul 15 11:49:36 2000 +0000 @@ -851,10 +851,10 @@ 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.