Mercurial > emacs
changeset 79361:30ded86a4500
Enable SJIS fonts before creating any fontsets.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Sat, 10 Nov 2007 01:25:44 +0000 |
| parents | 8da2b1761937 |
| children | 42d159d65bcd |
| files | lisp/term/w32-win.el |
| diffstat | 1 files changed, 9 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/w32-win.el Sat Nov 10 00:28:58 2007 +0000 +++ b/lisp/term/w32-win.el Sat Nov 10 01:25:44 2007 +0000 @@ -1108,6 +1108,15 @@ (progn ;; Setup the default fontset. (setup-default-fontset) + ;; Enable Japanese fonts on Windows to be used by default. + (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")) ;; Create the standard fontset. (create-fontset-from-fontset-spec w32-standard-fontset-spec t) ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1,...). @@ -1209,12 +1218,6 @@ nil nil default)))) (list face (if (equal value "") nil value)))) -;;; Enable Japanese fonts on Windows to be used by default. -(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 an Emacs font from a list of known good fonts and fontsets.