Mercurial > emacs
annotate lisp/international/fontset.el @ 23192:1ea9db09a678
(checkdoc-buffer-label): New function.
(checkdoc-start-section, checkdoc-error): Use `checkdoc-buffer-label'.
(checkdoc-this-string-valid-engine): Permit ? as terminating
punctuation for first line sentence breaking.
(checkdoc-this-string-valid): When converting a comment into a doc
string, make sure " chars are \".
(checkdoc-sentencespace-region-engine): Only do double space check
if based on the variable `sentence-end-double-space'
author | Eric M. Ludlam <zappo@gnu.org> |
---|---|
date | Sat, 05 Sep 1998 13:46:23 +0000 |
parents | 55a8313019f3 |
children | 30beacf88b75 |
rev | line source |
---|---|
17052 | 1 ;;; fontset.el --- Commands for handling fontset. |
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. |
17052 | 5 |
6 ;; Keywords: mule, multilingual, fontset | |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
17071 | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
17052 | 24 |
25 ;;; Code: | |
26 | |
17842
cb1af8ead3df
(standard-fontset-spec): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
17755
diff
changeset
|
27 ;; Set standard REGISTRY property of charset to find an appropriate |
17052 | 28 ;; font for each charset. This is used to generate a font name in a |
29 ;; fontset. If the value contains a character `-', the string before | |
30 ;; that is embeded in `CHARSET_REGISTRY' field, and the string after | |
31 ;; that is embeded in `CHARSET_ENCODING' field. If the value does not | |
32 ;; contain `-', the whole string is embeded in `CHARSET_REGISTRY' | |
33 ;; field, and a wild card character `*' is embeded in | |
34 ;; `CHARSET_ENCODING' field. | |
35 | |
36 (defvar x-charset-registries | |
37 '((ascii . "ISO8859-1") | |
38 (latin-iso8859-1 . "ISO8859-1") | |
39 (latin-iso8859-2 . "ISO8859-2") | |
40 (latin-iso8859-3 . "ISO8859-3") | |
41 (latin-iso8859-4 . "ISO8859-4") | |
42 (thai-tis620 . "TIS620") | |
43 (greek-iso8859-7 . "ISO8859-7") | |
44 (arabic-iso8859-6 . "ISO8859-6") | |
45 (hebrew-iso8859-8 . "ISO8859-8") | |
46 (katakana-jisx0201 . "JISX0201") | |
47 (latin-jisx0201 . "JISX0201") | |
48 (cyrillic-iso8859-5 . "ISO8859-5") | |
49 (latin-iso8859-9 . "ISO8859-9") | |
50 (japanese-jisx0208-1978 . "JISX0208.1978") | |
51 (chinese-gb2312 . "GB2312") | |
52 (japanese-jisx0208 . "JISX0208.1983") | |
53 (korean-ksc5601 . "KSC5601") | |
54 (japanese-jisx0212 . "JISX0212") | |
55 (chinese-cns11643-1 . "CNS11643.1992-1") | |
56 (chinese-cns11643-2 . "CNS11643.1992-2") | |
57 (chinese-cns11643-3 . "CNS11643.1992-3") | |
58 (chinese-cns11643-4 . "CNS11643.1992-4") | |
59 (chinese-cns11643-5 . "CNS11643.1992-5") | |
60 (chinese-cns11643-6 . "CNS11643.1992-6") | |
61 (chinese-cns11643-7 . "CNS11643.1992-7") | |
62 (chinese-big5-1 . "Big5") | |
63 (chinese-big5-2 . "Big5") | |
64 (chinese-sisheng . "sisheng_cwnn") | |
65 (vietnamese-viscii-lower . "VISCII1.1") | |
66 (vietnamese-viscii-upper . "VISCII1.1") | |
67 (arabic-digit . "MuleArabic-0") | |
68 (arabic-1-column . "MuleArabic-1") | |
69 (arabic-2-column . "MuleArabic-2") | |
70 (ipa . "MuleIPA") | |
17177
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
71 (ethiopic . "Ethiopic-Unicode") |
17052 | 72 (ascii-right-to-left . "ISO8859-1") |
73 (indian-is13194 . "IS13194-Devanagari") | |
74 (indian-2-column . "MuleIndian-2") | |
75 (indian-1-column . "MuleIndian-1") | |
18350
3f4364889538
(x-charset-registries): Name changed for consistency:
Kenichi Handa <handa@m17n.org>
parents:
17989
diff
changeset
|
76 (lao . "MuleLao-1") |
3f4364889538
(x-charset-registries): Name changed for consistency:
Kenichi Handa <handa@m17n.org>
parents:
17989
diff
changeset
|
77 (tibetan . "MuleTibetan-0") |
3f4364889538
(x-charset-registries): Name changed for consistency:
Kenichi Handa <handa@m17n.org>
parents:
17989
diff
changeset
|
78 (tibetan-1-column . "MuleTibetan-1") |
17295
34efd2073019
(x-charset-registries): Add Tibetan entries.
Kenichi Handa <handa@m17n.org>
parents:
17195
diff
changeset
|
79 )) |
17052 | 80 |
81 (let ((l x-charset-registries)) | |
82 (while l | |
17339
8ce3d2e461bc
When calling put-charset-property, ignore errors.
Richard M. Stallman <rms@gnu.org>
parents:
17336
diff
changeset
|
83 (condition-case nil |
8ce3d2e461bc
When calling put-charset-property, ignore errors.
Richard M. Stallman <rms@gnu.org>
parents:
17336
diff
changeset
|
84 (put-charset-property (car (car l)) 'x-charset-registry (cdr (car l))) |
8ce3d2e461bc
When calling put-charset-property, ignore errors.
Richard M. Stallman <rms@gnu.org>
parents:
17336
diff
changeset
|
85 (error nil)) |
17052 | 86 (setq l (cdr l)))) |
87 | |
88 ;; Set arguments in `font-encoding-alist' (which see). | |
89 (defun set-font-encoding (pattern charset encoding) | |
90 (let ((slot (assoc pattern font-encoding-alist))) | |
91 (if slot | |
92 (let ((place (assq charset (cdr slot)))) | |
93 (if place | |
94 (setcdr place encoding) | |
95 (setcdr slot (cons (cons charset encoding) (cdr slot))))) | |
96 (setq font-encoding-alist | |
97 (cons (list pattern (cons charset encoding)) font-encoding-alist))) | |
98 )) | |
99 | |
100 (set-font-encoding "ISO8859-1" 'ascii 0) | |
101 (set-font-encoding "JISX0201" 'latin-jisx0201 0) | |
102 | |
103 ;; Setting for suppressing XLoadQueryFont on big fonts. | |
104 (setq x-pixel-size-width-font-regexp | |
105 "gb2312\\|jisx0208\\|ksc5601\\|cns11643\\|big5") | |
106 | |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
107 (defvar x-font-name-charset-alist |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
108 '(("iso8859-1" ascii latin-iso8859-1) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
109 ("iso8859-2" ascii latin-iso8859-2) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
110 ("iso8859-3" ascii latin-iso8859-3) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
111 ("iso8859-4" ascii latin-iso8859-4) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
112 ("iso8859-5" ascii cyrillic-iso8859-5) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
113 ("iso8859-6" ascii arabic-iso8859-6) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
114 ("iso8859-7" ascii greek-iso8859-7) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
115 ("iso8859-8" ascii hebrew-iso8859-8) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
116 ("tis620" ascii thai-tis620) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
117 ("koi8" ascii cyrillic-iso8859-5) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
118 ("viscii" ascii vietnamese-viscii-upper vietnamese-viscii-lower) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
119 ("vscii" ascii vietnamese-viscii-upper vietnamese-viscii-lower) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
120 ("mulelao-1" ascii lao)) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
121 "Alist of font names vs list of charsets the font can display. |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
122 |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
123 When a font name which matches some element of this alist is given as |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
124 `-fn' command line argument or is specified by X resource, a fontset |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
125 which uses the specified font for the corresponding charsets are |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
126 created and used for the initial frame.") |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
127 |
17052 | 128 ;;; XLFD (X Logical Font Description) format handler. |
129 | |
130 ;; Define XLFD's field index numbers. ; field name | |
131 (defconst xlfd-regexp-foundry-subnum 0) ; FOUNDRY | |
132 (defconst xlfd-regexp-family-subnum 1) ; FAMILY_NAME | |
133 (defconst xlfd-regexp-weight-subnum 2) ; WEIGHT_NAME | |
134 (defconst xlfd-regexp-slant-subnum 3) ; SLANT | |
135 (defconst xlfd-regexp-swidth-subnum 4) ; SETWIDTH_NAME | |
136 (defconst xlfd-regexp-adstyle-subnum 5) ; ADD_STYLE_NAME | |
137 (defconst xlfd-regexp-pixelsize-subnum 6) ; PIXEL_SIZE | |
138 (defconst xlfd-regexp-pointsize-subnum 7) ; POINT_SIZE | |
139 (defconst xlfd-regexp-resx-subnum 8) ; RESOLUTION_X | |
140 (defconst xlfd-regexp-resy-subnum 9) ; RESOLUTION_Y | |
141 (defconst xlfd-regexp-spacing-subnum 10) ; SPACING | |
142 (defconst xlfd-regexp-avgwidth-subnum 11) ; AVERAGE_WIDTH | |
143 (defconst xlfd-regexp-registry-subnum 12) ; CHARSET_REGISTRY | |
144 (defconst xlfd-regexp-encoding-subnum 13) ; CHARSET_ENCODING | |
145 | |
146 ;; Regular expression matching against a fontname which conforms to | |
147 ;; XLFD (X Logical Font Description). All fields in XLFD should be | |
148 ;; not be omitted (but can be a wild card) to be matched. | |
149 (defconst xlfd-tight-regexp | |
150 "^\ | |
151 -\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)\ | |
152 -\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)\ | |
153 -\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)$") | |
154 | |
155 ;; List of field numbers of XLFD whose values are numeric. | |
156 (defconst xlfd-regexp-numeric-subnums | |
157 (list xlfd-regexp-pixelsize-subnum ;6 | |
158 xlfd-regexp-pointsize-subnum ;7 | |
159 xlfd-regexp-resx-subnum ;8 | |
160 xlfd-regexp-resy-subnum ;9 | |
161 xlfd-regexp-avgwidth-subnum ;11 | |
162 )) | |
163 | |
164 (defun x-decompose-font-name (pattern) | |
165 "Decompose PATTERN into XLFD's fields and return vector of the fields. | |
166 The length of the vector is 14. | |
167 | |
168 If PATTERN doesn't conform to XLFD, try to get a full XLFD name from | |
169 X server and use the information of the full name to decompose | |
170 PATTERN. If no full XLFD name is gotten, return nil." | |
171 (let (xlfd-fields fontname) | |
172 (if (string-match xlfd-tight-regexp pattern) | |
173 (let ((i 0)) | |
174 (setq xlfd-fields (make-vector 14 nil)) | |
175 (while (< i 14) | |
176 (aset xlfd-fields i (match-string (1+ i) pattern)) | |
177 (setq i (1+ i))) | |
178 xlfd-fields) | |
179 (setq fontname (condition-case nil | |
180 (x-resolve-font-name pattern) | |
181 (error))) | |
182 (if (and fontname | |
183 (string-match xlfd-tight-regexp fontname)) | |
184 (let ((len (length pattern)) | |
185 (i 0) | |
186 l) | |
187 (setq xlfd-fields (make-vector 14 nil)) | |
188 (while (< i 14) | |
189 (aset xlfd-fields i | |
190 (cons (match-beginning (1+ i)) | |
191 (match-string (1+ i) fontname))) | |
192 (setq i (1+ i))) | |
193 (setq i 0) | |
194 (while (< i len) | |
195 (let ((ch (aref pattern i))) | |
196 (if (= ch ??) | |
197 (setq pattern (concat (substring pattern 0 i) | |
198 "\\(.\\)" | |
199 (substring pattern (1+ i))) | |
200 len (+ len 4) | |
201 i (+ i 4)) | |
202 (if (= ch ?*) | |
203 (setq pattern (concat (substring pattern 0 i) | |
204 "\\(.*\\)" | |
205 (substring pattern (1+ i))) | |
206 len (+ len 5) | |
207 i (+ i 5)) | |
208 (setq i (1+ i)))))) | |
209 (string-match pattern fontname) | |
210 (setq l (cdr (cdr (match-data)))) | |
211 (setq i 0) | |
212 (while (< i 14) | |
213 (if (or (null l) (< (car (aref xlfd-fields i)) (car l))) | |
214 (progn | |
215 (aset xlfd-fields i (cdr (aref xlfd-fields i))) | |
216 (setq i (1+ i))) | |
217 (if (< (car (aref xlfd-fields i)) (car (cdr l))) | |
218 (progn | |
17755
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
219 (aset xlfd-fields i "*") |
17052 | 220 (setq i (1+ i))) |
221 (setq l (cdr (cdr l)))))) | |
222 xlfd-fields))))) | |
223 | |
17177
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
224 ;; Replace consecutive wild-cards (`*') in NAME to one. |
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
225 ;; Ex. (x-reduce-font-name "-*-*-*-iso8859-1") => "-*-iso8859-1" |
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
226 (defsubst x-reduce-font-name (name) |
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
227 (while (string-match "-\\*-\\(\\*-\\)+" name) |
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
228 (setq name (replace-match "-*-" t t name))) |
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
229 name) |
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
230 |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
231 (defun x-compose-font-name (fields &optional reduce) |
17052 | 232 "Compose X's fontname from FIELDS. |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
233 FIELDS is a vector of XLFD fields, the length 14. |
17177
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
234 If a field is nil, wild-card letter `*' is embedded. |
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
235 Optional argument REDUCE non-nil means consecutive wild-cards are |
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
236 reduced to be one." |
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
237 (let ((name |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
238 (concat "-" (mapconcat (lambda (x) (or x "*")) fields "-")))) |
17177
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
239 (if reduce |
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
240 (x-reduce-font-name name) |
9e550b522bc0
(x-charset-registries): Change entry for Ethiopic.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
241 name))) |
17052 | 242 |
19456
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
243 (defun register-alternate-fontnames (fontname) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
244 "Register alternate fontnames for FONTNAME in `alternate-fontname-alist'. |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
245 When Emacs fails to open FONTNAME, it tries to open an alternate font |
19456
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
246 registered in the variable `alternate-fontname-alist' (which see). |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
247 |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
248 For FONTNAME, the following three alternate fontnames are registered: |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
249 fontname which ignores style specification of FONTNAME, |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
250 fontname which ignores size specification of FONTNAME, |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
251 fontname which ignores both style and size specification of FONTNAME. |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
252 Emacs tries to open fonts in this order." |
19456
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
253 (unless (assoc fontname alternate-fontname-alist) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
254 (let ((xlfd-fields (x-decompose-font-name fontname)) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
255 style-ignored size-ignored both-ignored) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
256 (when xlfd-fields |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
257 (aset xlfd-fields xlfd-regexp-foundry-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
258 (aset xlfd-fields xlfd-regexp-family-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
259 |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
260 (let ((temp (copy-sequence xlfd-fields))) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
261 (aset temp xlfd-regexp-weight-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
262 (aset temp xlfd-regexp-slant-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
263 (aset temp xlfd-regexp-swidth-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
264 (aset temp xlfd-regexp-adstyle-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
265 (setq style-ignored (x-compose-font-name temp t))) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
266 |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
267 (aset xlfd-fields xlfd-regexp-pixelsize-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
268 (aset xlfd-fields xlfd-regexp-pointsize-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
269 (aset xlfd-fields xlfd-regexp-resx-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
270 (aset xlfd-fields xlfd-regexp-resy-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
271 (aset xlfd-fields xlfd-regexp-spacing-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
272 (aset xlfd-fields xlfd-regexp-avgwidth-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
273 (setq size-ignored (x-compose-font-name xlfd-fields t)) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
274 |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
275 (aset xlfd-fields xlfd-regexp-weight-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
276 (aset xlfd-fields xlfd-regexp-slant-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
277 (aset xlfd-fields xlfd-regexp-swidth-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
278 (aset xlfd-fields xlfd-regexp-adstyle-subnum nil) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
279 (setq both-ignored (x-compose-font-name xlfd-fields t)) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
280 |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
281 (setq alternate-fontname-alist |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
282 (cons (list fontname style-ignored size-ignored both-ignored) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
283 alternate-fontname-alist)))))) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
284 |
17052 | 285 (defun x-complement-fontset-spec (xlfd-fields fontlist) |
286 "Complement FONTLIST for all charsets based on XLFD-FIELDS and return it. | |
287 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
|
288 FONTLIST is an alist of charsets vs the corresponding font names. |
17052 | 289 |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
290 Font names for charsets not listed in FONTLIST are generated from |
18350
3f4364889538
(x-charset-registries): Name changed for consistency:
Kenichi Handa <handa@m17n.org>
parents:
17989
diff
changeset
|
291 XLFD-FIELDS and a property of x-charset-registry of each charset |
17052 | 292 automatically." |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
293 (let ((charsets charset-list) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
294 (xlfd-fields-non-ascii (copy-sequence xlfd-fields)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
295 (new-fontlist nil)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
296 (aset xlfd-fields-non-ascii xlfd-regexp-foundry-subnum nil) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
297 (aset xlfd-fields-non-ascii xlfd-regexp-family-subnum nil) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
298 (aset xlfd-fields-non-ascii xlfd-regexp-adstyle-subnum nil) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
299 (aset xlfd-fields-non-ascii xlfd-regexp-avgwidth-subnum nil) |
17052 | 300 (while charsets |
301 (let ((charset (car charsets))) | |
19456
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
302 (unless (assq charset fontlist) |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
303 (let ((registry (get-charset-property charset 'x-charset-registry)) |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
304 registry-val encoding-val fontname) |
19456
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
305 (if (string-match "-" registry) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
306 ;; REGISTRY contains `CHARSET_ENCODING' field. |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
307 (setq registry-val (substring registry 0 (match-beginning 0)) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
308 encoding-val (substring registry (match-end 0))) |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
309 (setq registry-val (concat registry "*") |
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
310 encoding-val "*")) |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
311 (let ((xlfd (if (eq charset 'ascii) xlfd-fields |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
312 xlfd-fields-non-ascii))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
313 (aset xlfd xlfd-regexp-registry-subnum registry-val) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
314 (aset xlfd xlfd-regexp-encoding-subnum encoding-val) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
315 (setq fontname (downcase (x-compose-font-name xlfd)))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
316 (setq new-fontlist (cons (cons charset fontname) new-fontlist)) |
19456
f5627d8c422a
(register-alternate-fontnames): New
Kenichi Handa <handa@m17n.org>
parents:
19049
diff
changeset
|
317 (register-alternate-fontnames fontname)))) |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
318 (setq charsets (cdr charsets))) |
18350
3f4364889538
(x-charset-registries): Name changed for consistency:
Kenichi Handa <handa@m17n.org>
parents:
17989
diff
changeset
|
319 |
22720
ab4f30149aa0
(x-complement-fontset-spec): Typo fixed.
Kenichi Handa <handa@m17n.org>
parents:
22672
diff
changeset
|
320 ;; Be sure that ASCII font is available. |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
321 (let ((slot (or (assq 'ascii fontlist) (assq 'ascii new-fontlist))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
322 ascii-font) |
23161
55a8313019f3
(x-complement-fontset-spec): If ASCII
Kenichi Handa <handa@m17n.org>
parents:
22720
diff
changeset
|
323 (setq ascii-font (condition-case nil |
55a8313019f3
(x-complement-fontset-spec): If ASCII
Kenichi Handa <handa@m17n.org>
parents:
22720
diff
changeset
|
324 (x-resolve-font-name (cdr slot)) |
55a8313019f3
(x-complement-fontset-spec): If ASCII
Kenichi Handa <handa@m17n.org>
parents:
22720
diff
changeset
|
325 (error nil))) |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
326 (if ascii-font |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
327 (let ((l x-font-name-charset-alist)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
328 ;; If the ASCII font can also be used for another |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
329 ;; charsets, use that font instead of what generated based |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
330 ;; on x-charset-registery in the previous code. |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
331 (while l |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
332 (if (string-match (car (car l)) ascii-font) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
333 (let ((charsets (cdr (car l)))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
334 (while charsets |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
335 (if (and (not (eq (car charsets) 'ascii)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
336 (setq slot (assq (car charsets) new-fontlist))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
337 (setcdr slot ascii-font)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
338 (setq charsets (cdr charsets))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
339 (setq l nil)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
340 (setq l (cdr l)))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
341 (append fontlist new-fontlist)))))) |
17052 | 342 |
19049
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
343 (defun fontset-name-p (fontset) |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
344 "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
|
345 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
|
346 with \"fontset\" in `<CHARSET_REGISTRY> field." |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
347 (and (string-match xlfd-tight-regexp fontset) |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
348 (string= (match-string (1+ xlfd-regexp-registry-subnum) fontset) |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
349 "fontset"))) |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
350 |
17052 | 351 ;; Return a list to be appended to `x-fixed-font-alist' when |
352 ;; `mouse-set-font' is called. | |
353 (defun generate-fontset-menu () | |
354 (let ((fontsets global-fontset-alist) | |
355 fontset-name | |
356 l) | |
357 (while fontsets | |
358 (setq fontset-name (car (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
|
359 (setq l (cons (list (fontset-plain-name fontset-name) fontset-name) l))) |
17052 | 360 (cons "Fontset" l))) |
361 | |
362 (defun fontset-plain-name (fontset) | |
363 "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
|
364 (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
|
365 (error "Invalid fontset: %s" fontset)) |
17052 | 366 (let ((xlfd-fields (x-decompose-font-name fontset))) |
367 (if xlfd-fields | |
368 (let ((weight (aref xlfd-fields xlfd-regexp-weight-subnum)) | |
369 (slant (aref xlfd-fields xlfd-regexp-slant-subnum)) | |
370 (swidth (aref xlfd-fields xlfd-regexp-swidth-subnum)) | |
371 (size (aref xlfd-fields xlfd-regexp-pixelsize-subnum)) | |
17755
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
372 (charset (aref xlfd-fields xlfd-regexp-registry-subnum)) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
373 (nickname (aref xlfd-fields xlfd-regexp-encoding-subnum)) |
17052 | 374 name) |
17755
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
375 (if (not (string= "fontset" charset)) |
17052 | 376 fontset |
17755
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
377 (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
|
378 (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
|
379 (setq name nickname)) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
380 (cond ((string-match "^medium$" weight) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
381 (setq name (concat name " " "medium"))) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
382 ((string-match "^bold$\\|^demibold$" weight) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
383 (setq name (concat name " " weight)))) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
384 (cond ((string-match "^i$" slant) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
385 (setq name (concat name " " "italic"))) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
386 ((string-match "^o$" slant) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
387 (setq name (concat name " " "slant"))) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
388 ((string-match "^ri$" slant) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
389 (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
|
390 ((string-match "^ro$" slant) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
391 (setq name (concat name " " "reverse slant")))) |
17052 | 392 name)) |
393 fontset))) | |
394 | |
19771
7de156b57f00
(uninstantiated-fontset-alist):
Richard M. Stallman <rms@gnu.org>
parents:
19456
diff
changeset
|
395 (defvar uninstantiated-fontset-alist nil |
7de156b57f00
(uninstantiated-fontset-alist):
Richard M. Stallman <rms@gnu.org>
parents:
19456
diff
changeset
|
396 "Alist of fontset names vs. information for instantiating them. |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
397 Each element has the form (FONTSET STYLE FONTLIST), where |
19771
7de156b57f00
(uninstantiated-fontset-alist):
Richard M. Stallman <rms@gnu.org>
parents:
19456
diff
changeset
|
398 FONTSET is a name of fontset not yet instantiated. |
19049
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
399 STYLE is a style of FONTSET, one of the followings: |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
400 bold, demobold, italic, oblique, |
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
401 bold-italic, demibold-italic, bold-oblique, demibold-oblique. |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
402 FONTLIST is an alist of charsets vs font names to be used in FONSET.") |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
403 |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
404 (defconst x-style-funcs-alist |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
405 `((bold . x-make-font-bold) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
406 (demibold . x-make-font-demibold) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
407 (italic . x-make-font-italic) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
408 (oblique . x-make-font-oblique) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
409 (bold-italic . x-make-font-bold-italic) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
410 (demibold-italic |
22510 | 411 . ,(function (lambda (x) |
412 (let ((y (x-make-font-demibold x))) | |
413 (and y (x-make-font-italic y)))))) | |
414 (demibold-oblique | |
415 . ,(function (lambda (x) | |
416 (let ((y (x-make-font-demibold x))) | |
417 (and y (x-make-font-oblique y)))))) | |
418 (bold-oblique | |
419 . ,(function (lambda (x) | |
420 (let ((y (x-make-font-bold x))) | |
421 (and y (x-make-font-oblique y))))))) | |
422 "Alist of font style vs function to generate a X font name of the style. | |
423 The function is called with one argument, a font name.") | |
424 | |
425 (defcustom fontset-default-styles '(bold italic bold-italic) | |
426 "List of alternative styles to create for a fontset. | |
427 Valid elements include `bold', `demibold'; `italic', `oblique'; | |
428 and combinations of one from each group, | |
429 such as `bold-italic' and `demibold-oblique'." | |
430 :group 'faces | |
22601
6eb4e6832d2d
(fontset-default-styles): Fix custom type.
Richard M. Stallman <rms@gnu.org>
parents:
22561
diff
changeset
|
431 :type '(set (const bold) (const demibold) (const italic) (const oblique) |
6eb4e6832d2d
(fontset-default-styles): Fix custom type.
Richard M. Stallman <rms@gnu.org>
parents:
22561
diff
changeset
|
432 (const bold-italic) (const bold-oblique) (const demibold-italic) |
6eb4e6832d2d
(fontset-default-styles): Fix custom type.
Richard M. Stallman <rms@gnu.org>
parents:
22561
diff
changeset
|
433 (const demibold-oblique))) |
22510 | 434 |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
435 (defun x-modify-font-name (fontname style) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
436 "Substitute style specification part of FONTNAME for STYLE. |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
437 STYLE should be listed in the variable `x-style-funcs-alist'." |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
438 (let ((func (cdr (assq style x-style-funcs-alist)))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
439 (if func |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
440 (funcall func fontname)))) |
19049
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
441 |
22128
8f7a59fc78db
(create-fontset-from-fontset-spec): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
19771
diff
changeset
|
442 ;;;###autoload |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
443 (defun create-fontset-from-fontset-spec (fontset-spec |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
444 &optional style-variant noerror) |
17052 | 445 "Create a fontset from fontset specification string FONTSET-SPEC. |
446 FONTSET-SPEC is a string of the format: | |
447 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
|
448 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
|
449 |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
450 Optional 2nd argument STYLE-VARIANT is a list of font styles |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
451 \(e.g. bold, italic) or the symbol t to specify all available styles. |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
452 If this argument is specified, fontsets which differs from |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
453 FONTSET-NAME in styles are also created. An element of STYLE-VARIANT |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
454 may be cons of style and a font name. In this case, the style variant |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
455 fontset uses the font for ASCII character set. |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
456 |
18719
de8249499f33
(create-fontset-from-fontset-spec): Typo in doc-string fixed.
Kenichi Handa <handa@m17n.org>
parents:
18714
diff
changeset
|
457 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
|
458 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
|
459 |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
460 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
|
461 (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
|
462 (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
|
463 (let ((idx (match-end 0)) |
4c82e87c7d7c
(x-decompose-font-name): While seting each field of
Kenichi Handa <handa@m17n.org>
parents:
17339
diff
changeset
|
464 (name (match-string 0 fontset-spec)) |
22618
ed91f54d85b9
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22601
diff
changeset
|
465 fontlist full-fontlist ascii-font resolved-ascii-font charset) |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
466 (if (query-fontset name) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
467 (or noerror |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
468 (error "Fontset \"%s\" already exists")) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
469 ;; 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
|
470 (while (string-match "[, \t\n]*\\([^:]+\\):\\([^,]+\\)" fontset-spec idx) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
471 (setq idx (match-end 0)) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
472 (setq charset (intern (match-string 1 fontset-spec))) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
473 (if (charsetp charset) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
474 (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
|
475 fontlist)))) |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
476 ;; Remember the specified ASCII font name now because it will be |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
477 ;; replaced by resolved font name by x-complement-fontset-spec. |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
478 (setq ascii-font (cdr (assq 'ascii fontlist))) |
19049
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
479 |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
480 ;; If NAME conforms to XLFD, complement FONTLIST for charsets |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
481 ;; which are not specified in FONTSET-SPEC. |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
482 (let ((fields (x-decompose-font-name name))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
483 (if fields |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
484 (setq full-fontlist (x-complement-fontset-spec fields fontlist)))) |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
485 |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
486 (when full-fontlist |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
487 ;; Create the fontset. |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
488 (new-fontset name full-fontlist) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
489 |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
490 ;; Define aliases: short name (if appropriate) and ASCII font name. |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
491 (if (and (string-match "fontset-.*$" name) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
492 (not (assoc name fontset-alias-alist))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
493 (let ((alias (match-string 0 name))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
494 (or (rassoc alias fontset-alias-alist) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
495 (setq fontset-alias-alist |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
496 (cons (cons name alias) fontset-alias-alist))))) |
22618
ed91f54d85b9
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22601
diff
changeset
|
497 (setq resolved-ascii-font (cdr (assq 'ascii full-fontlist))) |
ed91f54d85b9
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22601
diff
changeset
|
498 (setq fontset-alias-alist |
ed91f54d85b9
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22601
diff
changeset
|
499 (cons (cons name resolved-ascii-font) |
ed91f54d85b9
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22601
diff
changeset
|
500 fontset-alias-alist)) |
ed91f54d85b9
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22601
diff
changeset
|
501 (or (equal ascii-font resolved-ascii-font) |
ed91f54d85b9
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22601
diff
changeset
|
502 (setq fontset-alias-alist |
ed91f54d85b9
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22601
diff
changeset
|
503 (cons (cons name ascii-font) |
ed91f54d85b9
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22601
diff
changeset
|
504 fontset-alias-alist))) |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
505 |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
506 ;; At last, handle style variants. |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
507 (if (eq style-variant t) |
22510 | 508 (setq style-variant fontset-default-styles)) |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
509 |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
510 (if style-variant |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
511 ;; Generate fontset names of style variants and set them |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
512 ;; in uninstantiated-fontset-alist. |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
513 (let* (nonascii-fontlist |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
514 new-name new-ascii-font style font) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
515 (if ascii-font |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
516 (setq nonascii-fontlist (delete (cons 'ascii ascii-font) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
517 (copy-sequence fontlist))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
518 (setq ascii-font (cdr (assq 'ascii full-fontlist)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
519 nonascii-fontlist fontlist)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
520 (while style-variant |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
521 (setq style (car style-variant)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
522 (if (symbolp style) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
523 (setq font nil) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
524 (setq font (cdr style) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
525 style (car style))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
526 (setq new-name (x-modify-font-name name style)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
527 (when new-name |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
528 ;; Modify ASCII font name for the style... |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
529 (setq new-ascii-font |
22618
ed91f54d85b9
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22601
diff
changeset
|
530 (or font |
ed91f54d85b9
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22601
diff
changeset
|
531 (x-modify-font-name resolved-ascii-font style))) |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
532 ;; but leave fonts for the other charsets unmodified |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
533 ;; for the momemnt. They are modified for the style |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
534 ;; in instantiate-fontset. |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
535 (setq uninstantiated-fontset-alist |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
536 (cons (list new-name |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
537 style |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
538 (cons (cons 'ascii new-ascii-font) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
539 nonascii-fontlist)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
540 uninstantiated-fontset-alist)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
541 (setq fontset-alias-alist |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
542 (cons (cons new-name new-ascii-font) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
543 fontset-alias-alist))) |
22672
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
544 (setq style-variant (cdr style-variant))))))) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
545 name)) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
546 |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
547 (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
|
548 fontset-name) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
549 "Create a fontset from an ASCII font FONT. |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
550 |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
551 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
|
552 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
|
553 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
|
554 |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
555 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
|
556 `<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
|
557 an appropriate name is generated automatically. |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
558 |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
559 Style variants of the fontset is created too. Font names in the |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
560 variants are generated automatially from FONT unless X resources |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
561 XXX.attribyteFont explicitly specify them. |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
562 |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
563 It returns a name of the created fontset." |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
564 (or resolved-font |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
565 (setq resolved-font (x-resolve-font-name font))) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
566 (let* ((faces (copy-sequence fontset-default-styles)) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
567 (styles faces) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
568 (xlfd (x-decompose-font-name font)) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
569 (resolved-xlfd (x-decompose-font-name resolved-font)) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
570 face face-font fontset fontset-spec) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
571 (while faces |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
572 (setq face (car faces)) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
573 (setq face-font (x-get-resource (concat (symbol-name face) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
574 ".attributeFont") |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
575 "Face.AttributeFont")) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
576 (if face-font |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
577 (setcar faces (cons face face-font))) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
578 (setq faces (cdr faces))) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
579 (aset xlfd xlfd-regexp-foundry-subnum nil) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
580 (aset xlfd xlfd-regexp-family-subnum nil) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
581 (aset xlfd xlfd-regexp-registry-subnum "fontset") |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
582 (or fontset-name |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
583 (setq fontset-name |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
584 (format "%s_%s_%s" |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
585 (aref resolved-xlfd xlfd-regexp-registry-subnum) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
586 (aref resolved-xlfd xlfd-regexp-encoding-subnum) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
587 (aref resolved-xlfd xlfd-regexp-pixelsize-subnum)))) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
588 (aset xlfd xlfd-regexp-encoding-subnum fontset-name) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
589 ;; The fontset name should have concrete values in weight and |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
590 ;; slant field. |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
591 (let ((weight (aref xlfd xlfd-regexp-weight-subnum)) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
592 (slant (aref xlfd xlfd-regexp-slant-subnum))) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
593 (if (or (not weight) (string-match "[*?]*" weight)) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
594 (aset xlfd xlfd-regexp-weight-subnum |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
595 (aref resolved-xlfd xlfd-regexp-weight-subnum))) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
596 (if (or (not slant) (string-match "[*?]*" slant)) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
597 (aset xlfd xlfd-regexp-slant-subnum |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
598 (aref resolved-xlfd xlfd-regexp-slant-subnum)))) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
599 (setq fontset (x-compose-font-name xlfd)) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
600 (or (query-fontset fontset) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
601 (create-fontset-from-fontset-spec (concat fontset ", ascii:" font) |
9cfa1a788a5a
(create-fontset-from-fontset-spec):
Kenichi Handa <handa@m17n.org>
parents:
22618
diff
changeset
|
602 styles)))) |
17052 | 603 |
19771
7de156b57f00
(uninstantiated-fontset-alist):
Richard M. Stallman <rms@gnu.org>
parents:
19456
diff
changeset
|
604 (defun instantiate-fontset (fontset) |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
605 "Make FONTSET be readly to use. |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
606 FONTSET should be in the variable `uninstantiated-fontset-alist' in advance. |
19049
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
607 Return FONTSET if it is created successfully, else return nil." |
19771
7de156b57f00
(uninstantiated-fontset-alist):
Richard M. Stallman <rms@gnu.org>
parents:
19456
diff
changeset
|
608 (let ((fontset-data (assoc fontset uninstantiated-fontset-alist))) |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
609 (when fontset-data |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
610 (setq uninstantiated-fontset-alist |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
611 (delete fontset-data uninstantiated-fontset-alist)) |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
612 |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
613 (let* ((fields (x-decompose-font-name fontset)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
614 (style (nth 1 fontset-data)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
615 (fontlist (x-complement-fontset-spec fields (nth 2 fontset-data))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
616 (font (cdr (assq 'ascii fontlist)))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
617 ;; If ASCII font is available, instantiate this fontset. |
19049
cad4c032fa26
(fontset-name-p): New function.
Kenichi Handa <handa@m17n.org>
parents:
18719
diff
changeset
|
618 (when font |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
619 (let ((new-fontlist (list (cons 'ascii font)))) |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
620 ;; Fonts for non-ascii charsets should be modified for |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
621 ;; this style now. |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
622 (while fontlist |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
623 (setq font (cdr (car fontlist))) |
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
624 (or (eq (car (car fontlist)) 'ascii) |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
625 (setq new-fontlist |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
626 (cons (cons (car (car fontlist)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
627 (x-modify-font-name font style)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
628 new-fontlist))) |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
629 (setq fontlist (cdr fontlist))) |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
630 (new-fontset fontset new-fontlist) |
22161
7a4c3fd89dda
(x-font-name-charset-alist): New
Kenichi Handa <handa@m17n.org>
parents:
22128
diff
changeset
|
631 fontset)))))) |
22449
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
632 |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
633 (defun resolve-fontset-name (pattern) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
634 "Return a fontset name matching PATTERN." |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
635 (let ((fontset (car (rassoc pattern fontset-alias-alist)))) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
636 (or fontset (setq fontset pattern)) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
637 (if (assoc fontset uninstantiated-fontset-alist) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
638 (instantiate-fontset fontset) |
c87830c691a5
(instantiate-fontset): Delete
Kenichi Handa <handa@m17n.org>
parents:
22161
diff
changeset
|
639 (query-fontset fontset)))) |
17052 | 640 |
17842
cb1af8ead3df
(standard-fontset-spec): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
17755
diff
changeset
|
641 ;; 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
|
642 ;; 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
|
643 ;; 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
|
644 ;; many cases. |
17842
cb1af8ead3df
(standard-fontset-spec): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
17755
diff
changeset
|
645 (defvar standard-fontset-spec |
cb1af8ead3df
(standard-fontset-spec): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
17755
diff
changeset
|
646 "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-standard, |
17052 | 647 chinese-gb2312:-*-medium-r-normal-*-16-*-gb2312*-*, |
648 korean-ksc5601:-*-medium-r-normal-*-16-*-ksc5601*-*, | |
649 chinese-cns11643-1:-*-medium-r-normal-*-16-*-cns11643*-1, | |
650 chinese-cns11643-2:-*-medium-r-normal-*-16-*-cns11643*-2, | |
651 chinese-cns11643-3:-*-medium-r-normal-*-16-*-cns11643*-3, | |
652 chinese-cns11643-4:-*-medium-r-normal-*-16-*-cns11643*-4, | |
653 chinese-cns11643-5:-*-medium-r-normal-*-16-*-cns11643*-5, | |
654 chinese-cns11643-6:-*-medium-r-normal-*-16-*-cns11643*-6, | |
655 chinese-cns11643-7:-*-medium-r-normal-*-16-*-cns11643*-7" | |
17842
cb1af8ead3df
(standard-fontset-spec): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
17755
diff
changeset
|
656 "String of fontset spec of the standard fontset. |
cb1af8ead3df
(standard-fontset-spec): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
17755
diff
changeset
|
657 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
|
658 with correct glyphs by using the standard fontset. |
17052 | 659 See the documentation of `create-fontset-from-fontset-spec' for the format.") |
660 | |
661 ;; Create fontsets from X resources of the name `fontset-N (class | |
662 ;; Fontset-N)' where N is integer 0, 1, ... | |
663 ;; 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
|
664 ;; `standard-fontset-spec'. |
17052 | 665 |
666 (defun create-fontset-from-x-resource () | |
667 (let ((idx 0) | |
668 fontset-spec) | |
669 (while (setq fontset-spec (x-get-resource (concat "fontset-" idx) | |
670 (concat "Fontset-" idx))) | |
18714
5d47a06d19bf
(create-fontset-from-fontset-spec): Add
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
671 (create-fontset-from-fontset-spec fontset-spec nil 'noerror) |
17052 | 672 (setq idx (1+ idx))))) |
673 | |
674 (defsubst fontset-list () | |
675 "Returns a list of all defined fontset names." | |
676 (mapcar 'car global-fontset-alist)) | |
677 | |
678 ;; | |
679 (provide 'fontset) | |
680 | |
681 ;;; fontset.el ends here |