Mercurial > emacs
annotate lisp/international/fontset.el @ 90357:ee03316bed9d
*** empty log message ***
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 08 Mar 2006 11:56:59 +0000 |
parents | c98f49021a42 |
children | 8a1866284f74 |
rev | line source |
---|---|
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36368
diff
changeset
|
1 ;;; fontset.el --- commands for handling fontset |
17052 | 2 |
62274 | 3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc. |
4 ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003 | |
5 ;; National Institute of Advanced Industrial Science and Technology (AIST) | |
6 ;; Registration Number H14PRO021 | |
89483 | 7 ;; Copyright (C) 2003 |
8 ;; National Institute of Advanced Industrial Science and Technology (AIST) | |
9 ;; Registration Number H13PRO009 | |
17052 | 10 |
89274 | 11 ;; Keywords: mule, i18n, fontset |
17052 | 12 |
13 ;; This file is part of GNU Emacs. | |
14 | |
15 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
16 ;; it under the terms of the GNU General Public License as published by | |
17 ;; the Free Software Foundation; either version 2, or (at your option) | |
18 ;; any later version. | |
19 | |
20 ;; GNU Emacs is distributed in the hope that it will be useful, | |
21 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
23 ;; GNU General Public License for more details. | |
24 | |
25 ;; You should have received a copy of the GNU General Public License | |
17071 | 26 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 27 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
28 ;; Boston, MA 02110-1301, USA. | |
17052 | 29 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36368
diff
changeset
|
30 ;;; Commentary: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36368
diff
changeset
|
31 |
17052 | 32 ;;; Code: |
33 | |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
34 ;; Setup font-encoding-alist for all known encodings. |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
35 |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
36 (setq font-encoding-alist |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
37 '(("iso8859-1$" . iso-8859-1) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
38 ("iso8859-2$" . iso-8859-2) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
39 ("iso8859-3$" . iso-8859-3) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
40 ("iso8859-4$" . iso-8859-4) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
41 ("iso8859-5$" . iso-8859-5) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
42 ("iso8859-6$" . iso-8859-6) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
43 ("iso8859-7$" . iso-8859-7) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
44 ("iso8859-8$" . iso-8859-8) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
45 ("iso8859-9$" . iso-8859-9) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
46 ("iso8859-10$" . iso-8859-10) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
47 ("iso8859-11$" . iso-8859-11) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
48 ("iso8859-13$" . iso-8859-13) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
49 ("iso8859-14$" . iso-8859-14) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
50 ("iso8859-15$" . iso-8859-15) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
51 ("gb2312.1980" . chinese-gb2312) |
90005
0c0b009323eb
(font-encoding-alist): Add gbk.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
52 ("gbk" . chinese-gbk) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
53 ("jisx0208.1978" . japanese-jisx0208-1978) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
54 ("jisx0208" . japanese-jisx0208) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
55 ("jisx0201" . jisx0201) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
56 ("jisx0212" . japanese-jisx0212) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
57 ("ksc5601.1987" . korean-ksc5601) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
58 ("cns11643.1992.*1" . chinese-cns11643-1) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
59 ("cns11643.1992.*2" . chinese-cns11643-2) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
60 ("cns11643.1992.*3" . chinese-cns11643-3) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
61 ("cns11643.1992.*4" . chinese-cns11643-4) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
62 ("cns11643.1992.*5" . chinese-cns11643-5) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
63 ("cns11643.1992.*6" . chinese-cns11643-6) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
64 ("cns11643.1992.*7" . chinese-cns11643-7) |
89809
c03a2732d0fd
(font-encoding-alist): Add entries for
Kenichi Handa <handa@m17n.org>
parents:
89806
diff
changeset
|
65 ("cns11643.92p1-0" . chinese-cns11643-1) |
c03a2732d0fd
(font-encoding-alist): Add entries for
Kenichi Handa <handa@m17n.org>
parents:
89806
diff
changeset
|
66 ("cns11643.92p2-0" . chinese-cns11643-2) |
c03a2732d0fd
(font-encoding-alist): Add entries for
Kenichi Handa <handa@m17n.org>
parents:
89806
diff
changeset
|
67 ("cns11643.92p3-0" . chinese-cns11643-3) |
c03a2732d0fd
(font-encoding-alist): Add entries for
Kenichi Handa <handa@m17n.org>
parents:
89806
diff
changeset
|
68 ("cns11643.92p4-0" . chinese-cns11643-4) |
c03a2732d0fd
(font-encoding-alist): Add entries for
Kenichi Handa <handa@m17n.org>
parents:
89806
diff
changeset
|
69 ("cns11643.92p5-0" . chinese-cns11643-5) |
c03a2732d0fd
(font-encoding-alist): Add entries for
Kenichi Handa <handa@m17n.org>
parents:
89806
diff
changeset
|
70 ("cns11643.92p6-0" . chinese-cns11643-6) |
c03a2732d0fd
(font-encoding-alist): Add entries for
Kenichi Handa <handa@m17n.org>
parents:
89806
diff
changeset
|
71 ("cns11643.92p7-0" . chinese-cns11643-7) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
72 ("big5" . big5) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
73 ("sisheng_cwnn" . chinese-sisheng) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
74 ("viscii" . viscii) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
75 ("tis620" . tis620-2533) |
90091
4a0f91659a65
(font-encoding-alist): Add an entry for
Kenichi Handa <handa@m17n.org>
parents:
90005
diff
changeset
|
76 ("microsoft-cp1251" . windows-1251) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
77 ("mulearabic-0" . arabic-digit) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
78 ("mulearabic-1" . arabic-1-column) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
79 ("mulearabic-2" . arabic-2-column) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
80 ("muleipa" . ipa) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
81 ("ethiopic-unicode" . ethiopic) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
82 ("is13194-devanagari" . indian-is13194) |
89483 | 83 ("Devanagari-CDAC" . devanagari-cdac) |
84 ("Sanskrit-CDAC" . sanskrit-cdac) | |
85 ("Bengali-CDAC" . bengali-cdac) | |
86 ("Assamese-CDAC" . assamese-cdac) | |
87 ("Punjabi-CDAC" . punjabi-cdac) | |
88 ("Gujarati-CDAC" . gujarati-cdac) | |
89 ("Oriya-CDAC" . oriya-cdac) | |
90 ("Tamil-CDAC" . tamil-cdac) | |
91 ("Telugu-CDAC" . telugu-cdac) | |
92 ("Kannada-CDAC" . kannada-cdac) | |
93 ("Malayalam-CDAC" . malayalam-cdac) | |
94 ("Devanagari-Akruti" . devanagari-akruti) | |
95 ("Bengali-Akruti" . bengali-akruti) | |
96 ("Punjabi-Akruti" . punjabi-akruti) | |
97 ("Gujarati-Akruti" . gujarati-akruti) | |
98 ("Oriya-Akruti" . oriya-akruti) | |
99 ("Tamil-Akruti" . tamil-akruti) | |
100 ("Telugu-Akruti" . telugu-akruti) | |
101 ("Kannada-Akruti" . kannada-akruti) | |
102 ("Malayalam-Akruti" . malayalam-akruti) | |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
103 ("muleindian-2" . indian-2-column) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
104 ("muleindian-1" . indian-1-column) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
105 ("mulelao-1" . mule-lao) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
106 ("muletibetan-2" . tibetan) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
107 ("muletibetan-1" . tibetan-1-column) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
108 ("jisx0213.2000-1" . japanese-jisx0213-1) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
109 ("jisx0213.2000-2" . japanese-jisx0213-2) |
89802
16421a824d49
(font-encoding-alist): Register "JISX0213.2004-1".
Kenichi Handa <handa@m17n.org>
parents:
89800
diff
changeset
|
110 ("jisx0213.2004-1" . japanese-jisx0213.2004-1) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
111 ("abobe-symbol" . symbol) |
89825
513b9f207900
(font-encoding-alist): Register "iso10646-2" for unicode-sip.
Kenichi Handa <handa@m17n.org>
parents:
89809
diff
changeset
|
112 ("iso10646-1$" . (unicode-bmp . nil)) |
513b9f207900
(font-encoding-alist): Register "iso10646-2" for unicode-sip.
Kenichi Handa <handa@m17n.org>
parents:
89809
diff
changeset
|
113 ("iso10646.indian-1" . (unicode-bmp . nil)))) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
114 |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
115 |
29234
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
116 ;; Set standard fontname specification of characters in the default |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
117 ;; fontset to find an appropriate font for each script/charset. The |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
118 ;; specification has the form ((SCRIPT FONT-SPEC ...) ...), where |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
119 ;; FONT-SPEC is: |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
120 ;; a vector [ FAMILY WEIGHT SLANT ADSTYLE REGISTRY ], |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
121 ;; or a cons (FAMILY . REGISTRY), |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
122 ;; or a string FONT-NAME. |
89483 | 123 ;; |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
124 ;; FAMILY, WEIGHT, SLANT, and ADSTYLE may be nil, in which case, the |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
125 ;; the corresponding name of default face is used. If REGISTRY |
29234
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
126 ;; contains a character `-', the string before that is embedded in |
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
127 ;; `CHARSET_REGISTRY' field, and the string after that is embedded in |
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
128 ;; `CHARSET_ENCODING' field. If it does not contain `-', the whole |
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
129 ;; string is embedded in `CHARSET_REGISTRY' field, and a wild card |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
130 ;; character `*' is embedded in `CHARSET_ENCODING' field. |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
131 ;; |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
132 ;; SCRIPT is a symbol that appears as an element of the char table |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
133 ;; `char-script-table'. SCRIPT may be a charset specifying the range |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
134 ;; of characters. |
17052 | 135 |
49287
5cb7e7103296
Don't setup the default fontset and
Kenichi Handa <handa@m17n.org>
parents:
47711
diff
changeset
|
136 (defun setup-default-fontset () |
5cb7e7103296
Don't setup the default fontset and
Kenichi Handa <handa@m17n.org>
parents:
47711
diff
changeset
|
137 "Setup the default fontset." |
89483 | 138 (new-fontset |
139 "fontset-default" | |
140 '(;; for each script | |
141 (latin (nil . "ISO8859-1") | |
142 (nil . "ISO8859-2") | |
143 (nil . "ISO8859-3") | |
144 (nil . "ISO8859-4") | |
145 (nil . "ISO8859-9") | |
146 (nil . "ISO8859-10") | |
147 (nil . "ISO8859-13") | |
148 (nil . "ISO8859-14") | |
149 (nil . "ISO8859-15") | |
150 (nil . "VISCII1.1-1")) | |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
151 |
89483 | 152 (thai (nil . "TIS620*") |
153 (nil . "ISO8859-11")) | |
154 | |
155 (devanagari (nil . "iso10646.indian-1")) | |
156 | |
157 (lao (nil . "MuleLao-1")) | |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
158 |
89483 | 159 ;; both for script and charset. |
160 (tibetan (nil . "muletibetan-2")) | |
89258
b6c2beacc874
("fontset-default"): Add an entry for
Kenichi Handa <handa@m17n.org>
parents:
89143
diff
changeset
|
161 |
89483 | 162 ;; both for script and charset. |
163 (ethiopic (nil . "ethiopic-unicode")) | |
164 | |
165 (greek (nil . "ISO8859-7")) | |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
166 |
90091
4a0f91659a65
(font-encoding-alist): Add an entry for
Kenichi Handa <handa@m17n.org>
parents:
90005
diff
changeset
|
167 (cyrillic (nil . "ISO8859-5") |
4a0f91659a65
(font-encoding-alist): Add an entry for
Kenichi Handa <handa@m17n.org>
parents:
90005
diff
changeset
|
168 (nil . "microsoft-cp1251") |
4a0f91659a65
(font-encoding-alist): Add an entry for
Kenichi Handa <handa@m17n.org>
parents:
90005
diff
changeset
|
169 (nil . "koi8-r")) |
89483 | 170 |
171 (arabic (nil . "MuleArabic-0") | |
172 (nil . "MuleArabic-1") | |
173 (nil . "MuleArabic-2") | |
174 (nil . "ISO8859-6")) | |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
175 |
89483 | 176 (hebrew (nil . "ISO8859-8")) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
177 |
89483 | 178 (kana (nil . "JISX0208*") |
179 (nil . "GB2312.1980-0") | |
180 (nil . "KSC5601.1987*") | |
89806
960bd3cc1872
(setup-default-fontset): Delete the
Kenichi Handa <handa@m17n.org>
parents:
89802
diff
changeset
|
181 (nil . "JISX0201*") |
960bd3cc1872
(setup-default-fontset): Delete the
Kenichi Handa <handa@m17n.org>
parents:
89802
diff
changeset
|
182 (nil . "JISX0213.2000-1") |
960bd3cc1872
(setup-default-fontset): Delete the
Kenichi Handa <handa@m17n.org>
parents:
89802
diff
changeset
|
183 (nil . "JISX0213.2004-1")) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
184 |
89483 | 185 (bopomofo (nil . "sisheng_cwnn-0")) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
186 |
89483 | 187 (han (nil . "GB2312.1980-0") |
188 (nil . "JISX0208*") | |
189 (nil . "JISX0212*") | |
190 (nil . "big5*") | |
191 (nil . "KSC5601.1987*") | |
192 (nil . "CNS11643.1992-1") | |
193 (nil . "CNS11643.1992-2") | |
194 (nil . "CNS11643.1992-3") | |
195 (nil . "CNS11643.1992-4") | |
196 (nil . "CNS11643.1992-5") | |
197 (nil . "CNS11643.1992-6") | |
198 (nil . "CNS11643.1992-7") | |
199 (nil . "gbk-0") | |
200 (nil . "JISX0213.2000-1") | |
89800
6458a4233000
(setup-default-fontset): Register "JISX0213.2004-1".
Kenichi Handa <handa@m17n.org>
parents:
89636
diff
changeset
|
201 (nil . "JISX0213.2000-2") |
6458a4233000
(setup-default-fontset): Register "JISX0213.2004-1".
Kenichi Handa <handa@m17n.org>
parents:
89636
diff
changeset
|
202 (nil . "JISX0213.2004-1")) |
17052 | 203 |
89483 | 204 (cjk-misc (nil . "GB2312.1980-0") |
205 (nil . "JISX0208*") | |
206 (nil . "JISX0212*") | |
207 (nil . "big5*") | |
208 (nil . "KSC5601.1987*") | |
209 (nil . "CNS11643.1992-1") | |
210 (nil . "CNS11643.1992-2") | |
211 (nil . "CNS11643.1992-3") | |
212 (nil . "CNS11643.1992-4") | |
213 (nil . "CNS11643.1992-5") | |
214 (nil . "CNS11643.1992-6") | |
215 (nil . "CNS11643.1992-7") | |
216 (nil . "gbk-0") | |
217 (nil . "JISX0213.2000-1") | |
218 (nil . "JISX0213.2000-2")) | |
88405 | 219 |
89483 | 220 (hangul (nil . "KSC5601.1987-0")) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
221 |
89483 | 222 ;; for each charset |
223 (ascii (nil . "ISO8859-1")) | |
224 (arabic-digit ("*" . "MuleArabic-0")) | |
225 (arabic-1-column ("*" . "MuleArabic-1")) | |
226 (arabic-2-column ("*" . "MuleArabic-2")) | |
227 (indian-is13194 (nil . "is13194-devanagari")) | |
228 (indian-1-column ("*" . "muleindian-2")) | |
229 ;; Indian CDAC | |
230 (devanagari-cdac (nil . "Devanagari-CDAC")) | |
231 (sanskrit-cdac (nil . "Sanskrit-CDAC")) | |
232 (bengali-cdac (nil . "Bengali-CDAC")) | |
233 (assamese-cdac (nil . "Assamese-CDAC")) | |
234 (punjabi-cdac (nil . "Punjabi-CDAC")) | |
235 (gujarati-cdac (nil . "Gujarati-CDAC")) | |
236 (oriya-cdac (nil . "Oriya-CDAC")) | |
237 (tamil-cdac (nil . "Tamil-CDAC")) | |
238 (telugu-cdac (nil . "Telugu-CDAC")) | |
239 (kannada-cdac (nil . "Kannada-CDAC")) | |
240 (malayalam-cdac (nil . "Malayalam-CDAC")) | |
241 ;; Indian AKRUTI | |
242 (devanagari-akruti (nil . "Devanagari-Akruti")) | |
243 (bengali-akruti (nil . "Bengali-Akruti")) | |
244 (punjabi-akruti (nil . "Punjabi-Akruti")) | |
245 (gujarati-akruti (nil . "Gujarati-Akruti")) | |
246 (oriya-akruti (nil . "Oriya-Akruti")) | |
247 (tamil-akruti (nil . "Tamil-Akruti")) | |
248 (telugu-akruti (nil . "Telugu-Akruti")) | |
249 (kannada-akruti (nil . "Kannada-Akruti")) | |
250 (malayalam-akruti (nil . "Malayalam-Akruti")) | |
251 ;;(devanagari-glyph ("altsys-dv_ttsurekh" . "devanagari-cdac")) | |
252 ;;(malayalam-glyph ("altsys-ml_ttkarthika" . "malayalam-cdac")) | |
253 (ipa (nil . "MuleIPA-1")) | |
17052 | 254 |
89806
960bd3cc1872
(setup-default-fontset): Delete the
Kenichi Handa <handa@m17n.org>
parents:
89802
diff
changeset
|
255 ;; Fallback fonts |
960bd3cc1872
(setup-default-fontset): Delete the
Kenichi Handa <handa@m17n.org>
parents:
89802
diff
changeset
|
256 (nil (nil . "gb2312.1980") |
960bd3cc1872
(setup-default-fontset): Delete the
Kenichi Handa <handa@m17n.org>
parents:
89802
diff
changeset
|
257 (nil . "jisx0208") |
960bd3cc1872
(setup-default-fontset): Delete the
Kenichi Handa <handa@m17n.org>
parents:
89802
diff
changeset
|
258 (nil . "ksc5601.1987") |
89809
c03a2732d0fd
(font-encoding-alist): Add entries for
Kenichi Handa <handa@m17n.org>
parents:
89806
diff
changeset
|
259 (nil . "CNS11643.1992-1") |
c03a2732d0fd
(font-encoding-alist): Add entries for
Kenichi Handa <handa@m17n.org>
parents:
89806
diff
changeset
|
260 (nil . "CNS11643.1992-2") |
c03a2732d0fd
(font-encoding-alist): Add entries for
Kenichi Handa <handa@m17n.org>
parents:
89806
diff
changeset
|
261 (nil . "CNS11643.1992-3") |
c03a2732d0fd
(font-encoding-alist): Add entries for
Kenichi Handa <handa@m17n.org>
parents:
89806
diff
changeset
|
262 (nil . "CNS11643.1992-4") |
c03a2732d0fd
(font-encoding-alist): Add entries for
Kenichi Handa <handa@m17n.org>
parents:
89806
diff
changeset
|
263 (nil . "CNS11643.1992-5") |
c03a2732d0fd
(font-encoding-alist): Add entries for
Kenichi Handa <handa@m17n.org>
parents:
89806
diff
changeset
|
264 (nil . "CNS11643.1992-6") |
c03a2732d0fd
(font-encoding-alist): Add entries for
Kenichi Handa <handa@m17n.org>
parents:
89806
diff
changeset
|
265 (nil . "CNS11643.1992-7") |
89806
960bd3cc1872
(setup-default-fontset): Delete the
Kenichi Handa <handa@m17n.org>
parents:
89802
diff
changeset
|
266 (nil . "big5") |
960bd3cc1872
(setup-default-fontset): Delete the
Kenichi Handa <handa@m17n.org>
parents:
89802
diff
changeset
|
267 (nil . "jisx0213.2000-1") |
960bd3cc1872
(setup-default-fontset): Delete the
Kenichi Handa <handa@m17n.org>
parents:
89802
diff
changeset
|
268 (nil . "jisx0213.2004-1") |
960bd3cc1872
(setup-default-fontset): Delete the
Kenichi Handa <handa@m17n.org>
parents:
89802
diff
changeset
|
269 (nil . "jisx0212")) |
89483 | 270 )) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
271 |
89483 | 272 ;; Append Unicode fonts. |
273 ;; This may find fonts with more variants (bold, italic) but which | |
274 ;; don't cover many characters. | |
89806
960bd3cc1872
(setup-default-fontset): Delete the
Kenichi Handa <handa@m17n.org>
parents:
89802
diff
changeset
|
275 (set-fontset-font "fontset-default" nil |
89483 | 276 '(nil . "iso10646-1") nil 'append) |
277 ;; These may find fonts that cover many characters but with fewer | |
278 ;; variants. | |
89806
960bd3cc1872
(setup-default-fontset): Delete the
Kenichi Handa <handa@m17n.org>
parents:
89802
diff
changeset
|
279 (set-fontset-font "fontset-default" nil |
89483 | 280 '("gnu-unifont" . "iso10646-1") nil 'append) |
89806
960bd3cc1872
(setup-default-fontset): Delete the
Kenichi Handa <handa@m17n.org>
parents:
89802
diff
changeset
|
281 (set-fontset-font "fontset-default" nil |
89483 | 282 '("mutt-clearlyu" . "iso10646-1") nil 'append)) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
283 |
89274 | 284 ;; These are the registered registries/encodings from |
285 ;; ftp://ftp.x.org/pub/DOCS/registry 2001/06/01 | |
17052 | 286 |
89274 | 287 ;; Name Reference |
288 ;; ---- --------- | |
289 ;; "DEC" [27] | |
290 ;; registry prefix | |
291 ;; "DEC.CNS11643.1986-2" [53] | |
292 ;; CNS11643 2-plane using the encoding | |
293 ;; suggested in that standard | |
294 ;; "DEC.DTSCS.1990-2" [54] | |
295 ;; DEC Taiwan Supplemental Character Set | |
296 ;; "fujitsu.u90x01.1991-0" [87] | |
297 ;; "fujitsu.u90x03.1991-0" [87] | |
298 ;; "GB2312.1980-0" [39],[12] | |
299 ;; China (PRC) Hanzi, GL encoding | |
300 ;; "GB2312.1980-1" [39] | |
301 ;; (deprecated) | |
302 ;; China (PRC) Hanzi, GR encoding | |
303 ;; "HP-Arabic8" [36] | |
304 ;; HPARABIC8 8-bit character set | |
305 ;; "HP-East8" [36] | |
306 ;; HPEAST8 8-bit character set | |
307 ;; "HP-Greek8" [36] | |
308 ;; HPGREEK8 8-bit character set | |
309 ;; "HP-Hebrew8" [36] | |
310 ;; HPHEBREW8 8-bit character set | |
311 ;; "HP-Japanese15" [36] | |
312 ;; HPJAPAN15 15-bit characer set, | |
313 ;; modified from industry defacto | |
314 ;; standard Shift-JIS | |
315 ;; "HP-Kana8" [36] | |
316 ;; HPKANA8 8-bit character set | |
317 ;; "HP-Korean15" [36] | |
318 ;; HPKOREAN15 15-bit character set | |
319 ;; "HP-Roman8" [36] | |
320 ;; HPROMAN8 8-bit character set | |
321 ;; "HP-SChinese15" [36] | |
322 ;; HPSCHINA15 15-bit character set for | |
323 ;; support of Simplified Chinese | |
324 ;; "HP-TChinese15" [36] | |
325 ;; HPTCHINA15 15-bit character set for | |
326 ;; support of Traditional Chinese | |
327 ;; "HP-Turkish8" [36] | |
328 ;; HPTURKISH8 8-bit character set | |
329 ;; "IPSYS" [59] | |
330 ;; registry prefix | |
331 ;; "IPSYS.IE-1" [59] | |
332 ;; "ISO2022"<REG>"-"<ENC> [44] | |
333 ;; "ISO646.1991-IRV" [107] | |
334 ;; ISO 646 International Reference Version | |
335 ;; "ISO8859-1" [15],[12] | |
336 ;; ISO Latin alphabet No. 1 | |
337 ;; "ISO8859-2" [15],[12] | |
338 ;; ISO Latin alphabet No. 2 | |
339 ;; "ISO8859-3" [15],[12] | |
340 ;; ISO Latin alphabet No. 3 | |
341 ;; "ISO8859-4" [15],[12] | |
342 ;; ISO Latin alphabet No. 4 | |
343 ;; "ISO8859-5" [15],[12] | |
344 ;; ISO Latin/Cyrillic alphabet | |
345 ;; "ISO8859-6" [15],[12] | |
346 ;; ISO Latin/Arabic alphabet | |
347 ;; "ISO8859-7" [15],[12] | |
348 ;; ISO Latin/Greek alphabet | |
349 ;; "ISO8859-8" [15],[12] | |
350 ;; ISO Latin/Hebrew alphabet | |
351 ;; "ISO8859-9" [15],[12] | |
352 ;; ISO Latin alphabet No. 5 | |
353 ;; "ISO8859-10" [15],[12] | |
354 ;; ISO Latin alphabet No. 6 | |
355 ;; "ISO8859-13" [15],[12] | |
356 ;; ISO Latin alphabet No. 7 | |
357 ;; "ISO8859-14" [15],[12] | |
358 ;; ISO Latin alphabet No. 8 | |
359 ;; "ISO8859-15" [15],[12] | |
360 ;; ISO Latin alphabet No. 9 | |
361 ;; "FCD8859-15" [7] | |
362 ;; (deprecated) | |
363 ;; ISO Latin alphabet No. 9, Final Committee Draft | |
364 ;; "ISO10646-1" [133] | |
365 ;; Unicode Universal Multiple-Octet Coded Character Set | |
366 ;; "ISO10646-MES" [133] | |
367 ;; (deprecated) | |
368 ;; Unicode Minimum European Subset | |
369 ;; "JISX0201.1976-0" [38],[12] | |
370 ;; 8-Bit Alphanumeric-Katakana Code | |
371 ;; "JISX0208.1983-0" [40],[12] | |
372 ;; Japanese Graphic Character Set, | |
373 ;; GL encoding | |
374 ;; "JISX0208.1990-0" [71] | |
375 ;; Japanese Graphic Character Set, | |
376 ;; GL encoding | |
377 ;; "JISX0208.1983-1" [40] | |
378 ;; (deprecated) | |
379 ;; Japanese Graphic Character Set, | |
380 ;; GR encoding | |
381 ;; "JISX0212.1990-0" [72] | |
382 ;; Supplementary Japanese Graphic Character Set, | |
383 ;; GL encoding | |
384 ;; "KOI8-R" [119] | |
385 ;; Cyrillic alphabet | |
386 ;; "KSC5601.1987-0" [41],[12] | |
387 ;; Korean Graphic Character Set, | |
388 ;; GL encoding | |
389 ;; "KSC5601.1987-1" [41] | |
390 ;; (deprecated) | |
391 ;; Korean Graphic Character Set, | |
392 ;; GR encoding | |
393 ;; "omron_CNS11643-0" [45] | |
394 ;; "omron_CNS11643-1" [45] | |
395 ;; "omron_BIG5-0" [45] | |
396 ;; "omron_BIG5-1" [45] | |
397 ;; "wn.tamil.1993" [103] | |
398 | |
88405 | 399 (defun set-font-encoding (pattern charset) |
89274 | 400 "Set arguments in `font-encoding-alist' (which see)." |
17052 | 401 (let ((slot (assoc pattern font-encoding-alist))) |
402 (if slot | |
88405 | 403 (setcdr slot charset) |
17052 | 404 (setq font-encoding-alist |
88405 | 405 (cons (cons pattern charset) font-encoding-alist))))) |
32646
43edadfecb51
Use registry "MuleTibetan-2" for Tibetan.
Kenichi Handa <handa@m17n.org>
parents:
29427
diff
changeset
|
406 |
17052 | 407 ;; Setting for suppressing XLoadQueryFont on big fonts. |
408 (setq x-pixel-size-width-font-regexp | |
409 "gb2312\\|jisx0208\\|ksc5601\\|cns11643\\|big5") | |
410 | |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
411 ;; These fonts require vertical centering. |
26886
8a6d8101919e
(vertical-centering-font-regexp): New
Kenichi Handa <handa@m17n.org>
parents:
26013
diff
changeset
|
412 (setq vertical-centering-font-regexp |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
413 "gb2312\\|jisx0208\\|jisx0212\\|ksc5601\\|cns11643\\|big5") |
26886
8a6d8101919e
(vertical-centering-font-regexp): New
Kenichi Handa <handa@m17n.org>
parents:
26013
diff
changeset
|
414 |
50516
125da3e3e9af
Specify rescale ratio 1.3 for CDAC fonts.
Kenichi Handa <handa@m17n.org>
parents:
50257
diff
changeset
|
415 ;; CDAC fonts are actually smaller than their design sizes. |
125da3e3e9af
Specify rescale ratio 1.3 for CDAC fonts.
Kenichi Handa <handa@m17n.org>
parents:
50257
diff
changeset
|
416 (setq face-font-rescale-alist |
125da3e3e9af
Specify rescale ratio 1.3 for CDAC fonts.
Kenichi Handa <handa@m17n.org>
parents:
50257
diff
changeset
|
417 '(("-cdac$" . 1.3))) |
125da3e3e9af
Specify rescale ratio 1.3 for CDAC fonts.
Kenichi Handa <handa@m17n.org>
parents:
50257
diff
changeset
|
418 |
88405 | 419 (defvar x-font-name-charset-alist nil |
420 "This variable has no meaning now. Just kept for backward compatibility.") | |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
421 |
17052 | 422 ;;; XLFD (X Logical Font Description) format handler. |
423 | |
424 ;; Define XLFD's field index numbers. ; field name | |
88405 | 425 (defconst xlfd-regexp-family-subnum 0) ; FOUNDRY and FAMILY |
426 (defconst xlfd-regexp-weight-subnum 1) ; WEIGHT_NAME | |
427 (defconst xlfd-regexp-slant-subnum 2) ; SLANT | |
428 (defconst xlfd-regexp-swidth-subnum 3) ; SETWIDTH_NAME | |
429 (defconst xlfd-regexp-adstyle-subnum 4) ; ADD_STYLE_NAME | |
430 (defconst xlfd-regexp-pixelsize-subnum 5) ; PIXEL_SIZE | |
431 (defconst xlfd-regexp-pointsize-subnum 6) ; POINT_SIZE | |
432 (defconst xlfd-regexp-resx-subnum 7) ; RESOLUTION_X | |
433 (defconst xlfd-regexp-resy-subnum 8) ; RESOLUTION_Y | |
434 (defconst xlfd-regexp-spacing-subnum 8) ; SPACING | |
435 (defconst xlfd-regexp-avgwidth-subnum 10) ; AVERAGE_WIDTH | |
436 (defconst xlfd-regexp-registry-subnum 11) ; REGISTRY and ENCODING | |
17052 | 437 |
438 ;; Regular expression matching against a fontname which conforms to | |
439 ;; XLFD (X Logical Font Description). All fields in XLFD should be | |
440 ;; not be omitted (but can be a wild card) to be matched. | |
441 (defconst xlfd-tight-regexp | |
442 "^\ | |
88405 | 443 -\\([^-]*-[^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)\ |
17052 | 444 -\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)\ |
88405 | 445 -\\([^-]*\\)-\\([^-]*\\)-\\([^-]*-[^-]*\\)$") |
446 | |
447 ;; Regular expression matching against a fontname which conforms to | |
448 ;; XLFD (X Logical Font Description). All fields in XLFD from FOUNDRY | |
89274 | 449 ;; to ADSTYLE, REGISTRY, and ENCODING should be not be omitted (but |
88405 | 450 ;; can be a wild card) to be matched. |
451 (defconst xlfd-style-regexp | |
452 "^\ | |
453 -\\([^-]*-[^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-.*\ | |
454 -\\([^-]*-[^-]*\\)$") | |
17052 | 455 |
456 ;; List of field numbers of XLFD whose values are numeric. | |
457 (defconst xlfd-regexp-numeric-subnums | |
88405 | 458 (list xlfd-regexp-pixelsize-subnum ;5 |
459 xlfd-regexp-pointsize-subnum ;6 | |
460 xlfd-regexp-resx-subnum ;7 | |
461 xlfd-regexp-resy-subnum ;8 | |
462 xlfd-regexp-avgwidth-subnum ;10 | |
17052 | 463 )) |
464 | |
465 (defun x-decompose-font-name (pattern) | |
89357
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
466 "Decompose PATTERN into XLFD fields and return a vector of the fields. |
88405 | 467 The length of the vector is 12. |
89357
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
468 The FOUNDRY and FAMILY fields are concatinated and stored in the first |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
469 element of the vector. |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
470 The REGISTRY and ENCODING fields are concatinated and stored in the last |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
471 element of the vector. |
23890
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
472 |
89357
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
473 Return nil if PATTERN doesn't conform to XLFD." |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
474 (if (string-match xlfd-tight-regexp pattern) |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
475 (let ((xlfd-fields (make-vector 12 nil))) |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
476 (dotimes (i 12) |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
477 (aset xlfd-fields i (match-string (1+ i) pattern))) |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
478 (dotimes (i 12) |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
479 (if (string-match "^[*-]+$" (aref xlfd-fields i)) |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
480 (aset xlfd-fields i nil))) |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
481 xlfd-fields))) |
17177
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
482 |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
483 (defun x-compose-font-name (fields &optional reduce) |
89274 | 484 "Compose X fontname from FIELDS. |
88405 | 485 FIELDS is a vector of XLFD fields, the length 12. |
17177
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
486 If a field is nil, wild-card letter `*' is embedded. |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
487 Optional argument REDUCE is always ignored. It exists just for |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
488 backward compatibility." |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
489 (concat "-" (mapconcat (lambda (x) (or x "*")) fields "-"))) |
23205
22df54cdb841
(resolved-ascii-font): New variable.
Kenichi Handa <handa@m17n.org>
parents:
23196
diff
changeset
|
490 |
40250
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
491 (defun x-must-resolve-font-name (xlfd-fields) |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
492 "Like `x-resolve-font-name', but always return a font name. |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
493 XLFD-FIELDS is a vector of XLFD (X Logical Font Description) fields. |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
494 If no font matching XLFD-FIELDS is available, successively replace |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
495 parts of the font name pattern with \"*\" until some font is found. |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
496 Value is name of that font." |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
497 (let ((ascii-font nil) (index 0)) |
88405 | 498 (while (and (null ascii-font) (<= index xlfd-regexp-registry-subnum)) |
40250
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
499 (let ((pattern (x-compose-font-name xlfd-fields))) |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
500 (condition-case nil |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
501 (setq ascii-font (x-resolve-font-name pattern)) |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
502 (error |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
503 (message "Warning: no fonts matching `%s' available" pattern) |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
504 (aset xlfd-fields index "*") |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
505 (setq index (1+ index)))))) |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
506 (unless ascii-font |
50581
4daf1ecf4381
(create-fontset-from-ascii-font): Doc fix.
John Paul Wallington <jpw@pobox.com>
parents:
50516
diff
changeset
|
507 (error "No fonts found")) |
40250
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
508 ascii-font)) |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
509 |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
510 |
17052 | 511 (defun x-complement-fontset-spec (xlfd-fields fontlist) |
89357
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
512 "Complement elements of FONTLIST based on XLFD-FIELDS. |
17052 | 513 XLFD-FIELDS is a vector of XLFD (X Logical Font Description) fields. |
89357
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
514 FONTLIST is an alist of script names vs the corresponding font names. |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
515 |
89357
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
516 The font names are complemented as below. |
18350
3f4364889538
(x-charset-registries): Name changed for consistency:
Kenichi Handa <handa@m17n.org>
parents:
17989
diff
changeset
|
517 |
89357
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
518 If a font name matches `xlfd-style-regexp', each field of wild card is |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
519 replaced by the corresponding fields in XLFD-FIELDS." |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
520 (let ((default-spec (vector (aref xlfd-fields xlfd-regexp-family-subnum) |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
521 (aref xlfd-fields xlfd-regexp-weight-subnum) |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
522 (aref xlfd-fields xlfd-regexp-slant-subnum) |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
523 (aref xlfd-fields xlfd-regexp-swidth-subnum) |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
524 (aref xlfd-fields xlfd-regexp-adstyle-subnum) |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
525 (aref xlfd-fields xlfd-regexp-registry-subnum)))) |
88405 | 526 (dolist (elt fontlist) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
527 (let ((name (cadr elt)) |
88405 | 528 font-spec) |
89325
58d5f88f985b
(x-complement-fontset-spec): If a fontname doesn't conform to XLFD
Kenichi Handa <handa@m17n.org>
parents:
89274
diff
changeset
|
529 (when (or (string-match xlfd-style-regexp name) |
58d5f88f985b
(x-complement-fontset-spec): If a fontname doesn't conform to XLFD
Kenichi Handa <handa@m17n.org>
parents:
89274
diff
changeset
|
530 (and (setq name (car (x-list-fonts name nil nil 1))) |
58d5f88f985b
(x-complement-fontset-spec): If a fontname doesn't conform to XLFD
Kenichi Handa <handa@m17n.org>
parents:
89274
diff
changeset
|
531 (string-match xlfd-style-regexp name))) |
88405 | 532 (setq font-spec (make-vector 6 nil)) |
533 (dotimes (i 6) | |
534 (aset font-spec i (match-string (1+ i) name))) | |
89900
7ad4af87a4d4
(x-complement-fontset-spec): Don't
Kenichi Handa <handa@m17n.org>
parents:
89830
diff
changeset
|
535 (dotimes (i 5) |
88405 | 536 (if (string-match "^[*-]+$" (aref font-spec i)) |
537 (aset font-spec i (aref default-spec i)))) | |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
538 (setcar (cdr elt) font-spec)))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49287
diff
changeset
|
539 |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
540 fontlist)) |
17052 | 541 |
19049
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
542 (defun fontset-name-p (fontset) |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
543 "Return non-nil if FONTSET is valid as fontset name. |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
544 A valid fontset name should conform to XLFD (X Logical Font Description) |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
545 with \"fontset\" in `<CHARSET_REGISTRY> field." |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
546 (and (string-match xlfd-tight-regexp fontset) |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
547 (string= (match-string (1+ xlfd-regexp-registry-subnum) fontset) |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
548 "fontset"))) |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
549 |
17052 | 550 (defun generate-fontset-menu () |
89274 | 551 "Return list to be appended to `x-fixed-font-alist'. |
552 Done when `mouse-set-font' is called." | |
89127
3e0204a3fcb8
(generate-fontset-menu): Exclude the defualt fontset.
Kenichi Handa <handa@m17n.org>
parents:
89004
diff
changeset
|
553 (let (l) |
3e0204a3fcb8
(generate-fontset-menu): Exclude the defualt fontset.
Kenichi Handa <handa@m17n.org>
parents:
89004
diff
changeset
|
554 (dolist (fontset (fontset-list)) |
3e0204a3fcb8
(generate-fontset-menu): Exclude the defualt fontset.
Kenichi Handa <handa@m17n.org>
parents:
89004
diff
changeset
|
555 (or (string-match "fontset-default$" fontset) |
3e0204a3fcb8
(generate-fontset-menu): Exclude the defualt fontset.
Kenichi Handa <handa@m17n.org>
parents:
89004
diff
changeset
|
556 (push (list (fontset-plain-name fontset) fontset) l))) |
24160
ab814ec4995e
(generate-fontset-menu): Return a
Kenichi Handa <handa@m17n.org>
parents:
24153
diff
changeset
|
557 (cons "Fontset" |
89127
3e0204a3fcb8
(generate-fontset-menu): Exclude the defualt fontset.
Kenichi Handa <handa@m17n.org>
parents:
89004
diff
changeset
|
558 (sort l #'(lambda (x y) (string< (car x) (car y))))))) |
17052 | 559 |
560 (defun fontset-plain-name (fontset) | |
561 "Return a plain and descriptive name of FONTSET." | |
17755
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
562 (if (not (setq fontset (query-fontset fontset))) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
563 (error "Invalid fontset: %s" fontset)) |
17052 | 564 (let ((xlfd-fields (x-decompose-font-name fontset))) |
565 (if xlfd-fields | |
89004
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
566 (let ((family (aref xlfd-fields xlfd-regexp-family-subnum)) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
567 (weight (aref xlfd-fields xlfd-regexp-weight-subnum)) |
17052 | 568 (slant (aref xlfd-fields xlfd-regexp-slant-subnum)) |
569 (swidth (aref xlfd-fields xlfd-regexp-swidth-subnum)) | |
570 (size (aref xlfd-fields xlfd-regexp-pixelsize-subnum)) | |
88405 | 571 (nickname (aref xlfd-fields xlfd-regexp-registry-subnum)) |
17052 | 572 name) |
88405 | 573 (if (not (string-match "^fontset-\\(.*\\)$" nickname)) |
89004
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
574 (setq nickname family) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
575 (setq nickname (match-string 1 nickname))) |
90344
d4661241b1fa
(create-fontset-from-fontset-spec): Fix
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
576 (if (and size (> (string-to-number size) 0)) |
89004
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
577 (setq name (format "%s: %s-dot" nickname size)) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
578 (setq name nickname)) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
579 (and weight |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
580 (cond ((string-match "^medium$" weight) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
581 (setq name (concat name " " "medium"))) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
582 ((string-match "^bold$\\|^demibold$" weight) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
583 (setq name (concat name " " weight))))) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
584 (and slant |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
585 (cond ((string-match "^i$" slant) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
586 (setq name (concat name " " "italic"))) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
587 ((string-match "^o$" slant) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
588 (setq name (concat name " " "slant"))) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
589 ((string-match "^ri$" slant) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
590 (setq name (concat name " " "reverse italic"))) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
591 ((string-match "^ro$" slant) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
592 (setq name (concat name " " "reverse slant"))))) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
593 name) |
17052 | 594 fontset))) |
595 | |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
596 (defvar charset-script-alist |
89143
7b8bd597892a
(charset-script-alist): Fix script names.
Kenichi Handa <handa@m17n.org>
parents:
89127
diff
changeset
|
597 '((ascii . latin) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
598 (latin-iso8859-1 . latin) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
599 (latin-iso8859-2 . latin) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
600 (latin-iso8859-3 . latin) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
601 (latin-iso8859-4 . latin) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
602 (latin-iso8859-9 . latin) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
603 (latin-iso8859-10 . latin) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
604 (latin-iso8859-13 . latin) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
605 (latin-iso8859-14 . latin) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
606 (latin-iso8859-15 . latin) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
607 (latin-iso8859-16 . latin) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
608 (latin-jisx0201 . latin) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
609 (thai-tis620 . thai) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
610 (cyrillic-iso8859-5 . cyrillic) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
611 (arabic-iso8859-6 . arabic) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
612 (greek-iso8859-7 . latin) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
613 (hebrew-iso8859-8 . latin) |
89143
7b8bd597892a
(charset-script-alist): Fix script names.
Kenichi Handa <handa@m17n.org>
parents:
89127
diff
changeset
|
614 (katakana-jisx0201 . kana) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
615 (chinese-gb2312 . han) |
90005
0c0b009323eb
(font-encoding-alist): Add gbk.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
616 (chinese-gbk . han) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
617 (chinese-big5-1 . han) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
618 (chinese-big5-2 . han) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
619 (chinese-cns11643-1 . han) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
620 (chinese-cns11643-2 . han) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
621 (chinese-cns11643-3 . han) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
622 (chinese-cns11643-4 . han) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
623 (chinese-cns11643-5 . han) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
624 (chinese-cns11643-6 . han) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
625 (chinese-cns11643-7 . han) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
626 (japanese-jisx0208 . han) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
627 (japanese-jisx0208-1978 . han) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
628 (japanese-jisx0212 . han) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
629 (japanese-jisx0213-1 . han) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
630 (japanese-jisx0213-2 . han) |
89143
7b8bd597892a
(charset-script-alist): Fix script names.
Kenichi Handa <handa@m17n.org>
parents:
89127
diff
changeset
|
631 (korean-ksc5601 . hangul) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
632 (chinese-sisheng . bopomofo) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
633 (vietnamese-viscii-lower . latin) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
634 (vietnamese-viscii-upper . latin) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
635 (arabic-digit . arabic) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
636 (arabic-1-column . arabic) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
637 (arabic-2-column . arabic) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
638 (indian-is13194 . devanagari) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
639 (indian-glyph . devanagari) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
640 (indian-1-column . devanagari) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
641 (indian-2-column . devanagari) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
642 (tibetan-1-column . tibetan)) |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
643 "Alist of charsets vs the corresponding most appropriate scripts. |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
644 |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
645 This alist is used by the function `create-fontset-from-fontset-spec' |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
646 to map charsets to scripts.") |
49287
5cb7e7103296
Don't setup the default fontset and
Kenichi Handa <handa@m17n.org>
parents:
47711
diff
changeset
|
647 |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
648 (defun create-fontset-from-fontset-spec (fontset-spec |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
649 &optional style-variant noerror) |
17052 | 650 "Create a fontset from fontset specification string FONTSET-SPEC. |
651 FONTSET-SPEC is a string of the format: | |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
652 FONTSET-NAME,SCRIPT-NAME0:FONT-NAME0,SCRIPT-NAME1:FONT-NAME1, ... |
17755
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
653 Any number of SPACE, TAB, and NEWLINE can be put before and after commas. |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
654 |
89357
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
655 When a frame uses the fontset as the `font' parameter, the frame's |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
656 default font name is derived from FONTSET-NAME by substituting |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
657 \"iso8859-1\" for the tail part \"fontset-XXX\". But, if SCRIPT-NAMEn |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
658 is \"ascii\", use the corresponding FONT-NAMEn as the default font |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
659 name. |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
660 |
89357
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
661 Optional 2nd and 3rd arguments are ignored. They exist just for |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
662 backward compatibility. |
22672
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
663 |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
664 It returns a name of the created fontset. |
22672
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
665 |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
666 For backward compatibility, SCRIPT-NAME may be a charset name, in |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
667 which case, the corresponding script is decided by the variable |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
668 `charset-script-alist' (which see)." |
89357
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
669 (or (string-match "^[^,]+" fontset-spec) |
17755
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
670 (error "Invalid fontset spec: %s" fontset-spec)) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
671 (let ((idx (match-end 0)) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
672 (name (match-string 0 fontset-spec)) |
90344
d4661241b1fa
(create-fontset-from-fontset-spec): Fix
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
673 xlfd-fields target script fontlist) |
89357
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
674 (setq xlfd-fields (x-decompose-font-name name)) |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
675 (or xlfd-fields |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
676 (error "Fontset name \"%s\" not conforming to XLFD" name)) |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
677 |
89357
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
678 ;; At first, extract pairs of charset and fontname from FONTSET-SPEC. |
90348
c98f49021a42
(create-fontset-from-fontset-spec): Fix
Kenichi Handa <handa@m17n.org>
parents:
90344
diff
changeset
|
679 (while (string-match "[, \t\n]*\\([^:]+\\):[ \t]*\\([^,]+\\)" |
c98f49021a42
(create-fontset-from-fontset-spec): Fix
Kenichi Handa <handa@m17n.org>
parents:
90344
diff
changeset
|
680 fontset-spec idx) |
89357
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
681 (setq idx (match-end 0)) |
90344
d4661241b1fa
(create-fontset-from-fontset-spec): Fix
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
682 (setq target (intern (match-string 1 fontset-spec))) |
d4661241b1fa
(create-fontset-from-fontset-spec): Fix
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
683 (cond ((or (eq target 'ascii) |
d4661241b1fa
(create-fontset-from-fontset-spec): Fix
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
684 (memq target (char-table-extra-slot char-script-table 0)) |
d4661241b1fa
(create-fontset-from-fontset-spec): Fix
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
685 (setq script (cdr (assq script charset-script-alist)))) |
d4661241b1fa
(create-fontset-from-fontset-spec): Fix
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
686 (push (list script (match-string 2 fontset-spec)) fontlist)) |
d4661241b1fa
(create-fontset-from-fontset-spec): Fix
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
687 ((charsetp target) |
d4661241b1fa
(create-fontset-from-fontset-spec): Fix
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
688 (push (list target (match-string 2 fontset-spec)) fontlist)))) |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
689 |
89357
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
690 ;; Complement FONTLIST. |
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
691 (setq fontlist (x-complement-fontset-spec xlfd-fields fontlist)) |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
692 |
89357
8f8c7d4c2e6e
Enable the default fontset to use
Kenichi Handa <handa@m17n.org>
parents:
89325
diff
changeset
|
693 ;; Create a fontset. |
90344
d4661241b1fa
(create-fontset-from-fontset-spec): Fix
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
694 (new-fontset name (nreverse fontlist)))) |
22672
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
695 |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
696 (defun create-fontset-from-ascii-font (font &optional resolved-font |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
697 fontset-name) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
698 "Create a fontset from an ASCII font FONT. |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
699 |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
700 Optional 1st arg RESOLVED-FONT is a resolved name of FONT. If |
50581
4daf1ecf4381
(create-fontset-from-ascii-font): Doc fix.
John Paul Wallington <jpw@pobox.com>
parents:
50516
diff
changeset
|
701 omitted, `x-resolve-font-name' is called to get the resolved name. At |
89274 | 702 this time, if FONT is not available, an error is signaled. |
22672
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
703 |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
704 Optional 2nd arg FONTSET-NAME is a string to be used in |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
705 `<CHARSET_ENCODING>' fields of a new fontset name. If it is omitted, |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
706 an appropriate name is generated automatically. |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
707 |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
708 It returns a name of the created fontset." |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
709 (setq font (downcase font)) |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
710 (setq resolved-font |
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
711 (downcase (or resolved-font (x-resolve-font-name font)))) |
88405 | 712 (let ((xlfd (x-decompose-font-name resolved-font)) |
713 fontset) | |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
714 (if fontset-name |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
715 (setq fontset-name (downcase fontset-name)) |
89004
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
716 (if (query-fontset "fontset-startup") |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
717 (setq fontset-name |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
718 (subst-char-in-string |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
719 ?- ?_ (aref xlfd xlfd-regexp-registry-subnum) t)) |
fbd881940a45
(fontset-plain-name): If the fontset
Kenichi Handa <handa@m17n.org>
parents:
88893
diff
changeset
|
720 (setq fontset-name "startup"))) |
88405 | 721 (aset xlfd xlfd-regexp-registry-subnum |
722 (format "fontset-%s" fontset-name)) | |
22672
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
723 (setq fontset (x-compose-font-name xlfd)) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
724 (or (query-fontset fontset) |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
725 (create-fontset-from-fontset-spec (concat fontset ", ascii:" font))))) |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
726 |
17052 | 727 |
17842
cb1af8ead3df
(standard-fontset-spec): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
17755
diff
changeset
|
728 ;; Create standard fontset from 16 dots fonts which are the most widely |
17989
8a264cfe3768
(x-complement-fontset-spec): Add font names which are
Kenichi Handa <handa@m17n.org>
parents:
17842
diff
changeset
|
729 ;; installed fonts. Fonts for Chinese-GB, Korean, and Chinese-CNS are |
8a264cfe3768
(x-complement-fontset-spec): Add font names which are
Kenichi Handa <handa@m17n.org>
parents:
17842
diff
changeset
|
730 ;; specified here because FAMILY of those fonts are not "fixed" in |
8a264cfe3768
(x-complement-fontset-spec): Add font names which are
Kenichi Handa <handa@m17n.org>
parents:
17842
diff
changeset
|
731 ;; many cases. |
17842
cb1af8ead3df
(standard-fontset-spec): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
17755
diff
changeset
|
732 (defvar standard-fontset-spec |
88405 | 733 (purecopy "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-standard") |
17842
cb1af8ead3df
(standard-fontset-spec): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
17755
diff
changeset
|
734 "String of fontset spec of the standard fontset. |
cb1af8ead3df
(standard-fontset-spec): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
17755
diff
changeset
|
735 You have the biggest chance to display international characters |
cb1af8ead3df
(standard-fontset-spec): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
17755
diff
changeset
|
736 with correct glyphs by using the standard fontset. |
17052 | 737 See the documentation of `create-fontset-from-fontset-spec' for the format.") |
738 | |
88893
86354924a790
Setup the default fontset by the new
Kenichi Handa <handa@m17n.org>
parents:
88694
diff
changeset
|
739 |
17052 | 740 ;; Create fontsets from X resources of the name `fontset-N (class |
741 ;; Fontset-N)' where N is integer 0, 1, ... | |
742 ;; The values of the resources the string of the same format as | |
17842
cb1af8ead3df
(standard-fontset-spec): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
17755
diff
changeset
|
743 ;; `standard-fontset-spec'. |
17052 | 744 |
745 (defun create-fontset-from-x-resource () | |
746 (let ((idx 0) | |
747 fontset-spec) | |
27534
eeb998860456
(standard-fontset-spec): Purecopy it.
Dave Love <fx@gnu.org>
parents:
26886
diff
changeset
|
748 (while (setq fontset-spec (x-get-resource (format "fontset-%d" idx) |
eeb998860456
(standard-fontset-spec): Purecopy it.
Dave Love <fx@gnu.org>
parents:
26886
diff
changeset
|
749 (format "Fontset-%d" idx))) |
90348
c98f49021a42
(create-fontset-from-fontset-spec): Fix
Kenichi Handa <handa@m17n.org>
parents:
90344
diff
changeset
|
750 (message "%s" fontset-spec) |
24153
729affdf2ca1
(create-fontset-from-x-resource): Make style variants.
Kenichi Handa <handa@m17n.org>
parents:
23890
diff
changeset
|
751 (create-fontset-from-fontset-spec fontset-spec t 'noerror) |
17052 | 752 (setq idx (1+ idx))))) |
753 | |
754 ;; | |
755 (provide 'fontset) | |
756 | |
52401 | 757 ;;; arch-tag: bb53e629-0234-403c-950e-551e61554849 |
17052 | 758 ;;; fontset.el ends here |