/[emacs]/emacs/lisp/term/w32-win.el
ViewVC logotype

Diff of /emacs/lisp/term/w32-win.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.59 by jasonr, Sun Jun 1 22:13:07 2003 UTC revision 1.59.2.1 by jasonr, Sat Oct 11 22:05:10 2003 UTC
# Line 1221  See the documentation of `create-fontset Line 1221  See the documentation of `create-fontset
1221      (list face (if (equal value "") nil value))))      (list face (if (equal value "") nil value))))
1222    
1223  ;;; Enable Japanese fonts on Windows to be used by default.  ;;; Enable Japanese fonts on Windows to be used by default.
1224  (set-fontset-font nil (make-char 'katakana-jisx0201) '("*" . "JISX0208-SJIS"))  ;; (set-fontset-font nil (make-char 'katakana-jisx0201) '("*" . "JISX0208-SJIS"))
1225  (set-fontset-font nil (make-char 'latin-jisx0201) '("*" . "JISX0208-SJIS"))  ;; (set-fontset-font nil (make-char 'latin-jisx0201) '("*" . "JISX0208-SJIS"))
1226  (set-fontset-font nil (make-char 'japanese-jisx0208) '("*" . "JISX0208-SJIS"))  ;; (set-fontset-font nil (make-char 'japanese-jisx0208) '("*" . "JISX0208-SJIS"))
1227  (set-fontset-font nil (make-char 'japanese-jisx0208-1978) '("*" . "JISX0208-SJIS"))  ;; (set-fontset-font nil (make-char 'japanese-jisx0208-1978) '("*" . "JISX0208-SJIS"))
1228    
1229  (defun mouse-set-font (&rest fonts)  (defun mouse-set-font (&rest fonts)
1230    "Select a font.    "Select a font.

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.59.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26