Mercurial > emacs

comparison lisp/international/fontset.el @ 52201:6790b6f59b3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(setup-default-fontset): Change "*" to nil in the specifications of font family.
author Kenichi Handa <handa@m17n.org>
date Fri, 15 Aug 2003 12:10:45 +0000
parents c6cbdf65b72c
children 1acdbb1fae7d
comparison
equal deleted inserted replaced
52200:b154b2a09262 52201:6790b6f59b3a
45 (dolist (elt 45 (dolist (elt
46 `((latin-iso8859-1 . (nil . "ISO8859-1")) 46 `((latin-iso8859-1 . (nil . "ISO8859-1"))
47 (latin-iso8859-2 . (nil . "ISO8859-2")) 47 (latin-iso8859-2 . (nil . "ISO8859-2"))
48 (latin-iso8859-3 . (nil . "ISO8859-3")) 48 (latin-iso8859-3 . (nil . "ISO8859-3"))
49 (latin-iso8859-4 . (nil . "ISO8859-4")) 49 (latin-iso8859-4 . (nil . "ISO8859-4"))
50 (thai-tis620 . ("*" . "TIS620")) 50 (thai-tis620 . (nil . "TIS620"))
51 (greek-iso8859-7 . ("*" . "ISO8859-7")) 51 (greek-iso8859-7 . (nil . "ISO8859-7"))
52 (arabic-iso8859-6 . ("*" . "ISO8859-6")) 52 (arabic-iso8859-6 . (nil . "ISO8859-6"))
53 (hebrew-iso8859-8 . ("*" . "ISO8859-8")) 53 (hebrew-iso8859-8 . (nil . "ISO8859-8"))
54 (katakana-jisx0201 . ("*" . "JISX0201")) 54 (katakana-jisx0201 . (nil . "JISX0201"))
55 (latin-jisx0201 . (nil . "JISX0201")) 55 (latin-jisx0201 . (nil . "JISX0201"))
56 (cyrillic-iso8859-5 . ("*" . "ISO8859-5")) 56 (cyrillic-iso8859-5 . (nil . "ISO8859-5"))
57 (latin-iso8859-9 . (nil . "ISO8859-9")) 57 (latin-iso8859-9 . (nil . "ISO8859-9"))
58 (japanese-jisx0208-1978 . ("*" . "JISX0208.1978")) 58 (japanese-jisx0208-1978 . (nil . "JISX0208.1978"))
59 (chinese-gb2312 . ("*" . "GB2312.1980")) 59 (chinese-gb2312 . (nil . "GB2312.1980"))
60 (japanese-jisx0208 . ("*" . "JISX0208.1990")) 60 (japanese-jisx0208 . (nil . "JISX0208.1990"))
61 (korean-ksc5601 . ("*" . "KSC5601.1989")) 61 (korean-ksc5601 . (nil . "KSC5601.1989"))
62 (japanese-jisx0212 . ("*" . "JISX0212")) 62 (japanese-jisx0212 . (nil . "JISX0212"))
63 (chinese-cns11643-1 . ("*" . "CNS11643.1992-1")) 63 (chinese-cns11643-1 . (nil . "CNS11643.1992-1"))
64 (chinese-cns11643-2 . ("*" . "CNS11643.1992-2")) 64 (chinese-cns11643-2 . (nil . "CNS11643.1992-2"))
65 (chinese-cns11643-3 . ("*" . "CNS11643.1992-3")) 65 (chinese-cns11643-3 . (nil . "CNS11643.1992-3"))
66 (chinese-cns11643-4 . ("*" . "CNS11643.1992-4")) 66 (chinese-cns11643-4 . (nil . "CNS11643.1992-4"))
67 (chinese-cns11643-5 . ("*" . "CNS11643.1992-5")) 67 (chinese-cns11643-5 . (nil . "CNS11643.1992-5"))
68 (chinese-cns11643-6 . ("*" . "CNS11643.1992-6")) 68 (chinese-cns11643-6 . (nil . "CNS11643.1992-6"))
69 (chinese-cns11643-7 . ("*" . "CNS11643.1992-7")) 69 (chinese-cns11643-7 . (nil . "CNS11643.1992-7"))
70 (chinese-big5-1 . ("*" . "Big5")) 70 (chinese-big5-1 . (nil . "Big5"))
71 (chinese-big5-2 . ("*" . "Big5")) 71 (chinese-big5-2 . (nil . "Big5"))
72 (chinese-sisheng . (nil . "sisheng_cwnn")) 72 (chinese-sisheng . (nil . "sisheng_cwnn"))
73 (vietnamese-viscii-lower . (nil . "VISCII1.1")) 73 (vietnamese-viscii-lower . (nil . "VISCII1.1"))
74 (vietnamese-viscii-upper . (nil . "VISCII1.1")) 74 (vietnamese-viscii-upper . (nil . "VISCII1.1"))
75 (arabic-digit . ("*" . "MuleArabic-0")) 75 (arabic-digit . (nil . "MuleArabic-0"))
76 (arabic-1-column . ("*" . "MuleArabic-1")) 76 (arabic-1-column . (nil . "MuleArabic-1"))
77 (arabic-2-column . ("*" . "MuleArabic-2")) 77 (arabic-2-column . (nil . "MuleArabic-2"))
78 (ipa . (nil . "MuleIPA")) 78 (ipa . (nil . "MuleIPA"))
79 (ethiopic . ("*" . "Ethiopic-Unicode")) 79 (ethiopic . (nil . "Ethiopic-Unicode"))
80 (ascii-right-to-left . (nil . "ISO8859-1")) 80 (ascii-right-to-left . (nil . "ISO8859-1"))
81 (indian-is13194 . ("*" . "IS13194-Devanagari")) 81 (indian-is13194 . (nil . "IS13194-Devanagari"))
82 (indian-2-column . ("*" . "MuleIndian-2")) 82 (indian-2-column . (nil . "MuleIndian-2"))
83 (lao . ("*" . "MuleLao-1")) 83 (lao . (nil . "MuleLao-1"))
84 (tibetan . ("proportional" . "MuleTibetan-2")) 84 (tibetan . ("proportional" . "MuleTibetan-2"))
85 (tibetan-1-column . ("*" . "MuleTibetan-1")) 85 (tibetan-1-column . (nil . "MuleTibetan-1"))
86 (latin-iso8859-14 . (nil . "ISO8859-14")) 86 (latin-iso8859-14 . (nil . "ISO8859-14"))
87 (latin-iso8859-15 . (nil . "ISO8859-15")) 87 (latin-iso8859-15 . (nil . "ISO8859-15"))
88 (mule-unicode-0100-24ff . (nil . "ISO10646-1")) 88 (mule-unicode-0100-24ff . (nil . "ISO10646-1"))
89 (mule-unicode-2500-33ff . (nil . "ISO10646-1")) 89 (mule-unicode-2500-33ff . (nil . "ISO10646-1"))
90 (mule-unicode-e000-ffff . (nil . "ISO10646-1")) 90 (mule-unicode-e000-ffff . (nil . "ISO10646-1"))
91 (japanese-jisx0213-1 . ("*" . "JISX0213.2000-1")) 91 (japanese-jisx0213-1 . (nil . "JISX0213.2000-1"))
92 (japanese-jisx0213-2 . ("*" . "JISX0213.2000-2")) 92 (japanese-jisx0213-2 . (nil . "JISX0213.2000-2"))
93 ;; unicode 93 ;; unicode
94 ((,(decode-char 'ucs #x0900) . ,(decode-char 'ucs #x097F)) 94 ((,(decode-char 'ucs #x0900) . ,(decode-char 'ucs #x097F))
95 . ("*" . "ISO10646.indian-1")) 95 . (nil . "ISO10646.indian-1"))
96 ;; Indian CDAC 96 ;; Indian CDAC
97 (,(indian-font-char-range 'cdac:dv-ttsurekh) 97 (,(indian-font-char-range 'cdac:dv-ttsurekh)
98 . ("*" . "Devanagari-CDAC")) 98 . (nil . "Devanagari-CDAC"))
99 (,(indian-font-char-range 'cdac:sd-ttsurekh) 99 (,(indian-font-char-range 'cdac:sd-ttsurekh)
100 . ("*" . "Sanskrit-CDAC")) 100 . (nil . "Sanskrit-CDAC"))
101 (,(indian-font-char-range 'cdac:bn-ttdurga) 101 (,(indian-font-char-range 'cdac:bn-ttdurga)
102 . ("*" . "Bengali-CDAC")) 102 . (nil . "Bengali-CDAC"))
103 (,(indian-font-char-range 'cdac:as-ttdurga) 103 (,(indian-font-char-range 'cdac:as-ttdurga)
104 . ("*" . "Assamese-CDAC")) 104 . (nil . "Assamese-CDAC"))
105 (,(indian-font-char-range 'cdac:pn-ttamar) 105 (,(indian-font-char-range 'cdac:pn-ttamar)
106 . ("*" . "Punjabi-CDAC")) 106 . (nil . "Punjabi-CDAC"))
107 (,(indian-font-char-range 'cdac:gj-ttavantika) 107 (,(indian-font-char-range 'cdac:gj-ttavantika)
108 . ("*" . "Gujarati-CDAC")) 108 . (nil . "Gujarati-CDAC"))
109 (,(indian-font-char-range 'cdac:or-ttsarala) 109 (,(indian-font-char-range 'cdac:or-ttsarala)
110 . ("*" . "Oriya-CDAC")) 110 . (nil . "Oriya-CDAC"))
111 (,(indian-font-char-range 'cdac:tm-ttvalluvar) 111 (,(indian-font-char-range 'cdac:tm-ttvalluvar)
112 . ("*" . "Tamil-CDAC")) 112 . (nil . "Tamil-CDAC"))
113 (,(indian-font-char-range 'cdac:tl-tthemalatha) 113 (,(indian-font-char-range 'cdac:tl-tthemalatha)
114 . ("*" . "Telugu-CDAC")) 114 . (nil . "Telugu-CDAC"))
115 (,(indian-font-char-range 'cdac:kn-ttuma) 115 (,(indian-font-char-range 'cdac:kn-ttuma)
116 . ("*" . "Kannada-CDAC")) 116 . (nil . "Kannada-CDAC"))
117 (,(indian-font-char-range 'cdac:ml-ttkarthika) 117 (,(indian-font-char-range 'cdac:ml-ttkarthika)
118 . ("*" . "Malayalam-CDAC")) 118 . (nil . "Malayalam-CDAC"))
119 ;; Indian AKRUTI 119 ;; Indian AKRUTI
120 (,(indian-font-char-range 'akruti:dev) 120 (,(indian-font-char-range 'akruti:dev)
121 . ("*" . "Devanagari-Akruti")) 121 . (nil . "Devanagari-Akruti"))
122 (,(indian-font-char-range 'akruti:bng) 122 (,(indian-font-char-range 'akruti:bng)
123 . ("*" . "Bengali-Akruti")) 123 . (nil . "Bengali-Akruti"))
124 (,(indian-font-char-range 'akruti:pnj) 124 (,(indian-font-char-range 'akruti:pnj)
125 . ("*" . "Punjabi-Akruti")) 125 . (nil . "Punjabi-Akruti"))
126 (,(indian-font-char-range 'akruti:guj) 126 (,(indian-font-char-range 'akruti:guj)
127 . ("*" . "Gujarati-Akruti")) 127 . (nil . "Gujarati-Akruti"))
128 (,(indian-font-char-range 'akruti:ori) 128 (,(indian-font-char-range 'akruti:ori)
129 . ("*" . "Oriay-Akruti")) 129 . (nil . "Oriay-Akruti"))
130 (,(indian-font-char-range 'akruti:tml) 130 (,(indian-font-char-range 'akruti:tml)
131 . ("*" . "Tamil-Akruti")) 131 . (nil . "Tamil-Akruti"))
132 (,(indian-font-char-range 'akruti:tlg) 132 (,(indian-font-char-range 'akruti:tlg)
133 . ("*" . "Telugu-Akruti")) 133 . (nil . "Telugu-Akruti"))
134 (,(indian-font-char-range 'akruti:knd) 134 (,(indian-font-char-range 'akruti:knd)
135 . ("*" . "Kannada-Akruti")) 135 . (nil . "Kannada-Akruti"))
136 (,(indian-font-char-range 'akruti:mal) 136 (,(indian-font-char-range 'akruti:mal)
137 . ("*" . "Malayalam-Akruti")) 137 . (nil . "Malayalam-Akruti"))
138 )) 138 ))
139 (set-fontset-font "fontset-default" (car elt) (cdr elt)))) 139 (set-fontset-font "fontset-default" (car elt) (cdr elt))))
140 140
141 ;; Set arguments in `font-encoding-alist' (which see). 141 ;; Set arguments in `font-encoding-alist' (which see).
142 (defun set-font-encoding (pattern charset encoding) 142 (defun set-font-encoding (pattern charset encoding)