Commit | Line | Data |
---|---|---|
60370d40 | 1 | ;;; fontset.el --- commands for handling fontset |
4ed46869 | 2 | |
d4877ac1 | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
d7a0267c | 4 | ;; 2005, 2006, 2007 Free Software Foundation, Inc. |
7976eda0 | 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
d7a0267c | 6 | ;; 2005, 2006, 2007 |
2fd125a3 KH |
7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 | ;; Registration Number H14PRO021 | |
6118a2b8 | 9 | ;; Copyright (C) 2003, 2006 |
8f924df7 KH |
10 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
11 | ;; Registration Number H13PRO009 | |
4ed46869 | 12 | |
8135c753 | 13 | ;; Keywords: mule, i18n, fontset |
4ed46869 KH |
14 | |
15 | ;; This file is part of GNU Emacs. | |
16 | ||
17 | ;; GNU Emacs is free software; you can redistribute it and/or modify | |
18 | ;; it under the terms of the GNU General Public License as published by | |
19 | ;; the Free Software Foundation; either version 2, or (at your option) | |
20 | ;; any later version. | |
21 | ||
22 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
23 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
24 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
25 | ;; GNU General Public License for more details. | |
26 | ||
27 | ;; You should have received a copy of the GNU General Public License | |
369314dc | 28 | ;; along with GNU Emacs; see the file COPYING. If not, write to the |
3a35cf56 LK |
29 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
30 | ;; Boston, MA 02110-1301, USA. | |
4ed46869 | 31 | |
60370d40 PJ |
32 | ;;; Commentary: |
33 | ||
4ed46869 KH |
34 | ;;; Code: |
35 | ||
37a94e2f KH |
36 | ;; Setup font-encoding-alist for all known encodings. |
37 | ||
38 | (setq font-encoding-alist | |
39 | '(("iso8859-1$" . iso-8859-1) | |
40 | ("iso8859-2$" . iso-8859-2) | |
41 | ("iso8859-3$" . iso-8859-3) | |
42 | ("iso8859-4$" . iso-8859-4) | |
43 | ("iso8859-5$" . iso-8859-5) | |
44 | ("iso8859-6$" . iso-8859-6) | |
45 | ("iso8859-7$" . iso-8859-7) | |
46 | ("iso8859-8$" . iso-8859-8) | |
47 | ("iso8859-9$" . iso-8859-9) | |
48 | ("iso8859-10$" . iso-8859-10) | |
49 | ("iso8859-11$" . iso-8859-11) | |
50 | ("iso8859-13$" . iso-8859-13) | |
51 | ("iso8859-14$" . iso-8859-14) | |
52 | ("iso8859-15$" . iso-8859-15) | |
53 | ("gb2312.1980" . chinese-gb2312) | |
28f2f887 | 54 | ("gbk" . chinese-gbk) |
c7606603 | 55 | ("gb18030" . gb18030) |
37a94e2f KH |
56 | ("jisx0208.1978" . japanese-jisx0208-1978) |
57 | ("jisx0208" . japanese-jisx0208) | |
58 | ("jisx0201" . jisx0201) | |
59 | ("jisx0212" . japanese-jisx0212) | |
60 | ("ksc5601.1987" . korean-ksc5601) | |
61 | ("cns11643.1992.*1" . chinese-cns11643-1) | |
62 | ("cns11643.1992.*2" . chinese-cns11643-2) | |
63 | ("cns11643.1992.*3" . chinese-cns11643-3) | |
64 | ("cns11643.1992.*4" . chinese-cns11643-4) | |
65 | ("cns11643.1992.*5" . chinese-cns11643-5) | |
66 | ("cns11643.1992.*6" . chinese-cns11643-6) | |
67 | ("cns11643.1992.*7" . chinese-cns11643-7) | |
eb62213c KH |
68 | ("cns11643.92p1-0" . chinese-cns11643-1) |
69 | ("cns11643.92p2-0" . chinese-cns11643-2) | |
70 | ("cns11643.92p3-0" . chinese-cns11643-3) | |
71 | ("cns11643.92p4-0" . chinese-cns11643-4) | |
72 | ("cns11643.92p5-0" . chinese-cns11643-5) | |
73 | ("cns11643.92p6-0" . chinese-cns11643-6) | |
74 | ("cns11643.92p7-0" . chinese-cns11643-7) | |
37a94e2f KH |
75 | ("big5" . big5) |
76 | ("sisheng_cwnn" . chinese-sisheng) | |
77 | ("viscii" . viscii) | |
78 | ("tis620" . tis620-2533) | |
b32f2167 | 79 | ("microsoft-cp1251" . windows-1251) |
6118a2b8 | 80 | ("koi8-r" . koi8-r) |
37a94e2f KH |
81 | ("mulearabic-0" . arabic-digit) |
82 | ("mulearabic-1" . arabic-1-column) | |
83 | ("mulearabic-2" . arabic-2-column) | |
84 | ("muleipa" . ipa) | |
362cd0bf | 85 | ("ethiopic-unicode" . (unicode-bmp . ethiopic)) |
37a94e2f | 86 | ("is13194-devanagari" . indian-is13194) |
8f924df7 KH |
87 | ("Devanagari-CDAC" . devanagari-cdac) |
88 | ("Sanskrit-CDAC" . sanskrit-cdac) | |
89 | ("Bengali-CDAC" . bengali-cdac) | |
90 | ("Assamese-CDAC" . assamese-cdac) | |
91 | ("Punjabi-CDAC" . punjabi-cdac) | |
92 | ("Gujarati-CDAC" . gujarati-cdac) | |
93 | ("Oriya-CDAC" . oriya-cdac) | |
94 | ("Tamil-CDAC" . tamil-cdac) | |
95 | ("Telugu-CDAC" . telugu-cdac) | |
96 | ("Kannada-CDAC" . kannada-cdac) | |
97 | ("Malayalam-CDAC" . malayalam-cdac) | |
98 | ("Devanagari-Akruti" . devanagari-akruti) | |
99 | ("Bengali-Akruti" . bengali-akruti) | |
100 | ("Punjabi-Akruti" . punjabi-akruti) | |
101 | ("Gujarati-Akruti" . gujarati-akruti) | |
102 | ("Oriya-Akruti" . oriya-akruti) | |
103 | ("Tamil-Akruti" . tamil-akruti) | |
104 | ("Telugu-Akruti" . telugu-akruti) | |
105 | ("Kannada-Akruti" . kannada-akruti) | |
106 | ("Malayalam-Akruti" . malayalam-akruti) | |
37a94e2f KH |
107 | ("muleindian-2" . indian-2-column) |
108 | ("muleindian-1" . indian-1-column) | |
109 | ("mulelao-1" . mule-lao) | |
110 | ("muletibetan-2" . tibetan) | |
111 | ("muletibetan-1" . tibetan-1-column) | |
112 | ("jisx0213.2000-1" . japanese-jisx0213-1) | |
113 | ("jisx0213.2000-2" . japanese-jisx0213-2) | |
5d4fe8aa | 114 | ("jisx0213.2004-1" . japanese-jisx0213.2004-1) |
37a94e2f | 115 | ("abobe-symbol" . symbol) |
45a830cf | 116 | ("iso10646-1$" . (unicode-bmp . nil)) |
45a830cf | 117 | ("iso10646.indian-1" . (unicode-bmp . nil)))) |
37a94e2f | 118 | |
6118a2b8 | 119 | (setq script-representative-chars |
f3a9e177 KH |
120 | '((latin ?A ?Z ?a ?z) |
121 | (greek #x3A9) | |
6118a2b8 KH |
122 | (coptic #x3E2) |
123 | (cyrillic #x42F) | |
124 | (armenian #x531) | |
125 | (hebrew #x5D0) | |
126 | (arabic #x628) | |
127 | (syriac #x710) | |
128 | (thaana #x78C) | |
129 | (devanagari #x915) | |
130 | (bengali #x995) | |
131 | (gurmukhi #xA15) | |
132 | (gujarati #xA95) | |
133 | (oriya #xB15) | |
134 | (tamil #xB95) | |
135 | (telugu #xC15) | |
136 | (kannada #xC95) | |
137 | (malayalam #xD15) | |
138 | (sinhala #xD95) | |
139 | (thai #xE17) | |
140 | (lao #xEA5) | |
141 | (tibetan #xF40) | |
142 | (myanmar #x1000) | |
143 | (georgian #x10D3) | |
144 | (ethiopic #x1208) | |
145 | (cherokee #x13B6) | |
146 | (canadian-aboriginal #x14C0) | |
147 | (ogham #x168F) | |
148 | (runic #x16A0) | |
149 | (khmer #x1780) | |
150 | (mongolian #x1826) | |
151 | (braille #x2800) | |
152 | (ideographic-description #x2FF0) | |
153 | (cjk-misc #x300E) | |
154 | (kana #x304B) | |
155 | (bopomofo #x3105) | |
156 | (kanbun #x319D) | |
157 | (han #x5B57) | |
158 | (yi #xA288) | |
159 | (hangul #xAC00))) | |
37a94e2f | 160 | |
10853234 KH |
161 | (setq otf-script-alist |
162 | '((arab . arabic) | |
163 | (armn . armenian) | |
164 | (bali . balinese) | |
165 | (beng . bengali) | |
166 | (bopo . bopomofo) | |
167 | (brai . braille) | |
168 | (bugi . buginese) | |
169 | (buhd . buhid) | |
27950902 | 170 | (byzm . byzantine-musical-symbol) |
10853234 KH |
171 | (cans . canadian_aboliginal) |
172 | (cher . cherokee) | |
173 | (copt . coptic) | |
174 | (xsux . cuneiform) | |
175 | (cyrl . cyrillic) | |
176 | (cprt . cypriot) | |
177 | (dsrt . deseret) | |
178 | (deva . devanagari) | |
179 | (ethi . ethiopic) | |
180 | (geor . georgian) | |
181 | (glag . glagolitic) | |
182 | (goth . gothic) | |
183 | (grek . greek) | |
184 | (gujr . gujarati) | |
185 | (guru . gurmukhi) | |
186 | (hani . han) | |
187 | (hang . hangul) | |
188 | (hano . hanunoo) | |
189 | (hebr . hebrew) | |
190 | (kana . kana) | |
191 | (knda . kannada) | |
192 | (khar . kharoshthi) | |
193 | (khmr . khmer) | |
194 | (lao . lao) | |
195 | (latn . latin) | |
196 | (limb . limbu) | |
197 | (linb . linear_b) | |
198 | (mlym . malayalam) | |
27950902 | 199 | (math . mathematical) |
10853234 | 200 | (mong . mongolian) |
27950902 | 201 | (musc . musical-symbol) |
10853234 | 202 | (mymr . myanmar) |
27950902 | 203 | (nko . nko) |
10853234 KH |
204 | (ogam . ogham) |
205 | (ital . old_italic) | |
206 | (xpeo . old_persian) | |
207 | (orya . oriya) | |
208 | (osma . osmanya) | |
209 | (phag . phags-pa) | |
210 | (phnx . phoenician) | |
211 | (runr . runic) | |
212 | (shaw . shavian) | |
213 | (sinh . sinhala) | |
214 | (sylo . syloti_nagri) | |
215 | (syrc . syriac) | |
216 | (tglg . tagalog) | |
217 | (tagb . tagbanwa) | |
218 | (taml . tamil) | |
219 | (tale . tai_le) | |
220 | (telu . telugu) | |
221 | (thaa . thaana) | |
222 | (thai . thai) | |
223 | (tibt . tibetan) | |
224 | (tfng . tifinagh) | |
225 | (ugar . ugaritic) | |
226 | (yi . yi))) | |
227 | ||
2ad00186 | 228 | ;; Set standard fontname specification of characters in the default |
37a94e2f KH |
229 | ;; fontset to find an appropriate font for each script/charset. The |
230 | ;; specification has the form ((SCRIPT FONT-SPEC ...) ...), where | |
231 | ;; FONT-SPEC is: | |
232 | ;; a vector [ FAMILY WEIGHT SLANT ADSTYLE REGISTRY ], | |
233 | ;; or a cons (FAMILY . REGISTRY), | |
234 | ;; or a string FONT-NAME. | |
8f924df7 | 235 | ;; |
37a94e2f KH |
236 | ;; FAMILY, WEIGHT, SLANT, and ADSTYLE may be nil, in which case, the |
237 | ;; the corresponding name of default face is used. If REGISTRY | |
2ad00186 KH |
238 | ;; contains a character `-', the string before that is embedded in |
239 | ;; `CHARSET_REGISTRY' field, and the string after that is embedded in | |
240 | ;; `CHARSET_ENCODING' field. If it does not contain `-', the whole | |
241 | ;; string is embedded in `CHARSET_REGISTRY' field, and a wild card | |
37a94e2f KH |
242 | ;; character `*' is embedded in `CHARSET_ENCODING' field. |
243 | ;; | |
244 | ;; SCRIPT is a symbol that appears as an element of the char table | |
245 | ;; `char-script-table'. SCRIPT may be a charset specifying the range | |
246 | ;; of characters. | |
2ad00186 | 247 | |
c963bbc2 KH |
248 | (defun setup-default-fontset () |
249 | "Setup the default fontset." | |
8f924df7 KH |
250 | (new-fontset |
251 | "fontset-default" | |
252 | '(;; for each script | |
253 | (latin (nil . "ISO8859-1") | |
254 | (nil . "ISO8859-2") | |
255 | (nil . "ISO8859-3") | |
256 | (nil . "ISO8859-4") | |
257 | (nil . "ISO8859-9") | |
258 | (nil . "ISO8859-10") | |
259 | (nil . "ISO8859-13") | |
260 | (nil . "ISO8859-14") | |
261 | (nil . "ISO8859-15") | |
262 | (nil . "VISCII1.1-1")) | |
263 | ||
264 | (thai (nil . "TIS620*") | |
265 | (nil . "ISO8859-11")) | |
266 | ||
267 | (devanagari (nil . "iso10646.indian-1")) | |
268 | ||
269 | (lao (nil . "MuleLao-1")) | |
270 | ||
271 | ;; both for script and charset. | |
272 | (tibetan (nil . "muletibetan-2")) | |
273 | ||
274 | ;; both for script and charset. | |
275 | (ethiopic (nil . "ethiopic-unicode")) | |
276 | ||
277 | (greek (nil . "ISO8859-7")) | |
278 | ||
b32f2167 KH |
279 | (cyrillic (nil . "ISO8859-5") |
280 | (nil . "microsoft-cp1251") | |
281 | (nil . "koi8-r")) | |
8f924df7 KH |
282 | |
283 | (arabic (nil . "MuleArabic-0") | |
284 | (nil . "MuleArabic-1") | |
285 | (nil . "MuleArabic-2") | |
286 | (nil . "ISO8859-6")) | |
287 | ||
288 | (hebrew (nil . "ISO8859-8")) | |
289 | ||
290 | (kana (nil . "JISX0208*") | |
291 | (nil . "GB2312.1980-0") | |
292 | (nil . "KSC5601.1987*") | |
d1bd4b12 KH |
293 | (nil . "JISX0201*") |
294 | (nil . "JISX0213.2000-1") | |
295 | (nil . "JISX0213.2004-1")) | |
8f924df7 KH |
296 | |
297 | (bopomofo (nil . "sisheng_cwnn-0")) | |
298 | ||
299 | (han (nil . "GB2312.1980-0") | |
300 | (nil . "JISX0208*") | |
301 | (nil . "JISX0212*") | |
302 | (nil . "big5*") | |
303 | (nil . "KSC5601.1987*") | |
304 | (nil . "CNS11643.1992-1") | |
305 | (nil . "CNS11643.1992-2") | |
306 | (nil . "CNS11643.1992-3") | |
307 | (nil . "CNS11643.1992-4") | |
308 | (nil . "CNS11643.1992-5") | |
309 | (nil . "CNS11643.1992-6") | |
310 | (nil . "CNS11643.1992-7") | |
311 | (nil . "gbk-0") | |
c7606603 | 312 | (nil . "gb18030") |
8f924df7 | 313 | (nil . "JISX0213.2000-1") |
a16abfed KH |
314 | (nil . "JISX0213.2000-2") |
315 | (nil . "JISX0213.2004-1")) | |
8f924df7 KH |
316 | |
317 | (cjk-misc (nil . "GB2312.1980-0") | |
318 | (nil . "JISX0208*") | |
319 | (nil . "JISX0212*") | |
320 | (nil . "big5*") | |
321 | (nil . "KSC5601.1987*") | |
322 | (nil . "CNS11643.1992-1") | |
323 | (nil . "CNS11643.1992-2") | |
324 | (nil . "CNS11643.1992-3") | |
325 | (nil . "CNS11643.1992-4") | |
326 | (nil . "CNS11643.1992-5") | |
327 | (nil . "CNS11643.1992-6") | |
328 | (nil . "CNS11643.1992-7") | |
329 | (nil . "gbk-0") | |
c7606603 | 330 | (nil . "gb18030") |
8f924df7 KH |
331 | (nil . "JISX0213.2000-1") |
332 | (nil . "JISX0213.2000-2")) | |
333 | ||
334 | (hangul (nil . "KSC5601.1987-0")) | |
335 | ||
336 | ;; for each charset | |
337 | (ascii (nil . "ISO8859-1")) | |
338 | (arabic-digit ("*" . "MuleArabic-0")) | |
339 | (arabic-1-column ("*" . "MuleArabic-1")) | |
340 | (arabic-2-column ("*" . "MuleArabic-2")) | |
341 | (indian-is13194 (nil . "is13194-devanagari")) | |
342 | (indian-1-column ("*" . "muleindian-2")) | |
343 | ;; Indian CDAC | |
344 | (devanagari-cdac (nil . "Devanagari-CDAC")) | |
345 | (sanskrit-cdac (nil . "Sanskrit-CDAC")) | |
346 | (bengali-cdac (nil . "Bengali-CDAC")) | |
347 | (assamese-cdac (nil . "Assamese-CDAC")) | |
348 | (punjabi-cdac (nil . "Punjabi-CDAC")) | |
349 | (gujarati-cdac (nil . "Gujarati-CDAC")) | |
350 | (oriya-cdac (nil . "Oriya-CDAC")) | |
351 | (tamil-cdac (nil . "Tamil-CDAC")) | |
352 | (telugu-cdac (nil . "Telugu-CDAC")) | |
353 | (kannada-cdac (nil . "Kannada-CDAC")) | |
354 | (malayalam-cdac (nil . "Malayalam-CDAC")) | |
355 | ;; Indian AKRUTI | |
356 | (devanagari-akruti (nil . "Devanagari-Akruti")) | |
357 | (bengali-akruti (nil . "Bengali-Akruti")) | |
358 | (punjabi-akruti (nil . "Punjabi-Akruti")) | |
359 | (gujarati-akruti (nil . "Gujarati-Akruti")) | |
360 | (oriya-akruti (nil . "Oriya-Akruti")) | |
361 | (tamil-akruti (nil . "Tamil-Akruti")) | |
362 | (telugu-akruti (nil . "Telugu-Akruti")) | |
363 | (kannada-akruti (nil . "Kannada-Akruti")) | |
364 | (malayalam-akruti (nil . "Malayalam-Akruti")) | |
365 | ;;(devanagari-glyph ("altsys-dv_ttsurekh" . "devanagari-cdac")) | |
366 | ;;(malayalam-glyph ("altsys-ml_ttkarthika" . "malayalam-cdac")) | |
367 | (ipa (nil . "MuleIPA-1")) | |
d1bd4b12 KH |
368 | |
369 | ;; Fallback fonts | |
370 | (nil (nil . "gb2312.1980") | |
c7606603 KH |
371 | (nil . "gbk-0") |
372 | (nil . "gb18030") | |
d1bd4b12 KH |
373 | (nil . "jisx0208") |
374 | (nil . "ksc5601.1987") | |
eb62213c KH |
375 | (nil . "CNS11643.1992-1") |
376 | (nil . "CNS11643.1992-2") | |
377 | (nil . "CNS11643.1992-3") | |
378 | (nil . "CNS11643.1992-4") | |
379 | (nil . "CNS11643.1992-5") | |
380 | (nil . "CNS11643.1992-6") | |
381 | (nil . "CNS11643.1992-7") | |
d1bd4b12 KH |
382 | (nil . "big5") |
383 | (nil . "jisx0213.2000-1") | |
384 | (nil . "jisx0213.2004-1") | |
385 | (nil . "jisx0212")) | |
8f924df7 KH |
386 | )) |
387 | ||
388 | ;; Append Unicode fonts. | |
389 | ;; This may find fonts with more variants (bold, italic) but which | |
390 | ;; don't cover many characters. | |
d1bd4b12 | 391 | (set-fontset-font "fontset-default" nil |
8f924df7 KH |
392 | '(nil . "iso10646-1") nil 'append) |
393 | ;; These may find fonts that cover many characters but with fewer | |
394 | ;; variants. | |
d1bd4b12 | 395 | (set-fontset-font "fontset-default" nil |
8f924df7 | 396 | '("gnu-unifont" . "iso10646-1") nil 'append) |
d1bd4b12 | 397 | (set-fontset-font "fontset-default" nil |
8f924df7 | 398 | '("mutt-clearlyu" . "iso10646-1") nil 'append)) |
06f76f0d | 399 | |
8135c753 DL |
400 | ;; These are the registered registries/encodings from |
401 | ;; ftp://ftp.x.org/pub/DOCS/registry 2001/06/01 | |
402 | ||
403 | ;; Name Reference | |
404 | ;; ---- --------- | |
405 | ;; "DEC" [27] | |
406 | ;; registry prefix | |
407 | ;; "DEC.CNS11643.1986-2" [53] | |
408 | ;; CNS11643 2-plane using the encoding | |
409 | ;; suggested in that standard | |
410 | ;; "DEC.DTSCS.1990-2" [54] | |
411 | ;; DEC Taiwan Supplemental Character Set | |
412 | ;; "fujitsu.u90x01.1991-0" [87] | |
413 | ;; "fujitsu.u90x03.1991-0" [87] | |
414 | ;; "GB2312.1980-0" [39],[12] | |
415 | ;; China (PRC) Hanzi, GL encoding | |
416 | ;; "GB2312.1980-1" [39] | |
417 | ;; (deprecated) | |
418 | ;; China (PRC) Hanzi, GR encoding | |
419 | ;; "HP-Arabic8" [36] | |
420 | ;; HPARABIC8 8-bit character set | |
421 | ;; "HP-East8" [36] | |
422 | ;; HPEAST8 8-bit character set | |
423 | ;; "HP-Greek8" [36] | |
424 | ;; HPGREEK8 8-bit character set | |
425 | ;; "HP-Hebrew8" [36] | |
426 | ;; HPHEBREW8 8-bit character set | |
427 | ;; "HP-Japanese15" [36] | |
428 | ;; HPJAPAN15 15-bit characer set, | |
429 | ;; modified from industry defacto | |
430 | ;; standard Shift-JIS | |
431 | ;; "HP-Kana8" [36] | |
432 | ;; HPKANA8 8-bit character set | |
433 | ;; "HP-Korean15" [36] | |
434 | ;; HPKOREAN15 15-bit character set | |
435 | ;; "HP-Roman8" [36] | |
436 | ;; HPROMAN8 8-bit character set | |
437 | ;; "HP-SChinese15" [36] | |
438 | ;; HPSCHINA15 15-bit character set for | |
439 | ;; support of Simplified Chinese | |
440 | ;; "HP-TChinese15" [36] | |
441 | ;; HPTCHINA15 15-bit character set for | |
442 | ;; support of Traditional Chinese | |
443 | ;; "HP-Turkish8" [36] | |
444 | ;; HPTURKISH8 8-bit character set | |
445 | ;; "IPSYS" [59] | |
446 | ;; registry prefix | |
447 | ;; "IPSYS.IE-1" [59] | |
448 | ;; "ISO2022"<REG>"-"<ENC> [44] | |
449 | ;; "ISO646.1991-IRV" [107] | |
450 | ;; ISO 646 International Reference Version | |
451 | ;; "ISO8859-1" [15],[12] | |
452 | ;; ISO Latin alphabet No. 1 | |
453 | ;; "ISO8859-2" [15],[12] | |
454 | ;; ISO Latin alphabet No. 2 | |
455 | ;; "ISO8859-3" [15],[12] | |
456 | ;; ISO Latin alphabet No. 3 | |
457 | ;; "ISO8859-4" [15],[12] | |
458 | ;; ISO Latin alphabet No. 4 | |
459 | ;; "ISO8859-5" [15],[12] | |
460 | ;; ISO Latin/Cyrillic alphabet | |
461 | ;; "ISO8859-6" [15],[12] | |
462 | ;; ISO Latin/Arabic alphabet | |
463 | ;; "ISO8859-7" [15],[12] | |
464 | ;; ISO Latin/Greek alphabet | |
465 | ;; "ISO8859-8" [15],[12] | |
466 | ;; ISO Latin/Hebrew alphabet | |
467 | ;; "ISO8859-9" [15],[12] | |
468 | ;; ISO Latin alphabet No. 5 | |
469 | ;; "ISO8859-10" [15],[12] | |
470 | ;; ISO Latin alphabet No. 6 | |
471 | ;; "ISO8859-13" [15],[12] | |
472 | ;; ISO Latin alphabet No. 7 | |
473 | ;; "ISO8859-14" [15],[12] | |
474 | ;; ISO Latin alphabet No. 8 | |
475 | ;; "ISO8859-15" [15],[12] | |
476 | ;; ISO Latin alphabet No. 9 | |
477 | ;; "FCD8859-15" [7] | |
478 | ;; (deprecated) | |
479 | ;; ISO Latin alphabet No. 9, Final Committee Draft | |
480 | ;; "ISO10646-1" [133] | |
481 | ;; Unicode Universal Multiple-Octet Coded Character Set | |
482 | ;; "ISO10646-MES" [133] | |
483 | ;; (deprecated) | |
484 | ;; Unicode Minimum European Subset | |
485 | ;; "JISX0201.1976-0" [38],[12] | |
486 | ;; 8-Bit Alphanumeric-Katakana Code | |
487 | ;; "JISX0208.1983-0" [40],[12] | |
488 | ;; Japanese Graphic Character Set, | |
489 | ;; GL encoding | |
490 | ;; "JISX0208.1990-0" [71] | |
491 | ;; Japanese Graphic Character Set, | |
492 | ;; GL encoding | |
493 | ;; "JISX0208.1983-1" [40] | |
494 | ;; (deprecated) | |
495 | ;; Japanese Graphic Character Set, | |
496 | ;; GR encoding | |
497 | ;; "JISX0212.1990-0" [72] | |
498 | ;; Supplementary Japanese Graphic Character Set, | |
499 | ;; GL encoding | |
500 | ;; "KOI8-R" [119] | |
501 | ;; Cyrillic alphabet | |
502 | ;; "KSC5601.1987-0" [41],[12] | |
503 | ;; Korean Graphic Character Set, | |
504 | ;; GL encoding | |
505 | ;; "KSC5601.1987-1" [41] | |
506 | ;; (deprecated) | |
507 | ;; Korean Graphic Character Set, | |
508 | ;; GR encoding | |
509 | ;; "omron_CNS11643-0" [45] | |
510 | ;; "omron_CNS11643-1" [45] | |
511 | ;; "omron_BIG5-0" [45] | |
512 | ;; "omron_BIG5-1" [45] | |
513 | ;; "wn.tamil.1993" [103] | |
4ed46869 | 514 | |
06f76f0d | 515 | (defun set-font-encoding (pattern charset) |
8135c753 | 516 | "Set arguments in `font-encoding-alist' (which see)." |
4ed46869 KH |
517 | (let ((slot (assoc pattern font-encoding-alist))) |
518 | (if slot | |
06f76f0d | 519 | (setcdr slot charset) |
4ed46869 | 520 | (setq font-encoding-alist |
06f76f0d | 521 | (cons (cons pattern charset) font-encoding-alist))))) |
12385722 | 522 | |
4ed46869 KH |
523 | ;; Setting for suppressing XLoadQueryFont on big fonts. |
524 | (setq x-pixel-size-width-font-regexp | |
c7606603 | 525 | "gb2312\\|gbk\\|gb18030\\|jisx0208\\|ksc5601\\|cns11643\\|big5") |
4ed46869 | 526 | |
6eca8d93 | 527 | ;; These fonts require vertical centering. |
0c4f97d0 | 528 | (setq vertical-centering-font-regexp |
c7606603 | 529 | "gb2312\\|gbk\\|gb18030\\|jisx0208\\|jisx0212\\|ksc5601\\|cns11643\\|big5") |
0c4f97d0 | 530 | |
e46947a5 KH |
531 | ;; CDAC fonts are actually smaller than their design sizes. |
532 | (setq face-font-rescale-alist | |
533 | '(("-cdac$" . 1.3))) | |
534 | ||
06f76f0d KH |
535 | (defvar x-font-name-charset-alist nil |
536 | "This variable has no meaning now. Just kept for backward compatibility.") | |
6fb8f8bd | 537 | |
4ed46869 KH |
538 | ;;; XLFD (X Logical Font Description) format handler. |
539 | ||
540 | ;; Define XLFD's field index numbers. ; field name | |
06f76f0d KH |
541 | (defconst xlfd-regexp-family-subnum 0) ; FOUNDRY and FAMILY |
542 | (defconst xlfd-regexp-weight-subnum 1) ; WEIGHT_NAME | |
543 | (defconst xlfd-regexp-slant-subnum 2) ; SLANT | |
544 | (defconst xlfd-regexp-swidth-subnum 3) ; SETWIDTH_NAME | |
545 | (defconst xlfd-regexp-adstyle-subnum 4) ; ADD_STYLE_NAME | |
546 | (defconst xlfd-regexp-pixelsize-subnum 5) ; PIXEL_SIZE | |
547 | (defconst xlfd-regexp-pointsize-subnum 6) ; POINT_SIZE | |
548 | (defconst xlfd-regexp-resx-subnum 7) ; RESOLUTION_X | |
549 | (defconst xlfd-regexp-resy-subnum 8) ; RESOLUTION_Y | |
550 | (defconst xlfd-regexp-spacing-subnum 8) ; SPACING | |
551 | (defconst xlfd-regexp-avgwidth-subnum 10) ; AVERAGE_WIDTH | |
552 | (defconst xlfd-regexp-registry-subnum 11) ; REGISTRY and ENCODING | |
4ed46869 KH |
553 | |
554 | ;; Regular expression matching against a fontname which conforms to | |
555 | ;; XLFD (X Logical Font Description). All fields in XLFD should be | |
556 | ;; not be omitted (but can be a wild card) to be matched. | |
557 | (defconst xlfd-tight-regexp | |
558 | "^\ | |
06f76f0d | 559 | -\\([^-]*-[^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)\ |
4ed46869 | 560 | -\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)\ |
06f76f0d KH |
561 | -\\([^-]*\\)-\\([^-]*\\)-\\([^-]*-[^-]*\\)$") |
562 | ||
563 | ;; Regular expression matching against a fontname which conforms to | |
564 | ;; XLFD (X Logical Font Description). All fields in XLFD from FOUNDRY | |
8135c753 | 565 | ;; to ADSTYLE, REGISTRY, and ENCODING should be not be omitted (but |
06f76f0d KH |
566 | ;; can be a wild card) to be matched. |
567 | (defconst xlfd-style-regexp | |
568 | "^\ | |
569 | -\\([^-]*-[^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-.*\ | |
570 | -\\([^-]*-[^-]*\\)$") | |
4ed46869 KH |
571 | |
572 | ;; List of field numbers of XLFD whose values are numeric. | |
573 | (defconst xlfd-regexp-numeric-subnums | |
06f76f0d KH |
574 | (list xlfd-regexp-pixelsize-subnum ;5 |
575 | xlfd-regexp-pointsize-subnum ;6 | |
576 | xlfd-regexp-resx-subnum ;7 | |
577 | xlfd-regexp-resy-subnum ;8 | |
578 | xlfd-regexp-avgwidth-subnum ;10 | |
4ed46869 KH |
579 | )) |
580 | ||
581 | (defun x-decompose-font-name (pattern) | |
92438d6e | 582 | "Decompose PATTERN into XLFD fields and return a vector of the fields. |
06f76f0d | 583 | The length of the vector is 12. |
92438d6e KH |
584 | The FOUNDRY and FAMILY fields are concatinated and stored in the first |
585 | element of the vector. | |
586 | The REGISTRY and ENCODING fields are concatinated and stored in the last | |
587 | element of the vector. | |
588 | ||
589 | Return nil if PATTERN doesn't conform to XLFD." | |
590 | (if (string-match xlfd-tight-regexp pattern) | |
591 | (let ((xlfd-fields (make-vector 12 nil))) | |
592 | (dotimes (i 12) | |
593 | (aset xlfd-fields i (match-string (1+ i) pattern))) | |
594 | (dotimes (i 12) | |
595 | (if (string-match "^[*-]+$" (aref xlfd-fields i)) | |
596 | (aset xlfd-fields i nil))) | |
597 | xlfd-fields))) | |
441038a6 | 598 | |
bb98ead9 | 599 | (defun x-compose-font-name (fields &optional reduce) |
8135c753 | 600 | "Compose X fontname from FIELDS. |
a0451a71 | 601 | FIELDS is a vector of XLFD fields, of length 12. |
441038a6 | 602 | If a field is nil, wild-card letter `*' is embedded. |
33fac697 JB |
603 | Optional argument REDUCE exists just for backward compatibility, |
604 | and is always ignored." | |
6eca8d93 | 605 | (concat "-" (mapconcat (lambda (x) (or x "*")) fields "-"))) |
bcb68cff | 606 | |
4fbe2b13 GM |
607 | |
608 | (defun x-must-resolve-font-name (xlfd-fields) | |
609 | "Like `x-resolve-font-name', but always return a font name. | |
610 | XLFD-FIELDS is a vector of XLFD (X Logical Font Description) fields. | |
611 | If no font matching XLFD-FIELDS is available, successively replace | |
612 | parts of the font name pattern with \"*\" until some font is found. | |
613 | Value is name of that font." | |
614 | (let ((ascii-font nil) (index 0)) | |
06f76f0d | 615 | (while (and (null ascii-font) (<= index xlfd-regexp-registry-subnum)) |
4fbe2b13 GM |
616 | (let ((pattern (x-compose-font-name xlfd-fields))) |
617 | (condition-case nil | |
618 | (setq ascii-font (x-resolve-font-name pattern)) | |
619 | (error | |
620 | (message "Warning: no fonts matching `%s' available" pattern) | |
621 | (aset xlfd-fields index "*") | |
622 | (setq index (1+ index)))))) | |
623 | (unless ascii-font | |
37aad8f5 | 624 | (error "No fonts found")) |
4fbe2b13 GM |
625 | ascii-font)) |
626 | ||
627 | ||
4ed46869 | 628 | (defun x-complement-fontset-spec (xlfd-fields fontlist) |
92438d6e | 629 | "Complement elements of FONTLIST based on XLFD-FIELDS. |
4ed46869 | 630 | XLFD-FIELDS is a vector of XLFD (X Logical Font Description) fields. |
92438d6e KH |
631 | FONTLIST is an alist of script names vs the corresponding font names. |
632 | ||
633 | The font names are complemented as below. | |
634 | ||
635 | If a font name matches `xlfd-style-regexp', each field of wild card is | |
636 | replaced by the corresponding fields in XLFD-FIELDS." | |
637 | (let ((default-spec (vector (aref xlfd-fields xlfd-regexp-family-subnum) | |
638 | (aref xlfd-fields xlfd-regexp-weight-subnum) | |
639 | (aref xlfd-fields xlfd-regexp-slant-subnum) | |
640 | (aref xlfd-fields xlfd-regexp-swidth-subnum) | |
641 | (aref xlfd-fields xlfd-regexp-adstyle-subnum) | |
642 | (aref xlfd-fields xlfd-regexp-registry-subnum)))) | |
06f76f0d | 643 | (dolist (elt fontlist) |
37a94e2f | 644 | (let ((name (cadr elt)) |
06f76f0d | 645 | font-spec) |
dcda246b KH |
646 | (when (or (string-match xlfd-style-regexp name) |
647 | (and (setq name (car (x-list-fonts name nil nil 1))) | |
648 | (string-match xlfd-style-regexp name))) | |
06f76f0d KH |
649 | (setq font-spec (make-vector 6 nil)) |
650 | (dotimes (i 6) | |
651 | (aset font-spec i (match-string (1+ i) name))) | |
3662d9e7 | 652 | (dotimes (i 5) |
06f76f0d KH |
653 | (if (string-match "^[*-]+$" (aref font-spec i)) |
654 | (aset font-spec i (aref default-spec i)))) | |
37a94e2f | 655 | (setcar (cdr elt) font-spec)))) |
a1506d29 | 656 | |
6eca8d93 | 657 | fontlist)) |
4ed46869 | 658 | |
35d4066a KH |
659 | (defun fontset-name-p (fontset) |
660 | "Return non-nil if FONTSET is valid as fontset name. | |
661 | A valid fontset name should conform to XLFD (X Logical Font Description) | |
33fac697 | 662 | with \"fontset\" in `<CHARSET_REGISTRY>' field." |
35d4066a KH |
663 | (and (string-match xlfd-tight-regexp fontset) |
664 | (string= (match-string (1+ xlfd-regexp-registry-subnum) fontset) | |
665 | "fontset"))) | |
666 | ||
4ed46869 | 667 | (defun generate-fontset-menu () |
8135c753 DL |
668 | "Return list to be appended to `x-fixed-font-alist'. |
669 | Done when `mouse-set-font' is called." | |
d58b6a31 KH |
670 | (let (l) |
671 | (dolist (fontset (fontset-list)) | |
672 | (or (string-match "fontset-default$" fontset) | |
673 | (push (list (fontset-plain-name fontset) fontset) l))) | |
80ae5f3a | 674 | (cons "Fontset" |
d58b6a31 | 675 | (sort l #'(lambda (x y) (string< (car x) (car y))))))) |
4ed46869 KH |
676 | |
677 | (defun fontset-plain-name (fontset) | |
678 | "Return a plain and descriptive name of FONTSET." | |
494ec9bc KH |
679 | (if (not (setq fontset (query-fontset fontset))) |
680 | (error "Invalid fontset: %s" fontset)) | |
4ed46869 KH |
681 | (let ((xlfd-fields (x-decompose-font-name fontset))) |
682 | (if xlfd-fields | |
87997c2c KH |
683 | (let ((family (aref xlfd-fields xlfd-regexp-family-subnum)) |
684 | (weight (aref xlfd-fields xlfd-regexp-weight-subnum)) | |
4ed46869 KH |
685 | (slant (aref xlfd-fields xlfd-regexp-slant-subnum)) |
686 | (swidth (aref xlfd-fields xlfd-regexp-swidth-subnum)) | |
687 | (size (aref xlfd-fields xlfd-regexp-pixelsize-subnum)) | |
06f76f0d | 688 | (nickname (aref xlfd-fields xlfd-regexp-registry-subnum)) |
4ed46869 | 689 | name) |
06f76f0d | 690 | (if (not (string-match "^fontset-\\(.*\\)$" nickname)) |
87997c2c KH |
691 | (setq nickname family) |
692 | (setq nickname (match-string 1 nickname))) | |
09fd851a | 693 | (if (and size (> (string-to-number size) 0)) |
87997c2c KH |
694 | (setq name (format "%s: %s-dot" nickname size)) |
695 | (setq name nickname)) | |
696 | (and weight | |
697 | (cond ((string-match "^medium$" weight) | |
698 | (setq name (concat name " " "medium"))) | |
699 | ((string-match "^bold$\\|^demibold$" weight) | |
700 | (setq name (concat name " " weight))))) | |
701 | (and slant | |
702 | (cond ((string-match "^i$" slant) | |
703 | (setq name (concat name " " "italic"))) | |
704 | ((string-match "^o$" slant) | |
705 | (setq name (concat name " " "slant"))) | |
706 | ((string-match "^ri$" slant) | |
707 | (setq name (concat name " " "reverse italic"))) | |
708 | ((string-match "^ro$" slant) | |
709 | (setq name (concat name " " "reverse slant"))))) | |
710 | name) | |
4ed46869 KH |
711 | fontset))) |
712 | ||
37a94e2f | 713 | (defvar charset-script-alist |
8a020f4c | 714 | '((ascii . latin) |
37a94e2f KH |
715 | (latin-iso8859-1 . latin) |
716 | (latin-iso8859-2 . latin) | |
717 | (latin-iso8859-3 . latin) | |
718 | (latin-iso8859-4 . latin) | |
719 | (latin-iso8859-9 . latin) | |
720 | (latin-iso8859-10 . latin) | |
721 | (latin-iso8859-13 . latin) | |
722 | (latin-iso8859-14 . latin) | |
723 | (latin-iso8859-15 . latin) | |
724 | (latin-iso8859-16 . latin) | |
725 | (latin-jisx0201 . latin) | |
726 | (thai-tis620 . thai) | |
727 | (cyrillic-iso8859-5 . cyrillic) | |
728 | (arabic-iso8859-6 . arabic) | |
729 | (greek-iso8859-7 . latin) | |
730 | (hebrew-iso8859-8 . latin) | |
8a020f4c | 731 | (katakana-jisx0201 . kana) |
37a94e2f | 732 | (chinese-gb2312 . han) |
28f2f887 | 733 | (chinese-gbk . han) |
c7606603 KH |
734 | (gb18030-2-byte . han) |
735 | (gb18030-4-byte-bmp . han) | |
736 | (gb18030-4-byte-ext-1 . han) | |
737 | (gb18030-4-byte-ext-2 . han) | |
738 | (gb18030-4-byte-smp . han) | |
37a94e2f KH |
739 | (chinese-big5-1 . han) |
740 | (chinese-big5-2 . han) | |
741 | (chinese-cns11643-1 . han) | |
742 | (chinese-cns11643-2 . han) | |
743 | (chinese-cns11643-3 . han) | |
744 | (chinese-cns11643-4 . han) | |
745 | (chinese-cns11643-5 . han) | |
746 | (chinese-cns11643-6 . han) | |
747 | (chinese-cns11643-7 . han) | |
748 | (japanese-jisx0208 . han) | |
749 | (japanese-jisx0208-1978 . han) | |
750 | (japanese-jisx0212 . han) | |
751 | (japanese-jisx0213-1 . han) | |
752 | (japanese-jisx0213-2 . han) | |
8a020f4c | 753 | (korean-ksc5601 . hangul) |
37a94e2f KH |
754 | (chinese-sisheng . bopomofo) |
755 | (vietnamese-viscii-lower . latin) | |
756 | (vietnamese-viscii-upper . latin) | |
757 | (arabic-digit . arabic) | |
758 | (arabic-1-column . arabic) | |
759 | (arabic-2-column . arabic) | |
760 | (indian-is13194 . devanagari) | |
761 | (indian-glyph . devanagari) | |
762 | (indian-1-column . devanagari) | |
763 | (indian-2-column . devanagari) | |
764 | (tibetan-1-column . tibetan)) | |
765 | "Alist of charsets vs the corresponding most appropriate scripts. | |
766 | ||
767 | This alist is used by the function `create-fontset-from-fontset-spec' | |
768 | to map charsets to scripts.") | |
c963bbc2 | 769 | |
6fb8f8bd | 770 | (defun create-fontset-from-fontset-spec (fontset-spec |
bb98ead9 | 771 | &optional style-variant noerror) |
4ed46869 KH |
772 | "Create a fontset from fontset specification string FONTSET-SPEC. |
773 | FONTSET-SPEC is a string of the format: | |
a0451a71 | 774 | FONTSET-NAME,SCRIPT0:FONT0,SCRIPT1:FONT1, ... |
494ec9bc | 775 | Any number of SPACE, TAB, and NEWLINE can be put before and after commas. |
bb98ead9 | 776 | |
92438d6e KH |
777 | When a frame uses the fontset as the `font' parameter, the frame's |
778 | default font name is derived from FONTSET-NAME by substituting | |
779 | \"iso8859-1\" for the tail part \"fontset-XXX\". But, if SCRIPT-NAMEn | |
780 | is \"ascii\", use the corresponding FONT-NAMEn as the default font | |
781 | name. | |
bb98ead9 | 782 | |
a0451a71 MB |
783 | Optional 2nd and 3rd arguments exist just for backward compatibility, |
784 | and are ignored. | |
1f50fef9 | 785 | |
37a94e2f KH |
786 | It returns a name of the created fontset. |
787 | ||
788 | For backward compatibility, SCRIPT-NAME may be a charset name, in | |
789 | which case, the corresponding script is decided by the variable | |
790 | `charset-script-alist' (which see)." | |
92438d6e | 791 | (or (string-match "^[^,]+" fontset-spec) |
494ec9bc KH |
792 | (error "Invalid fontset spec: %s" fontset-spec)) |
793 | (let ((idx (match-end 0)) | |
794 | (name (match-string 0 fontset-spec)) | |
09fd851a | 795 | xlfd-fields target script fontlist) |
92438d6e KH |
796 | (setq xlfd-fields (x-decompose-font-name name)) |
797 | (or xlfd-fields | |
798 | (error "Fontset name \"%s\" not conforming to XLFD" name)) | |
799 | ||
800 | ;; At first, extract pairs of charset and fontname from FONTSET-SPEC. | |
31f5d05a KH |
801 | (while (string-match "[, \t\n]*\\([^:]+\\):[ \t]*\\([^,]+\\)" |
802 | fontset-spec idx) | |
92438d6e | 803 | (setq idx (match-end 0)) |
09fd851a KH |
804 | (setq target (intern (match-string 1 fontset-spec))) |
805 | (cond ((or (eq target 'ascii) | |
4b89b5e2 KH |
806 | (memq target (char-table-extra-slot char-script-table 0))) |
807 | (push (list target (match-string 2 fontset-spec)) fontlist)) | |
808 | ((setq script (cdr (assq target charset-script-alist))) | |
09fd851a KH |
809 | (push (list script (match-string 2 fontset-spec)) fontlist)) |
810 | ((charsetp target) | |
811 | (push (list target (match-string 2 fontset-spec)) fontlist)))) | |
92438d6e KH |
812 | |
813 | ;; Complement FONTLIST. | |
814 | (setq fontlist (x-complement-fontset-spec xlfd-fields fontlist)) | |
815 | ||
816 | ;; Create a fontset. | |
09fd851a | 817 | (new-fontset name (nreverse fontlist)))) |
1f50fef9 KH |
818 | |
819 | (defun create-fontset-from-ascii-font (font &optional resolved-font | |
820 | fontset-name) | |
821 | "Create a fontset from an ASCII font FONT. | |
822 | ||
33fac697 JB |
823 | Optional 2nd arg RESOLVED-FONT is a resolved name of FONT. |
824 | If omitted, `x-resolve-font-name' is called to get the resolved name. | |
825 | At this time, if FONT is not available, an error is signaled. | |
1f50fef9 | 826 | |
33fac697 | 827 | Optional 3rd arg FONTSET-NAME is a string to be used in |
1f50fef9 KH |
828 | `<CHARSET_ENCODING>' fields of a new fontset name. If it is omitted, |
829 | an appropriate name is generated automatically. | |
830 | ||
1f50fef9 | 831 | It returns a name of the created fontset." |
6eca8d93 | 832 | (setq font (downcase font)) |
37a94e2f KH |
833 | (setq resolved-font |
834 | (downcase (or resolved-font (x-resolve-font-name font)))) | |
06f76f0d KH |
835 | (let ((xlfd (x-decompose-font-name resolved-font)) |
836 | fontset) | |
6eca8d93 KH |
837 | (if fontset-name |
838 | (setq fontset-name (downcase fontset-name)) | |
87997c2c KH |
839 | (if (query-fontset "fontset-startup") |
840 | (setq fontset-name | |
841 | (subst-char-in-string | |
842 | ?- ?_ (aref xlfd xlfd-regexp-registry-subnum) t)) | |
843 | (setq fontset-name "startup"))) | |
06f76f0d KH |
844 | (aset xlfd xlfd-regexp-registry-subnum |
845 | (format "fontset-%s" fontset-name)) | |
1f50fef9 KH |
846 | (setq fontset (x-compose-font-name xlfd)) |
847 | (or (query-fontset fontset) | |
6eca8d93 KH |
848 | (create-fontset-from-fontset-spec (concat fontset ", ascii:" font))))) |
849 | ||
4ed46869 | 850 | \f |
acfb10b8 | 851 | ;; Create standard fontset from 16 dots fonts which are the most widely |
80d4ea92 KH |
852 | ;; installed fonts. Fonts for Chinese-GB, Korean, and Chinese-CNS are |
853 | ;; specified here because FAMILY of those fonts are not "fixed" in | |
854 | ;; many cases. | |
acfb10b8 | 855 | (defvar standard-fontset-spec |
06f76f0d | 856 | (purecopy "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-standard") |
acfb10b8 KH |
857 | "String of fontset spec of the standard fontset. |
858 | You have the biggest chance to display international characters | |
859 | with correct glyphs by using the standard fontset. | |
4ed46869 KH |
860 | See the documentation of `create-fontset-from-fontset-spec' for the format.") |
861 | ||
37a94e2f | 862 | |
4ed46869 KH |
863 | ;; Create fontsets from X resources of the name `fontset-N (class |
864 | ;; Fontset-N)' where N is integer 0, 1, ... | |
865 | ;; The values of the resources the string of the same format as | |
acfb10b8 | 866 | ;; `standard-fontset-spec'. |
4ed46869 KH |
867 | |
868 | (defun create-fontset-from-x-resource () | |
869 | (let ((idx 0) | |
870 | fontset-spec) | |
cdd675ad DL |
871 | (while (setq fontset-spec (x-get-resource (format "fontset-%d" idx) |
872 | (format "Fontset-%d" idx))) | |
a5695549 | 873 | (create-fontset-from-fontset-spec fontset-spec t 'noerror) |
4ed46869 KH |
874 | (setq idx (1+ idx))))) |
875 | ||
4ed46869 KH |
876 | ;; |
877 | (provide 'fontset) | |
878 | ||
6b61353c | 879 | ;;; arch-tag: bb53e629-0234-403c-950e-551e61554849 |
4ed46869 | 880 | ;;; fontset.el ends here |