[Emacs-diffs] Changes to emacs/lisp/term/w32-win.el

[Kenichi Handa]

Index: emacs/lisp/term/w32-win.el
diff -c emacs/lisp/term/w32-win.el:1.55 emacs/lisp/term/w32-win.el:1.56
*** emacs/lisp/term/w32-win.el:1.55     Tue Feb  4 08:28:06 2003
--- emacs/lisp/term/w32-win.el  Thu Feb 20 07:43:47 2003
***************
*** 1229,1238 ****
      (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"))
  
  (defun mouse-set-font (&rest fonts)
    "Select a font.
--- 1229,1238 ----
      (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 a font.