Mercurial > emacs

comparison lisp/faces.el @ 39549:044b46ec5fff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(face-font-registry-alternatives) [windows-nt]: Make gb2312 an alias for gb2312.1980.
author Andrew Innes <andrewi@gnu.org>
date Thu, 04 Oct 2001 17:14:53 +0000
parents a19197c6442f
children 99f30ac48ec0
comparison
equal deleted inserted replaced
39548:6192be048459 39549:044b46ec5fff
77 (internal-set-alternative-font-family-alist value))) 77 (internal-set-alternative-font-family-alist value)))
78 78
79 79
80 ;; This is defined originally in xfaces.c. 80 ;; This is defined originally in xfaces.c.
81 (defcustom face-font-registry-alternatives 81 (defcustom face-font-registry-alternatives
82 '(("gb2312.1980" "gb2312.80&gb8565.88" "gbk*") 82 (if (eq system-type 'windows-nt)
83 ("jisx0208.1990" "jisx0208.1983" "jisx0208.1978") 83 '(("gb2312.1980" "gb2312")
84 ("ksc5601.1989" "ksx1001.1992" "ksc5601.1987") 84 ("jisx0208.1990" "jisx0208.1983" "jisx0208.1978")
85 ("muletibetan-2" "muletibetan-0")) 85 ("ksc5601.1989" "ksx1001.1992" "ksc5601.1987")
86 ("muletibetan-2" "muletibetan-0"))
87 '(("gb2312.1980" "gb2312.80&gb8565.88" "gbk*")
88 ("jisx0208.1990" "jisx0208.1983" "jisx0208.1978")
89 ("ksc5601.1989" "ksx1001.1992" "ksc5601.1987")
90 ("muletibetan-2" "muletibetan-0")))
86 "*Alist of alternative font registry names. 91 "*Alist of alternative font registry names.
87 Each element has the the form (REGISTRY ALTERNATIVE1 ALTERNATIVE2 ...). 92 Each element has the the form (REGISTRY ALTERNATIVE1 ALTERNATIVE2 ...).
88 If fonts of registry REGISTRY can be loaded, font selection 93 If fonts of registry REGISTRY can be loaded, font selection
89 tries to find a best matching font among all fonts of registry 94 tries to find a best matching font among all fonts of registry
90 REGISTRY, ALTERNATIVE1, ALTERNATIVE2, and etc." 95 REGISTRY, ALTERNATIVE1, ALTERNATIVE2, and etc."