Mercurial > emacs
annotate lisp/international/fontset.el @ 88436:29c4241b5418
*** empty log message ***
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 05 Mar 2002 01:07:22 +0000 |
parents | 8ae0d0693ed9 |
children | 76fc6c1146aa |
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 |
18377
8b4a66c66dd6
Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents:
18350
diff
changeset
|
3 ;; Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN. |
8b4a66c66dd6
Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents:
18350
diff
changeset
|
4 ;; Licensed to the Free Software Foundation. |
40250
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
5 ;; Copyright (C) 2001 Free Software Foundation, Inc. |
17052 | 6 |
7 ;; Keywords: mule, multilingual, fontset | |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
17071 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
17052 | 25 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36368
diff
changeset
|
26 ;;; Commentary: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36368
diff
changeset
|
27 |
17052 | 28 ;;; Code: |
29 | |
29234
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
30 ;; Set standard fontname specification of characters in the default |
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
31 ;; fontset to find an appropriate font for each charset. This is used |
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
32 ;; to generate a font name for a fontset if the fontset doesn't |
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
33 ;; specify a font name for a specific character. The specification |
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
34 ;; has the form (FAMILY . REGISTRY). FAMILY may be nil, in which |
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
35 ;; case, the family name of default face is used. If REGISTRY |
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
36 ;; 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
|
37 ;; `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
|
38 ;; `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
|
39 ;; string is embedded in `CHARSET_REGISTRY' field, and a wild card |
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
40 ;; character `*' is embedded in `CHARSET_ENCODING' field. The |
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
41 ;; REGISTRY for ASCII characters are predefined as "ISO8859-1". |
17052 | 42 |
42072
9f1fa0a02eb3
Build the list L at compile time.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41467
diff
changeset
|
43 (let ((l |
9f1fa0a02eb3
Build the list L at compile time.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41467
diff
changeset
|
44 ;; Eval this at compile-time, since fontset.el is always loaded |
9f1fa0a02eb3
Build the list L at compile time.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41467
diff
changeset
|
45 ;; when run under X and this would always load ind-util.el as well. |
9f1fa0a02eb3
Build the list L at compile time.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41467
diff
changeset
|
46 (eval-when-compile |
88405 | 47 `((ascii . (nil . "ISO8859-1")) |
48 (iso-8859-1 . (nil . "ISO8859-1")) | |
49 (iso-8859-2 . (nil . "ISO8859-2")) | |
50 (iso-8859-3 . (nil . "ISO8859-3")) | |
51 (iso-8859-4 . (nil . "ISO8859-4")) | |
52 (tis620-2533 . (nil . "TIS620*")) | |
53 (iso-8859-7 . (nil . "ISO8859-7")) | |
54 (iso-8859-6 . (nil . "ISO8859-6")) | |
55 (iso-8859-8 . (nil . "ISO8859-8")) | |
56 (iso-8859-5 . (nil . "ISO8859-5")) | |
57 (iso-8859-9 . (nil . "ISO8859-9")) | |
58 (iso-8859-14 . (nil . "ISO8859-14")) | |
59 (iso-8859-15 . (nil . "ISO8859-15")) | |
60 (chinese-gb2312 . (nil . "GB2312.1980*")) | |
61 (japanese-jisx0208 . (nil . "JISX0208.1990*")) | |
62 (korean-ksc5601 . (nil . "KSC5601.1987*")) | |
63 (japanese-jisx0212 . (nil . "JISX0212*")) | |
64 (big5 . (nil . "Big5")) | |
65 (chinese-cns11643-1 . (nil . "CNS11643.1992-1")) | |
66 (chinese-cns11643-2 . (nil . "CNS11643.1992-2")) | |
67 (chinese-cns11643-3 . (nil . "CNS11643.1992-3")) | |
68 (chinese-cns11643-4 . (nil . "CNS11643.1992-4")) | |
69 (chinese-cns11643-5 . (nil . "CNS11643.1992-5")) | |
70 (chinese-cns11643-6 . (nil . "CNS11643.1992-6")) | |
71 (chinese-cns11643-7 . (nil . "CNS11643.1992-7")) | |
29234
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
72 (chinese-sisheng . (nil . "sisheng_cwnn")) |
88405 | 73 (viscii . (nil . "VISCII1.1*")) |
74 (arabic-digit . (nil . "MuleArabic-0")) | |
75 (arabic-1-column . (nil . "MuleArabic-1")) | |
76 (arabic-2-column . (nil . "MuleArabic-2")) | |
29234
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
77 (ipa . (nil . "MuleIPA")) |
88405 | 78 (ethiopic . (nil . "Ethiopic-Unicode")) |
79 (indian-is13194 . (nil . "IS13194-Devanagari")) | |
80 (indian-2-column . (nil . "MuleIndian-2")) | |
81 (mule-lao . (nil . "MuleLao-1")) | |
32646
43edadfecb51
Use registry "MuleTibetan-2" for Tibetan.
Kenichi Handa <handa@m17n.org>
parents:
29427
diff
changeset
|
82 (tibetan . ("proportional" . "MuleTibetan-2")) |
88405 | 83 (tibetan-1-column . (nil . "MuleTibetan-1")) |
84 (jisx0201 . (nil . "JISX0201*")) | |
85 (japanese-jisx0208-1978 . (nil . "JISX0208.1978*")) | |
86 (japanese-jisx0213-1 . (nil . "JISX0213.2000-1")) | |
87 (japanese-jisx0213-2 . (nil . "JISX0213.2000-2")) | |
41467
55c3397b3029
Delete the setting for indian-1-column
Richard M. Stallman <rms@gnu.org>
parents:
40250
diff
changeset
|
88 ;; unicode |
55c3397b3029
Delete the setting for indian-1-column
Richard M. Stallman <rms@gnu.org>
parents:
40250
diff
changeset
|
89 ((,(decode-char 'ucs #x0900) |
88405 | 90 . ,(decode-char 'ucs #x097F)) . (nil . "ISO10646.indian-1")) |
41467
55c3397b3029
Delete the setting for indian-1-column
Richard M. Stallman <rms@gnu.org>
parents:
40250
diff
changeset
|
91 ;; indian |
88405 | 92 (indian-glyph . (nil . "Devanagari-CDAC")) |
41467
55c3397b3029
Delete the setting for indian-1-column
Richard M. Stallman <rms@gnu.org>
parents:
40250
diff
changeset
|
93 ((,(indian-glyph-char 0 'devanagari) |
88405 | 94 . ,(indian-glyph-char 255 'devanagari)) . (nil . "Devanagari-CDAC")) |
41467
55c3397b3029
Delete the setting for indian-1-column
Richard M. Stallman <rms@gnu.org>
parents:
40250
diff
changeset
|
95 ((,(indian-glyph-char 0 'sanskrit) |
88405 | 96 . ,(indian-glyph-char 255 'sanskrit)) . (nil . "Sanskrit-CDAC")) |
41467
55c3397b3029
Delete the setting for indian-1-column
Richard M. Stallman <rms@gnu.org>
parents:
40250
diff
changeset
|
97 ((,(indian-glyph-char 0 'bengali) |
88405 | 98 . ,(indian-glyph-char 255 'bengali)) . (nil . "Bengali-CDAC")) |
41467
55c3397b3029
Delete the setting for indian-1-column
Richard M. Stallman <rms@gnu.org>
parents:
40250
diff
changeset
|
99 ((,(indian-glyph-char 0 'assamese) |
88405 | 100 . ,(indian-glyph-char 255 'assamese)) . (nil . "Assamese-CDAC")) |
41467
55c3397b3029
Delete the setting for indian-1-column
Richard M. Stallman <rms@gnu.org>
parents:
40250
diff
changeset
|
101 ((,(indian-glyph-char 0 'punjabi) |
88405 | 102 . ,(indian-glyph-char 255 'punjabi)) . (nil . "Punjabi-CDAC")) |
41467
55c3397b3029
Delete the setting for indian-1-column
Richard M. Stallman <rms@gnu.org>
parents:
40250
diff
changeset
|
103 ((,(indian-glyph-char 0 'gujarati) |
88405 | 104 . ,(indian-glyph-char 255 'gujarati)) . (nil . "Gujarati-CDAC")) |
41467
55c3397b3029
Delete the setting for indian-1-column
Richard M. Stallman <rms@gnu.org>
parents:
40250
diff
changeset
|
105 ((,(indian-glyph-char 0 'oriya) |
88405 | 106 . ,(indian-glyph-char 255 'oriya)) . (nil . "Oriya-CDAC")) |
41467
55c3397b3029
Delete the setting for indian-1-column
Richard M. Stallman <rms@gnu.org>
parents:
40250
diff
changeset
|
107 ((,(indian-glyph-char 0 'tamil) |
88405 | 108 . ,(indian-glyph-char 255 'tamil)) . (nil . "Tamil-CDAC")) |
41467
55c3397b3029
Delete the setting for indian-1-column
Richard M. Stallman <rms@gnu.org>
parents:
40250
diff
changeset
|
109 ((,(indian-glyph-char 0 'telugu) |
88405 | 110 . ,(indian-glyph-char 255 'telugu)) . (nil . "Telugu-CDAC")) |
41467
55c3397b3029
Delete the setting for indian-1-column
Richard M. Stallman <rms@gnu.org>
parents:
40250
diff
changeset
|
111 ((,(indian-glyph-char 0 'kannada) |
88405 | 112 . ,(indian-glyph-char 255 'kannada)) . (nil . "Kannada-CDAC")) |
41467
55c3397b3029
Delete the setting for indian-1-column
Richard M. Stallman <rms@gnu.org>
parents:
40250
diff
changeset
|
113 ((,(indian-glyph-char 0 'malayalam) |
88405 | 114 . ,(indian-glyph-char 255 'malayalam)) . (nil . "Malayalam-CDAC")) |
42072
9f1fa0a02eb3
Build the list L at compile time.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41467
diff
changeset
|
115 ))) |
88405 | 116 charset font-spec) |
17052 | 117 (while l |
29234
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
118 (setq charset (car (car l)) font-spec (cdr (car l)) l (cdr l)) |
88405 | 119 (set-fontset-font "fontset-default" charset font-spec))) |
120 | |
121 (setq font-encoding-alist | |
122 '(("ISO8859-1" . iso-8859-1) | |
123 ("ISO8859-2" . iso-8859-2) | |
124 ("ISO8859-3" . iso-8859-3) | |
125 ("ISO8859-4" . iso-8859-4) | |
126 ("TIS620" . tis620-2533) | |
127 ("ISO8859-7" . iso-8859-7) | |
128 ("ISO8859-6" . iso-8859-6) | |
129 ("ISO8859-8" . iso-8859-8) | |
130 ("JISX0201" . jisx0201) | |
131 ("ISO8859-5" . iso-8859-5) | |
132 ("ISO8859-9" . iso-8859-9) | |
133 ("JISX0208.1978" . japanese-jisx0208-1978) | |
134 ("GB2312.1980" . chinese-gb2312) | |
135 ("JISX0208.1990" . japanese-jisx0208) | |
136 ("KSC5601.1987" . korean-ksc5601) | |
137 ("JISX0212" . japanese-jisx0212) | |
138 ("CNS11643.1992-1" . chinese-cns11643-1) | |
139 ("CNS11643.1992-2" . chinese-cns11643-2) | |
140 ("CNS11643.1992-3" . chinese-cns11643-3) | |
141 ("CNS11643.1992-4" . chinese-cns11643-4) | |
142 ("CNS11643.1992-5" . chinese-cns11643-5) | |
143 ("CNS11643.1992-6" . chinese-cns11643-6) | |
144 ("CNS11643.1992-7" . chinese-cns11643-7) | |
145 ("Big5" . big5) | |
146 ("sisheng_cwnn" . chinese-sisheng) | |
147 ("VISCII" . viscii) | |
148 ("MuleArabic-0" . arabic-digit) | |
149 ("MuleArabic-1" . arabic-1-column) | |
150 ("MuleArabic-2" . arabic-2-column) | |
151 ("MuleIPA" . ipa) | |
152 ("Ethiopic-Unicode" . ethiopic) | |
153 ("IS13194-Devanagari" . indian-is13194) | |
154 ("MuleIndian-2" . indian-2-column) | |
155 ("MuleIndian-1" . indian-1-column) | |
156 ("MuleLao-1" . mule-lao) | |
157 ("MuleTibetan-2" . tibetan) | |
158 ("MuleTibetan-1" . tibetan-1-column) | |
159 ("ISO8859-14" . iso-8859-14) | |
160 ("ISO8859-15" . iso-8859-15) | |
161 ("JISX0213.2000-1" . japanese-jisx0213-1) | |
162 ("JISX0213.2000-2" . japanese-jisx0213-2) | |
163 ("ISO10646-1" . unicode))) | |
17052 | 164 |
165 ;; Set arguments in `font-encoding-alist' (which see). | |
88405 | 166 (defun set-font-encoding (pattern charset) |
17052 | 167 (let ((slot (assoc pattern font-encoding-alist))) |
168 (if slot | |
88405 | 169 (setcdr slot charset) |
17052 | 170 (setq font-encoding-alist |
88405 | 171 (cons (cons pattern charset) font-encoding-alist))))) |
32646
43edadfecb51
Use registry "MuleTibetan-2" for Tibetan.
Kenichi Handa <handa@m17n.org>
parents:
29427
diff
changeset
|
172 |
17052 | 173 ;; Setting for suppressing XLoadQueryFont on big fonts. |
174 (setq x-pixel-size-width-font-regexp | |
175 "gb2312\\|jisx0208\\|ksc5601\\|cns11643\\|big5") | |
176 | |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
177 ;; These fonts require vertical centering. |
26886
8a6d8101919e
(vertical-centering-font-regexp): New
Kenichi Handa <handa@m17n.org>
parents:
26013
diff
changeset
|
178 (setq vertical-centering-font-regexp |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
179 "gb2312\\|jisx0208\\|jisx0212\\|ksc5601\\|cns11643\\|big5") |
26886
8a6d8101919e
(vertical-centering-font-regexp): New
Kenichi Handa <handa@m17n.org>
parents:
26013
diff
changeset
|
180 |
88405 | 181 (defvar x-font-name-charset-alist nil |
182 "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
|
183 |
17052 | 184 ;;; XLFD (X Logical Font Description) format handler. |
185 | |
186 ;; Define XLFD's field index numbers. ; field name | |
88405 | 187 (defconst xlfd-regexp-family-subnum 0) ; FOUNDRY and FAMILY |
188 (defconst xlfd-regexp-weight-subnum 1) ; WEIGHT_NAME | |
189 (defconst xlfd-regexp-slant-subnum 2) ; SLANT | |
190 (defconst xlfd-regexp-swidth-subnum 3) ; SETWIDTH_NAME | |
191 (defconst xlfd-regexp-adstyle-subnum 4) ; ADD_STYLE_NAME | |
192 (defconst xlfd-regexp-pixelsize-subnum 5) ; PIXEL_SIZE | |
193 (defconst xlfd-regexp-pointsize-subnum 6) ; POINT_SIZE | |
194 (defconst xlfd-regexp-resx-subnum 7) ; RESOLUTION_X | |
195 (defconst xlfd-regexp-resy-subnum 8) ; RESOLUTION_Y | |
196 (defconst xlfd-regexp-spacing-subnum 8) ; SPACING | |
197 (defconst xlfd-regexp-avgwidth-subnum 10) ; AVERAGE_WIDTH | |
198 (defconst xlfd-regexp-registry-subnum 11) ; REGISTRY and ENCODING | |
17052 | 199 |
200 ;; Regular expression matching against a fontname which conforms to | |
201 ;; XLFD (X Logical Font Description). All fields in XLFD should be | |
202 ;; not be omitted (but can be a wild card) to be matched. | |
203 (defconst xlfd-tight-regexp | |
204 "^\ | |
88405 | 205 -\\([^-]*-[^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)\ |
17052 | 206 -\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)\ |
88405 | 207 -\\([^-]*\\)-\\([^-]*\\)-\\([^-]*-[^-]*\\)$") |
208 | |
209 ;; Regular expression matching against a fontname which conforms to | |
210 ;; XLFD (X Logical Font Description). All fields in XLFD from FOUNDRY | |
211 ;; to ADSTYLE, REGSITRY, and ENCODING should be not be omitted (but | |
212 ;; can be a wild card) to be matched. | |
213 (defconst xlfd-style-regexp | |
214 "^\ | |
215 -\\([^-]*-[^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-.*\ | |
216 -\\([^-]*-[^-]*\\)$") | |
17052 | 217 |
218 ;; List of field numbers of XLFD whose values are numeric. | |
219 (defconst xlfd-regexp-numeric-subnums | |
88405 | 220 (list xlfd-regexp-pixelsize-subnum ;5 |
221 xlfd-regexp-pointsize-subnum ;6 | |
222 xlfd-regexp-resx-subnum ;7 | |
223 xlfd-regexp-resy-subnum ;8 | |
224 xlfd-regexp-avgwidth-subnum ;10 | |
17052 | 225 )) |
226 | |
227 (defun x-decompose-font-name (pattern) | |
228 "Decompose PATTERN into XLFD's fields and return vector of the fields. | |
88405 | 229 The length of the vector is 12. |
17052 | 230 |
231 If PATTERN doesn't conform to XLFD, try to get a full XLFD name from | |
232 X server and use the information of the full name to decompose | |
233 PATTERN. If no full XLFD name is gotten, return nil." | |
234 (let (xlfd-fields fontname) | |
235 (if (string-match xlfd-tight-regexp pattern) | |
88405 | 236 (progn |
237 (setq xlfd-fields (make-vector 12 nil)) | |
238 (dotimes (i 12) | |
239 (aset xlfd-fields i (match-string (1+ i) pattern))) | |
240 (dotimes (i 12) | |
241 (if (string-match "^[*-]+$" (aref xlfd-fields i)) | |
242 (aset xlfd-fields i nil))) | |
17052 | 243 xlfd-fields) |
244 (setq fontname (condition-case nil | |
245 (x-resolve-font-name pattern) | |
246 (error))) | |
247 (if (and fontname | |
248 (string-match xlfd-tight-regexp fontname)) | |
23890
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
249 ;; We get a full XLFD name. |
17052 | 250 (let ((len (length pattern)) |
251 (i 0) | |
252 l) | |
23890
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
253 ;; Setup xlfd-fields by the full XLFD name. Each element |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
254 ;; should be a cons of matched index and matched string. |
88405 | 255 (setq xlfd-fields (make-vector 12 nil)) |
256 (dotimes (i 12) | |
17052 | 257 (aset xlfd-fields i |
258 (cons (match-beginning (1+ i)) | |
88405 | 259 (match-string (1+ i) fontname)))) |
23890
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
260 |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
261 ;; Replace wild cards in PATTERN by regexp codes. |
17052 | 262 (setq i 0) |
263 (while (< i len) | |
264 (let ((ch (aref pattern i))) | |
265 (if (= ch ??) | |
266 (setq pattern (concat (substring pattern 0 i) | |
267 "\\(.\\)" | |
268 (substring pattern (1+ i))) | |
269 len (+ len 4) | |
270 i (+ i 4)) | |
271 (if (= ch ?*) | |
272 (setq pattern (concat (substring pattern 0 i) | |
273 "\\(.*\\)" | |
274 (substring pattern (1+ i))) | |
275 len (+ len 5) | |
276 i (+ i 5)) | |
277 (setq i (1+ i)))))) | |
23890
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
278 |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
279 ;; Set each element of xlfd-fields to proper strings. |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
280 (if (string-match pattern fontname) |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
281 ;; The regular expression PATTERN matchs the full XLFD |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
282 ;; name. Set elements that correspond to a wild card |
88405 | 283 ;; in PATTERN to nil, set the other elements to the |
23890
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
284 ;; exact strings in PATTERN. |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
285 (let ((l (cdr (cdr (match-data))))) |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
286 (setq i 0) |
88405 | 287 (while (< i 12) |
23890
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
288 (if (or (null l) (< (car (aref xlfd-fields i)) (car l))) |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
289 (progn |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
290 (aset xlfd-fields i (cdr (aref xlfd-fields i))) |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
291 (setq i (1+ i))) |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
292 (if (< (car (aref xlfd-fields i)) (car (cdr l))) |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
293 (progn |
88405 | 294 (aset xlfd-fields i nil) |
23890
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
295 (setq i (1+ i))) |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
296 (setq l (cdr (cdr l))))))) |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
297 ;; Set each element of xlfd-fields to the exact string |
fa4839661777
(x-decompose-font-name): If PATTERN
Kenichi Handa <handa@m17n.org>
parents:
23655
diff
changeset
|
298 ;; in the corresonding fields in full XLFD name. |
88405 | 299 (dotimes (i 12) |
300 (aset xlfd-fields i (cdr (aref xlfd-fields i))))) | |
17052 | 301 xlfd-fields))))) |
302 | |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
303 (defun x-compose-font-name (fields &optional reduce) |
17052 | 304 "Compose X's fontname from FIELDS. |
88405 | 305 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
|
306 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
|
307 Optional argument REDUCE is always ignored. It exists just for |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
308 backward compatibility." |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
309 (concat "-" (mapconcat (lambda (x) (or x "*")) fields "-"))) |
23205
22df54cdb841
(resolved-ascii-font): New variable.
Kenichi Handa <handa@m17n.org>
parents:
23196
diff
changeset
|
310 |
40250
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
311 (defun x-must-resolve-font-name (xlfd-fields) |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
312 "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
|
313 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
|
314 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
|
315 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
|
316 Value is name of that font." |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
317 (let ((ascii-font nil) (index 0)) |
88405 | 318 (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
|
319 (let ((pattern (x-compose-font-name xlfd-fields))) |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
320 (condition-case nil |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
321 (setq ascii-font (x-resolve-font-name pattern)) |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
322 (error |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
323 (message "Warning: no fonts matching `%s' available" pattern) |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
324 (aset xlfd-fields index "*") |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
325 (setq index (1+ index)))))) |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
326 (unless ascii-font |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
327 (error "No fonts founds")) |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
328 ascii-font)) |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
329 |
4f3033e5b688
(x-must-resolve-font-name): New
Gerd Moellmann <gerd@gnu.org>
parents:
38414
diff
changeset
|
330 |
17052 | 331 (defun x-complement-fontset-spec (xlfd-fields fontlist) |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
332 "Complement FONTLIST for charsets based on XLFD-FIELDS and return it. |
17052 | 333 XLFD-FIELDS is a vector of XLFD (X Logical Font Description) fields. |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
334 FONTLIST is an alist of charsets vs the corresponding font names. |
17052 | 335 |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
336 The fonts are complemented as below. |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
337 |
88405 | 338 At first, if FONTLIST doesn't specify a font for ASCII charset, |
339 generate a font name for the charset from XLFD-FIELDS, and add that | |
340 information to FONTLIST. | |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
341 |
88405 | 342 Then, replace font names with the corresponding XLFD field vectors |
343 while substituting default field names for wild cards if they match | |
344 `xlfd-style-regexp'. The default field names are decided by | |
345 XLFD-FIELDS." | |
346 (let* ((default-spec (vector (aref xlfd-fields xlfd-regexp-family-subnum) | |
347 (aref xlfd-fields xlfd-regexp-weight-subnum) | |
348 (aref xlfd-fields xlfd-regexp-slant-subnum) | |
349 (aref xlfd-fields xlfd-regexp-swidth-subnum) | |
350 (aref xlfd-fields xlfd-regexp-adstyle-subnum) | |
351 (aref xlfd-fields xlfd-regexp-registry-subnum))) | |
352 (slot (assq 'ascii fontlist)) | |
36368
dbd54e46ee03
(x-complement-fontset-spec): In the
Kenichi Handa <handa@m17n.org>
parents:
34917
diff
changeset
|
353 (ascii-font (cdr slot)) |
88405 | 354 xlfd-ascii) |
34917
989f2f0c8a7e
(x-complement-fontset-spec): Resolve
Kenichi Handa <handa@m17n.org>
parents:
34245
diff
changeset
|
355 (if ascii-font |
88405 | 356 (progn |
357 (setcdr slot (setq ascii-font (x-resolve-font-name ascii-font))) | |
358 (setq xlfd-ascii (x-decompose-font-name ascii-font)) | |
359 (dotimes (i 11) | |
360 (or (aref xlfd-fields i) | |
361 (aset xlfd-fields i (aref xlfd-ascii i))))) | |
34917
989f2f0c8a7e
(x-complement-fontset-spec): Resolve
Kenichi Handa <handa@m17n.org>
parents:
34245
diff
changeset
|
362 ;; If font for ASCII is not specified, add it. |
88405 | 363 (setq xlfd-ascii (copy-sequence xlfd-fields)) |
364 (aset xlfd-ascii xlfd-regexp-registry-subnum "iso8859-1") | |
365 (setq ascii-font (x-must-resolve-font-name xlfd-ascii)) | |
29234
c9a5f356fe77
Set family names of non-latin charsets in default fontset to "*".
Kenichi Handa <handa@m17n.org>
parents:
29168
diff
changeset
|
366 (setq fontlist (cons (cons 'ascii ascii-font) fontlist))) |
18350
3f4364889538
(x-charset-registries): Name changed for consistency:
Kenichi Handa <handa@m17n.org>
parents:
17989
diff
changeset
|
367 |
88405 | 368 (dolist (elt fontlist) |
369 (let ((name (cdr elt)) | |
370 font-spec) | |
371 (when (string-match xlfd-style-regexp name) | |
372 (setq font-spec (make-vector 6 nil)) | |
373 (dotimes (i 6) | |
374 (aset font-spec i (match-string (1+ i) name))) | |
375 (dotimes (i 6) | |
376 (if (string-match "^[*-]+$" (aref font-spec i)) | |
377 (aset font-spec i (aref default-spec i)))) | |
378 (setcdr elt font-spec)))) | |
379 | |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
380 fontlist)) |
17052 | 381 |
19049
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
382 (defun fontset-name-p (fontset) |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
383 "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
|
384 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
|
385 with \"fontset\" in `<CHARSET_REGISTRY> field." |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
386 (and (string-match xlfd-tight-regexp fontset) |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
387 (string= (match-string (1+ xlfd-regexp-registry-subnum) fontset) |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
388 "fontset"))) |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
389 |
17052 | 390 ;; Return a list to be appended to `x-fixed-font-alist' when |
391 ;; `mouse-set-font' is called. | |
392 (defun generate-fontset-menu () | |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
393 (let ((fontsets (fontset-list)) |
17052 | 394 fontset-name |
395 l) | |
396 (while fontsets | |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
397 (setq fontset-name (car fontsets) fontsets (cdr fontsets)) |
17755
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
398 (setq l (cons (list (fontset-plain-name fontset-name) fontset-name) l))) |
24160
ab814ec4995e
(generate-fontset-menu): Return a
Kenichi Handa <handa@m17n.org>
parents:
24153
diff
changeset
|
399 (cons "Fontset" |
ab814ec4995e
(generate-fontset-menu): Return a
Kenichi Handa <handa@m17n.org>
parents:
24153
diff
changeset
|
400 (sort l (function (lambda (x y) (string< (car x) (car y)))))))) |
17052 | 401 |
402 (defun fontset-plain-name (fontset) | |
403 "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
|
404 (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
|
405 (error "Invalid fontset: %s" fontset)) |
17052 | 406 (let ((xlfd-fields (x-decompose-font-name fontset))) |
407 (if xlfd-fields | |
408 (let ((weight (aref xlfd-fields xlfd-regexp-weight-subnum)) | |
409 (slant (aref xlfd-fields xlfd-regexp-slant-subnum)) | |
410 (swidth (aref xlfd-fields xlfd-regexp-swidth-subnum)) | |
411 (size (aref xlfd-fields xlfd-regexp-pixelsize-subnum)) | |
88405 | 412 (nickname (aref xlfd-fields xlfd-regexp-registry-subnum)) |
17052 | 413 name) |
88405 | 414 (if (not (string-match "^fontset-\\(.*\\)$" nickname)) |
17052 | 415 fontset |
88405 | 416 (setq nickname (match-string 1 nickname)) |
17755
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
417 (if (> (string-to-int size) 0) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
418 (setq name (format "%s: %s-dot" nickname size)) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
419 (setq name nickname)) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
420 (cond ((string-match "^medium$" weight) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
421 (setq name (concat name " " "medium"))) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
422 ((string-match "^bold$\\|^demibold$" weight) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
423 (setq name (concat name " " weight)))) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
424 (cond ((string-match "^i$" slant) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
425 (setq name (concat name " " "italic"))) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
426 ((string-match "^o$" slant) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
427 (setq name (concat name " " "slant"))) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
428 ((string-match "^ri$" slant) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
429 (setq name (concat name " " "reverse italic"))) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
430 ((string-match "^ro$" slant) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
431 (setq name (concat name " " "reverse slant")))) |
17052 | 432 name)) |
433 fontset))) | |
434 | |
22128
8f7a59fc78db
(create-fontset-from-fontset-spec): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
19771
diff
changeset
|
435 ;;;###autoload |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
436 (defun create-fontset-from-fontset-spec (fontset-spec |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
437 &optional style-variant noerror) |
17052 | 438 "Create a fontset from fontset specification string FONTSET-SPEC. |
439 FONTSET-SPEC is a string of the format: | |
440 FONTSET-NAME,CHARSET-NAME0:FONT-NAME0,CHARSET-NAME1:FONT-NAME1, ... | |
17755
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
441 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
|
442 |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
443 Optional 2nd argument is ignored. It exists just for backward |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
444 compatibility. |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
445 |
18719
de8249499f33
(create-fontset-from-fontset-spec): Typo in doc-string fixed.
Kenichi Handa <handa@m17n.org>
parents:
18714
diff
changeset
|
446 If this function attempts to create already existing fontset, error is |
22672
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
447 signaled unless the optional 3rd argument NOERROR is non-nil. |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
448 |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
449 It returns a name of the created fontset." |
17755
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
450 (if (not (string-match "^[^,]+" fontset-spec)) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
451 (error "Invalid fontset spec: %s" fontset-spec)) |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
452 (setq fontset-spec (downcase fontset-spec)) |
17755
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
453 (let ((idx (match-end 0)) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
454 (name (match-string 0 fontset-spec)) |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
455 xlfd-fields charset fontlist ascii-font) |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
456 (if (query-fontset name) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
457 (or noerror |
23655
8aa7d51024b2
(create-fontset-from-fontset-spec): Give correct arg to `error'.
Kenichi Handa <handa@m17n.org>
parents:
23205
diff
changeset
|
458 (error "Fontset \"%s\" already exists" name)) |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
459 (setq xlfd-fields (x-decompose-font-name name)) |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
460 (or xlfd-fields |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
461 (error "Fontset \"%s\" not conforming to XLFD" name)) |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
462 |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
463 ;; At first, extract pairs of charset and fontname from FONTSET-SPEC. |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
464 (while (string-match "[, \t\n]*\\([^:]+\\):\\([^,]+\\)" fontset-spec idx) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
465 (setq idx (match-end 0)) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
466 (setq charset (intern (match-string 1 fontset-spec))) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
467 (if (charsetp charset) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
468 (setq fontlist (cons (cons charset (match-string 2 fontset-spec)) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
469 fontlist)))) |
34917
989f2f0c8a7e
(x-complement-fontset-spec): Resolve
Kenichi Handa <handa@m17n.org>
parents:
34245
diff
changeset
|
470 (setq ascii-font (cdr (assq 'ascii fontlist))) |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
471 |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
472 ;; Complement FONTLIST. |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
473 (setq fontlist (x-complement-fontset-spec xlfd-fields fontlist)) |
88405 | 474 (setq name (x-compose-font-name xlfd-fields)) |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
475 (new-fontset name fontlist) |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
476 |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
477 ;; Define the short name alias. |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
478 (if (and (string-match "fontset-.*$" name) |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
479 (not (assoc name fontset-alias-alist))) |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
480 (let ((alias (match-string 0 name))) |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
481 (or (rassoc alias fontset-alias-alist) |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
482 (setq fontset-alias-alist |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
483 (cons (cons name alias) fontset-alias-alist))))) |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
484 |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
485 ;; Define the ASCII font name alias. |
34917
989f2f0c8a7e
(x-complement-fontset-spec): Resolve
Kenichi Handa <handa@m17n.org>
parents:
34245
diff
changeset
|
486 (or ascii-font |
989f2f0c8a7e
(x-complement-fontset-spec): Resolve
Kenichi Handa <handa@m17n.org>
parents:
34245
diff
changeset
|
487 (setq ascii-font (cdr (assq 'ascii fontlist)))) |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
488 (or (rassoc ascii-font fontset-alias-alist) |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
489 (setq fontset-alias-alist |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
490 (cons (cons name ascii-font) |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
491 fontset-alias-alist)))) |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
492 |
22672
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
493 name)) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
494 |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
495 (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
|
496 fontset-name) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
497 "Create a fontset from an ASCII font FONT. |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
498 |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
499 Optional 1st arg RESOLVED-FONT is a resolved name of FONT. If |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
500 omitted, x-resolve-font-name is called to get the resolved name. At |
22720
ab4f30149aa0
(x-complement-fontset-spec): Typo fixed.
Kenichi Handa <handa@m17n.org>
parents:
22672
diff
changeset
|
501 this time, if FONT is not available, error is signaled. |
22672
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
502 |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
503 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
|
504 `<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
|
505 an appropriate name is generated automatically. |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
506 |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
507 It returns a name of the created fontset." |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
508 (setq font (downcase font)) |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
509 (if resolved-font |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
510 (setq resolved-font (downcase resolved-font)) |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
511 (setq resolved-font (downcase (x-resolve-font-name font)))) |
88405 | 512 (let ((xlfd (x-decompose-font-name resolved-font)) |
513 fontset) | |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
514 (if fontset-name |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
515 (setq fontset-name (downcase fontset-name)) |
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
516 (setq fontset-name |
88405 | 517 (subst-char-in-string |
518 "-" "_" (aref xlfd xlfd-regexp-registry-subnum) t))) | |
519 (aset xlfd xlfd-regexp-registry-subnum | |
520 (format "fontset-%s" fontset-name)) | |
22672
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
521 (setq fontset (x-compose-font-name xlfd)) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
522 (or (query-fontset fontset) |
28215
ceaded4c2cb9
(x-charset-registries): Variable
Kenichi Handa <handa@m17n.org>
parents:
27534
diff
changeset
|
523 (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
|
524 |
17052 | 525 |
17842
cb1af8ead3df
(standard-fontset-spec): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
17755
diff
changeset
|
526 ;; 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
|
527 ;; 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
|
528 ;; 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
|
529 ;; many cases. |
17842
cb1af8ead3df
(standard-fontset-spec): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
17755
diff
changeset
|
530 (defvar standard-fontset-spec |
88405 | 531 (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
|
532 "String of fontset spec of the standard fontset. |
cb1af8ead3df
(standard-fontset-spec): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
17755
diff
changeset
|
533 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
|
534 with correct glyphs by using the standard fontset. |
17052 | 535 See the documentation of `create-fontset-from-fontset-spec' for the format.") |
536 | |
537 ;; Create fontsets from X resources of the name `fontset-N (class | |
538 ;; Fontset-N)' where N is integer 0, 1, ... | |
539 ;; 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
|
540 ;; `standard-fontset-spec'. |
17052 | 541 |
542 (defun create-fontset-from-x-resource () | |
543 (let ((idx 0) | |
544 fontset-spec) | |
27534
eeb998860456
(standard-fontset-spec): Purecopy it.
Dave Love <fx@gnu.org>
parents:
26886
diff
changeset
|
545 (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
|
546 (format "Fontset-%d" idx))) |
24153
729affdf2ca1
(create-fontset-from-x-resource): Make style variants.
Kenichi Handa <handa@m17n.org>
parents:
23890
diff
changeset
|
547 (create-fontset-from-fontset-spec fontset-spec t 'noerror) |
17052 | 548 (setq idx (1+ idx))))) |
549 | |
550 ;; | |
551 (provide 'fontset) | |
552 | |
553 ;;; fontset.el ends here |