Mercurial > emacs

comparison lisp/term/w32-win.el @ 30236:c6e051bf5f2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 16e1a87707b5
children fa597347c65f
comparison
equal deleted inserted replaced
30235:5a0d447b7eea 30236:c6e051bf5f2e
849 Initially this is a list of some fixed width fonts that most people 849 Initially this is a list of some fixed width fonts that most people
850 will have like Terminal and Courier. These fonts are used in the font 850 will have like Terminal and Courier. These fonts are used in the font
851 menu if the variable `w32-use-w32-font-dialog' is nil.") 851 menu if the variable `w32-use-w32-font-dialog' is nil.")
852 852
853 ;;; Enable Japanese fonts on Windows to be used by default. 853 ;;; Enable Japanese fonts on Windows to be used by default.
854 (set-fontset-font t (make-char 'katakana-jisx0201) "JISX0208-SJIS") 854 (set-fontset-font t (make-char 'katakana-jisx0201) '("*" . "JISX0208-SJIS"))
855 (set-fontset-font t (make-char 'latin-jisx0201) "JISX0208-SJIS") 855 (set-fontset-font t (make-char 'latin-jisx0201) '("*" . "JISX0208-SJIS"))
856 (set-fontset-font t (make-char 'japanese-jisx0208) "JISX0208-SJIS") 856 (set-fontset-font t (make-char 'japanese-jisx0208) '("*" . "JISX0208-SJIS"))
857 (set-fontset-font t (make-char 'japanese-jisx0208-1978) "JISX0208-SJIS") 857 (set-fontset-font t (make-char 'japanese-jisx0208-1978) '("*" . "JISX0208-SJIS"))
858 858
859 (defun mouse-set-font (&rest fonts) 859 (defun mouse-set-font (&rest fonts)
860 "Select a font. 860 "Select a font.
861 If `w32-use-w32-font-dialog' is non-nil (the default), use the Windows 861 If `w32-use-w32-font-dialog' is non-nil (the default), use the Windows
862 font dialog to get the matching FONTS. Otherwise use a pop-up menu 862 font dialog to get the matching FONTS. Otherwise use a pop-up menu