# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1194658210 0
# Node ID 9ffd7a9238e90959eabac026c4d37d0825b6c457
# Parent  621f6f15454223e7e0d77f9bfac8b3e89f01dc29
(w32-initialize-window-system): Move SJIS font setup here from global scope.

diff -r 621f6f154542 -r 9ffd7a9238e9 lisp/term/w32-win.el
--- a/lisp/term/w32-win.el	Sat Nov 10 00:19:44 2007 +0000
+++ b/lisp/term/w32-win.el	Sat Nov 10 01:30:10 2007 +0000
@@ -1083,12 +1083,6 @@
   (error "Suspending an Emacs running under W32 makes no sense"))
 
 
-;;; 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.
 
@@ -1159,6 +1153,17 @@
 
   ;; 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,...).