Mercurial > emacs
annotate lisp/international/ucs-tables.el @ 87008:888320f5e3f7
*** empty log message ***
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Mon, 03 Dec 2007 09:28:15 +0000 |
parents | 5104ff34254c |
children | b6fdfff4ae81 |
rev | line source |
---|---|
41878 | 1 ;;; ucs-tables.el --- translation to, from and via Unicode -*- coding: iso-2022-7bit -*- |
2 | |
75347 | 3 ;; Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007 Free Software Foundation, Inc. |
4 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 | |
62274 | 5 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
6 ;; Registration Number H14PRO021 | |
41878 | 7 |
8 ;; Author: Dave Love <fx@gnu.org> | |
9 ;; Keywords: i18n | |
10 | |
42320 | 11 ;; This file is part of GNU Emacs. |
12 | |
45357 | 13 ;; GNU Emacs is free software; you can redistribute it and/or modify |
41878 | 14 ;; it under the terms of the GNU General Public License as published by |
78310
2daf9c28b3a4
Restore comma mistakenly removed in last change.
Glenn Morris <rgm@gnu.org>
parents:
78301
diff
changeset
|
15 ;; the Free Software Foundation; either version 3, or (at your option) |
41878 | 16 ;; any later version. |
17 | |
45357 | 18 ;; GNU Emacs is distributed in the hope that it will be useful, |
41878 | 19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
45357 | 24 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
26 ;; Boston, MA 02110-1301, USA. | |
41878 | 27 |
28 ;;; Commentary: | |
29 | |
30 ;; This file provides tables mapping between Unicode numbers and | |
46506 | 31 ;; emacs-mule characters from the iso-8859 charsets (and others). It |
41878 | 32 ;; also provides some auxiliary functions. |
33 | |
34 ;; These tables are used to construct other mappings between the Mule | |
35 ;; iso8859 charsets and the emacs-unicode charsets and a table that | |
46506 | 36 ;; unifies iso-8859 characters using a single charset as far as |
41878 | 37 ;; possible. These tables are used by latin1-disp.el to display some |
38 ;; Unicode characters without a Unicode font and by utf-8.el to unify | |
39 ;; Latin-N as far as possible on encoding. | |
40 | |
41 ;; More drastically, they can be used to unify 8859 into Latin-1 plus | |
42 ;; mule-unicode-0100-24ff on decoding, with the corresponding | |
43 ;; adjustments on encoding; see `ucs-unify-8859'. Be wary of using | |
44 ;; unification when, for instance, editing Lisp files such as this one | |
45 ;; which are supposed to contain distinct 8859 charsets. Also, it can | |
46 ;; make reading and writing of emacs-mule and iso-2022-based encodings | |
47 ;; not idempotent. | |
48 | |
49 ;; Global minor modes are provided to unify on encoding and decoding. | |
46506 | 50 ;; These could be extended to non-iso-8859 charsets. However 8859 is |
51 ;; all that users normally care about unifying although, for instance, | |
52 ;; Greek occurs in as many as nine Emacs charsets. | |
41878 | 53 |
47707 | 54 ;; The translation-table `utf-translation-table-for-encode' is |
55 ;; populated, which could be used for more general unification on | |
56 ;; decoding. This is used by the `mule-utf-8' coding system to encode | |
57 ;; extra characters, and also by the coding systems set up by | |
58 ;; code-pages.el. The decoding tables here take account of | |
59 ;; `utf-fragment-on-decoding' which may specify decoding Greek and | |
46506 | 60 ;; Cyrillic into 8859 charsets. |
61 | |
48232 | 62 ;; Unification also arranges for `translation-table-for-input' to be |
63 ;; set either globally or locally. This is used to translate input | |
64 ;; characters appropriately for the buffer's coding system (if | |
65 ;; possible). Unification on decoding sets it globally to translate | |
66 ;; to Unicode. Unification on encoding uses hooks to set it up | |
67 ;; locally to buffers. Thus in the latter case, typing `"a' into a | |
46506 | 68 ;; Latin-1 buffer using the `latin-2-prefix' method translates the |
69 ;; generated latin-iso8859-2 `,Bd(B' into latin-iso8859-1 `,Ad(B'. | |
70 | |
71 ;; NB, this code depends on the default value of | |
72 ;; `enable-character-translation'. (Making it nil would anyway lead | |
73 ;; to inconsistent behaviour between CCL-based coding systems which | |
74 ;; use explicit translation tables and the rest.) | |
41878 | 75 |
48767 | 76 ;; Command `ucs-insert' is convenient for inserting a given unicode. |
41878 | 77 ;; (See also the `ucs' input method.) |
78 | |
79 ;;; Code: | |
80 | |
81 ;;; Define tables, to be populated later. | |
82 | |
83 (defvar ucs-mule-8859-to-ucs-table (make-translation-table) | |
47707 | 84 "Char table from Emacs ISO-8859 characters to Unicode. |
41878 | 85 This maps Emacs characters from the non-Latin-1 |
86 ...-iso8859-... charsets to their Unicode code points. This is a | |
87 many-to-one mapping.") | |
88 | |
89 (defvar ucs-mule-8859-to-mule-unicode (make-translation-table) | |
47707 | 90 "Char table from Emacs ISO-8859 characters to Mule Unicode. |
41878 | 91 This maps Emacs characters from the non-Latin-1 |
92 ...-iso8859-... charsets to characters from the | |
93 mule-unicode-... charsets. This is a many-to-one mapping. The | |
94 characters translated to are suitable for encoding using the | |
95 `mule-utf-8' coding system.") | |
96 | |
97 ;; (defvar ucs-ucs-to-mule-8859-table (make-translation-table) | |
98 ;; "Translation table from Unicode to Emacs ISO-8859 characters. | |
99 ;; This maps Unicode code points to corresponding Emacs characters from | |
100 ;; the ...-iso8859-... charsets. This is made a one-to-one mapping where | |
101 ;; the same character occurs in more than one set by preferring the Emacs | |
102 ;; iso-8859-N character with lowest N.") | |
103 | |
104 ;; (defvar ucs-mule-unicode-to-mule-8859 (make-translation-table) | |
105 ;; "Translation table from Mule Unicode to Emacs ISO-8859 characters. | |
106 ;; This maps non-Latin-1 Emacs characters from the | |
107 ;; mule-unicode-... charsets used by the `mule-utf-8' coding system to | |
108 ;; characters from the ...-iso8859-... charsets. This is made a | |
109 ;; one-to-one mapping where the same character occurs in more than one | |
110 ;; set by preferring the Emacs iso-8859-N character with lowest N.") | |
111 | |
112 (defvar ucs-8859-1-encode-table nil | |
113 "Used as `translation-table-for-encode' for iso-8859-2. | |
114 Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.") | |
115 | |
116 (defvar ucs-8859-2-encode-table nil | |
117 "Used as `translation-table-for-encode' for iso-8859-2. | |
118 Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.") | |
119 | |
120 (defvar ucs-8859-3-encode-table nil | |
121 "Used as `translation-table-for-encode' for iso-8859-3. | |
122 Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.") | |
123 | |
124 (defvar ucs-8859-4-encode-table nil | |
125 "Used as `translation-table-for-encode' for iso-8859-4. | |
126 Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.") | |
127 | |
128 (defvar ucs-8859-5-encode-table nil | |
129 "Used as `translation-table-for-encode' for iso-8859-5. | |
130 Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.") | |
131 | |
132 (defvar ucs-8859-7-encode-table nil | |
133 "Used as `translation-table-for-encode' for iso-8859-7. | |
134 Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.") | |
135 | |
136 (defvar ucs-8859-8-encode-table nil | |
137 "Used as `translation-table-for-encode' for iso-8859-8. | |
138 Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.") | |
139 | |
140 (defvar ucs-8859-9-encode-table nil | |
141 "Used as `translation-table-for-encode' for iso-8859-9. | |
142 Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.") | |
143 | |
144 (defvar ucs-8859-14-encode-table nil | |
145 "Used as `translation-table-for-encode' for iso-8859-14. | |
146 Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.") | |
147 | |
148 (defvar ucs-8859-15-encode-table nil | |
149 "Used as `translation-table-for-encode' for iso-8859-15. | |
150 Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.") | |
151 | |
48232 | 152 (setq translation-table-for-input (make-translation-table)) |
48185
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
153 ;; It will normally be set locally, before the major mode is invoked. |
48232 | 154 (put 'translation-table-for-input 'permanent-local t) |
47707 | 155 |
47792
8753fa3673f5
(ucs-translation-table-for-decode): Define it as a translation-table.
Kenichi Handa <handa@m17n.org>
parents:
47707
diff
changeset
|
156 (define-translation-table 'ucs-translation-table-for-decode) |
8753fa3673f5
(ucs-translation-table-for-decode): Define it as a translation-table.
Kenichi Handa <handa@m17n.org>
parents:
47707
diff
changeset
|
157 |
41878 | 158 ;;; Set up the tables. |
159 | |
160 ;; Most of these tables were derived from ones in Mule-UCS. | |
161 | |
162 ;; There doesn't seem to be a need to make these let bindings into | |
163 ;; defvars, so we'll let the data get GC'ed. | |
164 (let ((ucs-8859-2-alist | |
165 '((?\,B (B . ?\x00A0) ;; NO-BREAK SPACE | |
166 (?\,B!(B . ?\x0104) ;; LATIN CAPITAL LETTER A WITH OGONEK | |
167 (?\,B"(B . ?\x02D8) ;; BREVE | |
168 (?\,B#(B . ?\x0141) ;; LATIN CAPITAL LETTER L WITH STROKE | |
169 (?\,B$(B . ?\x00A4) ;; CURRENCY SIGN | |
170 (?\,B%(B . ?\x013D) ;; LATIN CAPITAL LETTER L WITH CARON | |
171 (?\,B&(B . ?\x015A) ;; LATIN CAPITAL LETTER S WITH ACUTE | |
172 (?\,B'(B . ?\x00A7) ;; SECTION SIGN | |
173 (?\,B((B . ?\x00A8) ;; DIAERESIS | |
174 (?\,B)(B . ?\x0160) ;; LATIN CAPITAL LETTER S WITH CARON | |
175 (?\,B*(B . ?\x015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA | |
176 (?\,B+(B . ?\x0164) ;; LATIN CAPITAL LETTER T WITH CARON | |
177 (?\,B,(B . ?\x0179) ;; LATIN CAPITAL LETTER Z WITH ACUTE | |
178 (?\,B-(B . ?\x00AD) ;; SOFT HYPHEN | |
179 (?\,B.(B . ?\x017D) ;; LATIN CAPITAL LETTER Z WITH CARON | |
180 (?\,B/(B . ?\x017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE | |
181 (?\,B0(B . ?\x00B0) ;; DEGREE SIGN | |
182 (?\,B1(B . ?\x0105) ;; LATIN SMALL LETTER A WITH OGONEK | |
183 (?\,B2(B . ?\x02DB) ;; OGONEK | |
184 (?\,B3(B . ?\x0142) ;; LATIN SMALL LETTER L WITH STROKE | |
185 (?\,B4(B . ?\x00B4) ;; ACUTE ACCENT | |
186 (?\,B5(B . ?\x013E) ;; LATIN SMALL LETTER L WITH CARON | |
187 (?\,B6(B . ?\x015B) ;; LATIN SMALL LETTER S WITH ACUTE | |
188 (?\,B7(B . ?\x02C7) ;; CARON | |
189 (?\,B8(B . ?\x00B8) ;; CEDILLA | |
190 (?\,B9(B . ?\x0161) ;; LATIN SMALL LETTER S WITH CARON | |
191 (?\,B:(B . ?\x015F) ;; LATIN SMALL LETTER S WITH CEDILLA | |
192 (?\,B;(B . ?\x0165) ;; LATIN SMALL LETTER T WITH CARON | |
193 (?\,B<(B . ?\x017A) ;; LATIN SMALL LETTER Z WITH ACUTE | |
194 (?\,B=(B . ?\x02DD) ;; DOUBLE ACUTE ACCENT | |
195 (?\,B>(B . ?\x017E) ;; LATIN SMALL LETTER Z WITH CARON | |
196 (?\,B?(B . ?\x017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE | |
197 (?\,B@(B . ?\x0154) ;; LATIN CAPITAL LETTER R WITH ACUTE | |
198 (?\,BA(B . ?\x00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE | |
199 (?\,BB(B . ?\x00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX | |
200 (?\,BC(B . ?\x0102) ;; LATIN CAPITAL LETTER A WITH BREVE | |
201 (?\,BD(B . ?\x00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS | |
202 (?\,BE(B . ?\x0139) ;; LATIN CAPITAL LETTER L WITH ACUTE | |
203 (?\,BF(B . ?\x0106) ;; LATIN CAPITAL LETTER C WITH ACUTE | |
204 (?\,BG(B . ?\x00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA | |
205 (?\,BH(B . ?\x010C) ;; LATIN CAPITAL LETTER C WITH CARON | |
206 (?\,BI(B . ?\x00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE | |
207 (?\,BJ(B . ?\x0118) ;; LATIN CAPITAL LETTER E WITH OGONEK | |
208 (?\,BK(B . ?\x00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS | |
209 (?\,BL(B . ?\x011A) ;; LATIN CAPITAL LETTER E WITH CARON | |
210 (?\,BM(B . ?\x00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE | |
211 (?\,BN(B . ?\x00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX | |
212 (?\,BO(B . ?\x010E) ;; LATIN CAPITAL LETTER D WITH CARON | |
213 (?\,BP(B . ?\x0110) ;; LATIN CAPITAL LETTER D WITH STROKE | |
214 (?\,BQ(B . ?\x0143) ;; LATIN CAPITAL LETTER N WITH ACUTE | |
215 (?\,BR(B . ?\x0147) ;; LATIN CAPITAL LETTER N WITH CARON | |
216 (?\,BS(B . ?\x00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE | |
217 (?\,BT(B . ?\x00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX | |
218 (?\,BU(B . ?\x0150) ;; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE | |
219 (?\,BV(B . ?\x00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS | |
220 (?\,BW(B . ?\x00D7) ;; MULTIPLICATION SIGN | |
221 (?\,BX(B . ?\x0158) ;; LATIN CAPITAL LETTER R WITH CARON | |
222 (?\,BY(B . ?\x016E) ;; LATIN CAPITAL LETTER U WITH RING ABOVE | |
223 (?\,BZ(B . ?\x00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE | |
224 (?\,B[(B . ?\x0170) ;; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE | |
225 (?\,B\(B . ?\x00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS | |
226 (?\,B](B . ?\x00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE | |
227 (?\,B^(B . ?\x0162) ;; LATIN CAPITAL LETTER T WITH CEDILLA | |
228 (?\,B_(B . ?\x00DF) ;; LATIN SMALL LETTER SHARP S | |
229 (?\,B`(B . ?\x0155) ;; LATIN SMALL LETTER R WITH ACUTE | |
230 (?\,Ba(B . ?\x00E1) ;; LATIN SMALL LETTER A WITH ACUTE | |
231 (?\,Bb(B . ?\x00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX | |
232 (?\,Bc(B . ?\x0103) ;; LATIN SMALL LETTER A WITH BREVE | |
233 (?\,Bd(B . ?\x00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS | |
234 (?\,Be(B . ?\x013A) ;; LATIN SMALL LETTER L WITH ACUTE | |
235 (?\,Bf(B . ?\x0107) ;; LATIN SMALL LETTER C WITH ACUTE | |
236 (?\,Bg(B . ?\x00E7) ;; LATIN SMALL LETTER C WITH CEDILLA | |
237 (?\,Bh(B . ?\x010D) ;; LATIN SMALL LETTER C WITH CARON | |
238 (?\,Bi(B . ?\x00E9) ;; LATIN SMALL LETTER E WITH ACUTE | |
239 (?\,Bj(B . ?\x0119) ;; LATIN SMALL LETTER E WITH OGONEK | |
240 (?\,Bk(B . ?\x00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS | |
241 (?\,Bl(B . ?\x011B) ;; LATIN SMALL LETTER E WITH CARON | |
242 (?\,Bm(B . ?\x00ED) ;; LATIN SMALL LETTER I WITH ACUTE | |
243 (?\,Bn(B . ?\x00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX | |
244 (?\,Bo(B . ?\x010F) ;; LATIN SMALL LETTER D WITH CARON | |
245 (?\,Bp(B . ?\x0111) ;; LATIN SMALL LETTER D WITH STROKE | |
246 (?\,Bq(B . ?\x0144) ;; LATIN SMALL LETTER N WITH ACUTE | |
247 (?\,Br(B . ?\x0148) ;; LATIN SMALL LETTER N WITH CARON | |
248 (?\,Bs(B . ?\x00F3) ;; LATIN SMALL LETTER O WITH ACUTE | |
249 (?\,Bt(B . ?\x00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX | |
250 (?\,Bu(B . ?\x0151) ;; LATIN SMALL LETTER O WITH DOUBLE ACUTE | |
251 (?\,Bv(B . ?\x00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS | |
252 (?\,Bw(B . ?\x00F7) ;; DIVISION SIGN | |
253 (?\,Bx(B . ?\x0159) ;; LATIN SMALL LETTER R WITH CARON | |
254 (?\,By(B . ?\x016F) ;; LATIN SMALL LETTER U WITH RING ABOVE | |
255 (?\,Bz(B . ?\x00FA) ;; LATIN SMALL LETTER U WITH ACUTE | |
256 (?\,B{(B . ?\x0171) ;; LATIN SMALL LETTER U WITH DOUBLE ACUTE | |
257 (?\,B|(B . ?\x00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS | |
258 (?\,B}(B . ?\x00FD) ;; LATIN SMALL LETTER Y WITH ACUTE | |
259 (?\,B~(B . ?\x0163) ;; LATIN SMALL LETTER T WITH CEDILLA | |
260 (?\,B(B . ?\x02D9) ;; DOT ABOVE | |
261 )) | |
262 | |
263 (ucs-8859-3-alist | |
264 '((?\,C (B . ?\x00A0) ;; NO-BREAK SPACE | |
265 (?\,C!(B . ?\x0126) ;; LATIN CAPITAL LETTER H WITH STROKE | |
266 (?\,C"(B . ?\x02D8) ;; BREVE | |
267 (?\,C#(B . ?\x00A3) ;; POUND SIGN | |
268 (?\,C$(B . ?\x00A4) ;; CURRENCY SIGN | |
269 (?\,C&(B . ?\x0124) ;; LATIN CAPITAL LETTER H WITH CIRCUMFLEX | |
270 (?\,C'(B . ?\x00A7) ;; SECTION SIGN | |
271 (?\,C((B . ?\x00A8) ;; DIAERESIS | |
272 (?\,C)(B . ?\x0130) ;; LATIN CAPITAL LETTER I WITH DOT ABOVE | |
273 (?\,C*(B . ?\x015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA | |
274 (?\,C+(B . ?\x011E) ;; LATIN CAPITAL LETTER G WITH BREVE | |
275 (?\,C,(B . ?\x0134) ;; LATIN CAPITAL LETTER J WITH CIRCUMFLEX | |
276 (?\,C-(B . ?\x00AD) ;; SOFT HYPHEN | |
277 (?\,C/(B . ?\x017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE | |
278 (?\,C0(B . ?\x00B0) ;; DEGREE SIGN | |
279 (?\,C1(B . ?\x0127) ;; LATIN SMALL LETTER H WITH STROKE | |
280 (?\,C2(B . ?\x00B2) ;; SUPERSCRIPT TWO | |
281 (?\,C3(B . ?\x00B3) ;; SUPERSCRIPT THREE | |
282 (?\,C4(B . ?\x00B4) ;; ACUTE ACCENT | |
283 (?\,C5(B . ?\x00B5) ;; MICRO SIGN | |
284 (?\,C6(B . ?\x0125) ;; LATIN SMALL LETTER H WITH CIRCUMFLEX | |
285 (?\,C7(B . ?\x00B7) ;; MIDDLE DOT | |
286 (?\,C8(B . ?\x00B8) ;; CEDILLA | |
287 (?\,C9(B . ?\x0131) ;; LATIN SMALL LETTER DOTLESS I | |
288 (?\,C:(B . ?\x015F) ;; LATIN SMALL LETTER S WITH CEDILLA | |
289 (?\,C;(B . ?\x011F) ;; LATIN SMALL LETTER G WITH BREVE | |
290 (?\,C<(B . ?\x0135) ;; LATIN SMALL LETTER J WITH CIRCUMFLEX | |
291 (?\,C=(B . ?\x00BD) ;; VULGAR FRACTION ONE HALF | |
292 (?\,C?(B . ?\x017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE | |
293 (?\,C@(B . ?\x00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE | |
294 (?\,CA(B . ?\x00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE | |
295 (?\,CB(B . ?\x00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX | |
296 (?\,CD(B . ?\x00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS | |
297 (?\,CE(B . ?\x010A) ;; LATIN CAPITAL LETTER C WITH DOT ABOVE | |
298 (?\,CF(B . ?\x0108) ;; LATIN CAPITAL LETTER C WITH CIRCUMFLEX | |
299 (?\,CG(B . ?\x00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA | |
300 (?\,CH(B . ?\x00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE | |
301 (?\,CI(B . ?\x00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE | |
302 (?\,CJ(B . ?\x00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX | |
303 (?\,CK(B . ?\x00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS | |
304 (?\,CL(B . ?\x00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE | |
305 (?\,CM(B . ?\x00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE | |
306 (?\,CN(B . ?\x00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX | |
307 (?\,CO(B . ?\x00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS | |
308 (?\,CQ(B . ?\x00D1) ;; LATIN CAPITAL LETTER N WITH TILDE | |
309 (?\,CR(B . ?\x00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE | |
310 (?\,CS(B . ?\x00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE | |
311 (?\,CT(B . ?\x00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX | |
312 (?\,CU(B . ?\x0120) ;; LATIN CAPITAL LETTER G WITH DOT ABOVE | |
313 (?\,CV(B . ?\x00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS | |
314 (?\,CW(B . ?\x00D7) ;; MULTIPLICATION SIGN | |
315 (?\,CX(B . ?\x011C) ;; LATIN CAPITAL LETTER G WITH CIRCUMFLEX | |
316 (?\,CY(B . ?\x00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE | |
317 (?\,CZ(B . ?\x00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE | |
318 (?\,C[(B . ?\x00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX | |
319 (?\,C\(B . ?\x00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS | |
320 (?\,C](B . ?\x016C) ;; LATIN CAPITAL LETTER U WITH BREVE | |
321 (?\,C^(B . ?\x015C) ;; LATIN CAPITAL LETTER S WITH CIRCUMFLEX | |
322 (?\,C_(B . ?\x00DF) ;; LATIN SMALL LETTER SHARP S | |
323 (?\,C`(B . ?\x00E0) ;; LATIN SMALL LETTER A WITH GRAVE | |
324 (?\,Ca(B . ?\x00E1) ;; LATIN SMALL LETTER A WITH ACUTE | |
325 (?\,Cb(B . ?\x00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX | |
326 (?\,Cd(B . ?\x00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS | |
327 (?\,Ce(B . ?\x010B) ;; LATIN SMALL LETTER C WITH DOT ABOVE | |
328 (?\,Cf(B . ?\x0109) ;; LATIN SMALL LETTER C WITH CIRCUMFLEX | |
329 (?\,Cg(B . ?\x00E7) ;; LATIN SMALL LETTER C WITH CEDILLA | |
330 (?\,Ch(B . ?\x00E8) ;; LATIN SMALL LETTER E WITH GRAVE | |
331 (?\,Ci(B . ?\x00E9) ;; LATIN SMALL LETTER E WITH ACUTE | |
332 (?\,Cj(B . ?\x00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX | |
333 (?\,Ck(B . ?\x00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS | |
334 (?\,Cl(B . ?\x00EC) ;; LATIN SMALL LETTER I WITH GRAVE | |
335 (?\,Cm(B . ?\x00ED) ;; LATIN SMALL LETTER I WITH ACUTE | |
336 (?\,Cn(B . ?\x00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX | |
337 (?\,Co(B . ?\x00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS | |
338 (?\,Cq(B . ?\x00F1) ;; LATIN SMALL LETTER N WITH TILDE | |
339 (?\,Cr(B . ?\x00F2) ;; LATIN SMALL LETTER O WITH GRAVE | |
340 (?\,Cs(B . ?\x00F3) ;; LATIN SMALL LETTER O WITH ACUTE | |
341 (?\,Ct(B . ?\x00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX | |
342 (?\,Cu(B . ?\x0121) ;; LATIN SMALL LETTER G WITH DOT ABOVE | |
343 (?\,Cv(B . ?\x00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS | |
344 (?\,Cw(B . ?\x00F7) ;; DIVISION SIGN | |
345 (?\,Cx(B . ?\x011D) ;; LATIN SMALL LETTER G WITH CIRCUMFLEX | |
346 (?\,Cy(B . ?\x00F9) ;; LATIN SMALL LETTER U WITH GRAVE | |
347 (?\,Cz(B . ?\x00FA) ;; LATIN SMALL LETTER U WITH ACUTE | |
348 (?\,C{(B . ?\x00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX | |
349 (?\,C|(B . ?\x00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS | |
350 (?\,C}(B . ?\x016D) ;; LATIN SMALL LETTER U WITH BREVE | |
351 (?\,C~(B . ?\x015D) ;; LATIN SMALL LETTER S WITH CIRCUMFLEX | |
352 (?\,C(B . ?\x02D9) ;; DOT ABOVE | |
353 )) | |
354 | |
355 (ucs-8859-4-alist | |
356 '((?\,D (B . ?\x00A0) ;; NO-BREAK SPACE | |
357 (?\,D!(B . ?\x0104) ;; LATIN CAPITAL LETTER A WITH OGONEK | |
358 (?\,D"(B . ?\x0138) ;; LATIN SMALL LETTER KRA | |
359 (?\,D#(B . ?\x0156) ;; LATIN CAPITAL LETTER R WITH CEDILLA | |
360 (?\,D$(B . ?\x00A4) ;; CURRENCY SIGN | |
361 (?\,D%(B . ?\x0128) ;; LATIN CAPITAL LETTER I WITH TILDE | |
362 (?\,D&(B . ?\x013B) ;; LATIN CAPITAL LETTER L WITH CEDILLA | |
363 (?\,D'(B . ?\x00A7) ;; SECTION SIGN | |
364 (?\,D((B . ?\x00A8) ;; DIAERESIS | |
365 (?\,D)(B . ?\x0160) ;; LATIN CAPITAL LETTER S WITH CARON | |
366 (?\,D*(B . ?\x0112) ;; LATIN CAPITAL LETTER E WITH MACRON | |
367 (?\,D+(B . ?\x0122) ;; LATIN CAPITAL LETTER G WITH CEDILLA | |
368 (?\,D,(B . ?\x0166) ;; LATIN CAPITAL LETTER T WITH STROKE | |
369 (?\,D-(B . ?\x00AD) ;; SOFT HYPHEN | |
370 (?\,D.(B . ?\x017D) ;; LATIN CAPITAL LETTER Z WITH CARON | |
371 (?\,D/(B . ?\x00AF) ;; MACRON | |
372 (?\,D0(B . ?\x00B0) ;; DEGREE SIGN | |
373 (?\,D1(B . ?\x0105) ;; LATIN SMALL LETTER A WITH OGONEK | |
374 (?\,D2(B . ?\x02DB) ;; OGONEK | |
375 (?\,D3(B . ?\x0157) ;; LATIN SMALL LETTER R WITH CEDILLA | |
376 (?\,D4(B . ?\x00B4) ;; ACUTE ACCENT | |
377 (?\,D5(B . ?\x0129) ;; LATIN SMALL LETTER I WITH TILDE | |
378 (?\,D6(B . ?\x013C) ;; LATIN SMALL LETTER L WITH CEDILLA | |
379 (?\,D7(B . ?\x02C7) ;; CARON | |
380 (?\,D8(B . ?\x00B8) ;; CEDILLA | |
381 (?\,D9(B . ?\x0161) ;; LATIN SMALL LETTER S WITH CARON | |
382 (?\,D:(B . ?\x0113) ;; LATIN SMALL LETTER E WITH MACRON | |
383 (?\,D;(B . ?\x0123) ;; LATIN SMALL LETTER G WITH CEDILLA | |
384 (?\,D<(B . ?\x0167) ;; LATIN SMALL LETTER T WITH STROKE | |
385 (?\,D=(B . ?\x014A) ;; LATIN CAPITAL LETTER ENG | |
386 (?\,D>(B . ?\x017E) ;; LATIN SMALL LETTER Z WITH CARON | |
387 (?\,D?(B . ?\x014B) ;; LATIN SMALL LETTER ENG | |
388 (?\,D@(B . ?\x0100) ;; LATIN CAPITAL LETTER A WITH MACRON | |
389 (?\,DA(B . ?\x00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE | |
390 (?\,DB(B . ?\x00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX | |
391 (?\,DC(B . ?\x00C3) ;; LATIN CAPITAL LETTER A WITH TILDE | |
392 (?\,DD(B . ?\x00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS | |
393 (?\,DE(B . ?\x00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE | |
394 (?\,DF(B . ?\x00C6) ;; LATIN CAPITAL LETTER AE | |
395 (?\,DG(B . ?\x012E) ;; LATIN CAPITAL LETTER I WITH OGONEK | |
396 (?\,DH(B . ?\x010C) ;; LATIN CAPITAL LETTER C WITH CARON | |
397 (?\,DI(B . ?\x00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE | |
398 (?\,DJ(B . ?\x0118) ;; LATIN CAPITAL LETTER E WITH OGONEK | |
399 (?\,DK(B . ?\x00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS | |
400 (?\,DL(B . ?\x0116) ;; LATIN CAPITAL LETTER E WITH DOT ABOVE | |
401 (?\,DM(B . ?\x00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE | |
402 (?\,DN(B . ?\x00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX | |
403 (?\,DO(B . ?\x012A) ;; LATIN CAPITAL LETTER I WITH MACRON | |
404 (?\,DP(B . ?\x0110) ;; LATIN CAPITAL LETTER D WITH STROKE | |
405 (?\,DQ(B . ?\x0145) ;; LATIN CAPITAL LETTER N WITH CEDILLA | |
406 (?\,DR(B . ?\x014C) ;; LATIN CAPITAL LETTER O WITH MACRON | |
407 (?\,DS(B . ?\x0136) ;; LATIN CAPITAL LETTER K WITH CEDILLA | |
408 (?\,DT(B . ?\x00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX | |
409 (?\,DU(B . ?\x00D5) ;; LATIN CAPITAL LETTER O WITH TILDE | |
410 (?\,DV(B . ?\x00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS | |
411 (?\,DW(B . ?\x00D7) ;; MULTIPLICATION SIGN | |
412 (?\,DX(B . ?\x00D8) ;; LATIN CAPITAL LETTER O WITH STROKE | |
413 (?\,DY(B . ?\x0172) ;; LATIN CAPITAL LETTER U WITH OGONEK | |
414 (?\,DZ(B . ?\x00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE | |
415 (?\,D[(B . ?\x00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX | |
416 (?\,D\(B . ?\x00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS | |
417 (?\,D](B . ?\x0168) ;; LATIN CAPITAL LETTER U WITH TILDE | |
418 (?\,D^(B . ?\x016A) ;; LATIN CAPITAL LETTER U WITH MACRON | |
419 (?\,D_(B . ?\x00DF) ;; LATIN SMALL LETTER SHARP S | |
420 (?\,D`(B . ?\x0101) ;; LATIN SMALL LETTER A WITH MACRON | |
421 (?\,Da(B . ?\x00E1) ;; LATIN SMALL LETTER A WITH ACUTE | |
422 (?\,Db(B . ?\x00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX | |
423 (?\,Dc(B . ?\x00E3) ;; LATIN SMALL LETTER A WITH TILDE | |
424 (?\,Dd(B . ?\x00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS | |
425 (?\,De(B . ?\x00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE | |
426 (?\,Df(B . ?\x00E6) ;; LATIN SMALL LETTER AE | |
427 (?\,Dg(B . ?\x012F) ;; LATIN SMALL LETTER I WITH OGONEK | |
428 (?\,Dh(B . ?\x010D) ;; LATIN SMALL LETTER C WITH CARON | |
429 (?\,Di(B . ?\x00E9) ;; LATIN SMALL LETTER E WITH ACUTE | |
430 (?\,Dj(B . ?\x0119) ;; LATIN SMALL LETTER E WITH OGONEK | |
431 (?\,Dk(B . ?\x00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS | |
432 (?\,Dl(B . ?\x0117) ;; LATIN SMALL LETTER E WITH DOT ABOVE | |
433 (?\,Dm(B . ?\x00ED) ;; LATIN SMALL LETTER I WITH ACUTE | |
434 (?\,Dn(B . ?\x00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX | |
435 (?\,Do(B . ?\x012B) ;; LATIN SMALL LETTER I WITH MACRON | |
436 (?\,Dp(B . ?\x0111) ;; LATIN SMALL LETTER D WITH STROKE | |
437 (?\,Dq(B . ?\x0146) ;; LATIN SMALL LETTER N WITH CEDILLA | |
438 (?\,Dr(B . ?\x014D) ;; LATIN SMALL LETTER O WITH MACRON | |
439 (?\,Ds(B . ?\x0137) ;; LATIN SMALL LETTER K WITH CEDILLA | |
440 (?\,Dt(B . ?\x00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX | |
441 (?\,Du(B . ?\x00F5) ;; LATIN SMALL LETTER O WITH TILDE | |
442 (?\,Dv(B . ?\x00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS | |
443 (?\,Dw(B . ?\x00F7) ;; DIVISION SIGN | |
444 (?\,Dx(B . ?\x00F8) ;; LATIN SMALL LETTER O WITH STROKE | |
445 (?\,Dy(B . ?\x0173) ;; LATIN SMALL LETTER U WITH OGONEK | |
446 (?\,Dz(B . ?\x00FA) ;; LATIN SMALL LETTER U WITH ACUTE | |
447 (?\,D{(B . ?\x00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX | |
448 (?\,D|(B . ?\x00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS | |
449 (?\,D}(B . ?\x0169) ;; LATIN SMALL LETTER U WITH TILDE | |
450 (?\,D~(B . ?\x016B) ;; LATIN SMALL LETTER U WITH MACRON | |
451 (?\,D(B . ?\x02D9) ;; DOT ABOVE | |
452 )) | |
453 | |
454 (ucs-8859-5-alist | |
455 '((?\,L (B . ?\x00A0) ;; NO-BREAK SPACE | |
456 (?\,L!(B . ?\x0401) ;; CYRILLIC CAPITAL LETTER IO | |
457 (?\,L"(B . ?\x0402) ;; CYRILLIC CAPITAL LETTER DJE | |
458 (?\,L#(B . ?\x0403) ;; CYRILLIC CAPITAL LETTER GJE | |
459 (?\,L$(B . ?\x0404) ;; CYRILLIC CAPITAL LETTER UKRAINIAN IE | |
460 (?\,L%(B . ?\x0405) ;; CYRILLIC CAPITAL LETTER DZE | |
461 (?\,L&(B . ?\x0406) ;; CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I | |
462 (?\,L'(B . ?\x0407) ;; CYRILLIC CAPITAL LETTER YI | |
463 (?\,L((B . ?\x0408) ;; CYRILLIC CAPITAL LETTER JE | |
464 (?\,L)(B . ?\x0409) ;; CYRILLIC CAPITAL LETTER LJE | |
465 (?\,L*(B . ?\x040A) ;; CYRILLIC CAPITAL LETTER NJE | |
466 (?\,L+(B . ?\x040B) ;; CYRILLIC CAPITAL LETTER TSHE | |
467 (?\,L,(B . ?\x040C) ;; CYRILLIC CAPITAL LETTER KJE | |
468 (?\,L-(B . ?\x00AD) ;; SOFT HYPHEN | |
469 (?\,L.(B . ?\x040E) ;; CYRILLIC CAPITAL LETTER SHORT U | |
470 (?\,L/(B . ?\x040F) ;; CYRILLIC CAPITAL LETTER DZHE | |
471 (?\,L0(B . ?\x0410) ;; CYRILLIC CAPITAL LETTER A | |
472 (?\,L1(B . ?\x0411) ;; CYRILLIC CAPITAL LETTER BE | |
473 (?\,L2(B . ?\x0412) ;; CYRILLIC CAPITAL LETTER VE | |
474 (?\,L3(B . ?\x0413) ;; CYRILLIC CAPITAL LETTER GHE | |
475 (?\,L4(B . ?\x0414) ;; CYRILLIC CAPITAL LETTER DE | |
476 (?\,L5(B . ?\x0415) ;; CYRILLIC CAPITAL LETTER IE | |
477 (?\,L6(B . ?\x0416) ;; CYRILLIC CAPITAL LETTER ZHE | |
478 (?\,L7(B . ?\x0417) ;; CYRILLIC CAPITAL LETTER ZE | |
479 (?\,L8(B . ?\x0418) ;; CYRILLIC CAPITAL LETTER I | |
480 (?\,L9(B . ?\x0419) ;; CYRILLIC CAPITAL LETTER SHORT I | |
481 (?\,L:(B . ?\x041A) ;; CYRILLIC CAPITAL LETTER KA | |
482 (?\,L;(B . ?\x041B) ;; CYRILLIC CAPITAL LETTER EL | |
483 (?\,L<(B . ?\x041C) ;; CYRILLIC CAPITAL LETTER EM | |
484 (?\,L=(B . ?\x041D) ;; CYRILLIC CAPITAL LETTER EN | |
485 (?\,L>(B . ?\x041E) ;; CYRILLIC CAPITAL LETTER O | |
486 (?\,L?(B . ?\x041F) ;; CYRILLIC CAPITAL LETTER PE | |
487 (?\,L@(B . ?\x0420) ;; CYRILLIC CAPITAL LETTER ER | |
488 (?\,LA(B . ?\x0421) ;; CYRILLIC CAPITAL LETTER ES | |
489 (?\,LB(B . ?\x0422) ;; CYRILLIC CAPITAL LETTER TE | |
490 (?\,LC(B . ?\x0423) ;; CYRILLIC CAPITAL LETTER U | |
491 (?\,LD(B . ?\x0424) ;; CYRILLIC CAPITAL LETTER EF | |
492 (?\,LE(B . ?\x0425) ;; CYRILLIC CAPITAL LETTER HA | |
493 (?\,LF(B . ?\x0426) ;; CYRILLIC CAPITAL LETTER TSE | |
494 (?\,LG(B . ?\x0427) ;; CYRILLIC CAPITAL LETTER CHE | |
495 (?\,LH(B . ?\x0428) ;; CYRILLIC CAPITAL LETTER SHA | |
496 (?\,LI(B . ?\x0429) ;; CYRILLIC CAPITAL LETTER SHCHA | |
497 (?\,LJ(B . ?\x042A) ;; CYRILLIC CAPITAL LETTER HARD SIGN | |
498 (?\,LK(B . ?\x042B) ;; CYRILLIC CAPITAL LETTER YERU | |
499 (?\,LL(B . ?\x042C) ;; CYRILLIC CAPITAL LETTER SOFT SIGN | |
500 (?\,LM(B . ?\x042D) ;; CYRILLIC CAPITAL LETTER E | |
501 (?\,LN(B . ?\x042E) ;; CYRILLIC CAPITAL LETTER YU | |
502 (?\,LO(B . ?\x042F) ;; CYRILLIC CAPITAL LETTER YA | |
503 (?\,LP(B . ?\x0430) ;; CYRILLIC SMALL LETTER A | |
504 (?\,LQ(B . ?\x0431) ;; CYRILLIC SMALL LETTER BE | |
505 (?\,LR(B . ?\x0432) ;; CYRILLIC SMALL LETTER VE | |
506 (?\,LS(B . ?\x0433) ;; CYRILLIC SMALL LETTER GHE | |
507 (?\,LT(B . ?\x0434) ;; CYRILLIC SMALL LETTER DE | |
508 (?\,LU(B . ?\x0435) ;; CYRILLIC SMALL LETTER IE | |
509 (?\,LV(B . ?\x0436) ;; CYRILLIC SMALL LETTER ZHE | |
510 (?\,LW(B . ?\x0437) ;; CYRILLIC SMALL LETTER ZE | |
511 (?\,LX(B . ?\x0438) ;; CYRILLIC SMALL LETTER I | |
512 (?\,LY(B . ?\x0439) ;; CYRILLIC SMALL LETTER SHORT I | |
513 (?\,LZ(B . ?\x043A) ;; CYRILLIC SMALL LETTER KA | |
514 (?\,L[(B . ?\x043B) ;; CYRILLIC SMALL LETTER EL | |
515 (?\,L\(B . ?\x043C) ;; CYRILLIC SMALL LETTER EM | |
516 (?\,L](B . ?\x043D) ;; CYRILLIC SMALL LETTER EN | |
517 (?\,L^(B . ?\x043E) ;; CYRILLIC SMALL LETTER O | |
518 (?\,L_(B . ?\x043F) ;; CYRILLIC SMALL LETTER PE | |
519 (?\,L`(B . ?\x0440) ;; CYRILLIC SMALL LETTER ER | |
520 (?\,La(B . ?\x0441) ;; CYRILLIC SMALL LETTER ES | |
521 (?\,Lb(B . ?\x0442) ;; CYRILLIC SMALL LETTER TE | |
522 (?\,Lc(B . ?\x0443) ;; CYRILLIC SMALL LETTER U | |
523 (?\,Ld(B . ?\x0444) ;; CYRILLIC SMALL LETTER EF | |
524 (?\,Le(B . ?\x0445) ;; CYRILLIC SMALL LETTER HA | |
525 (?\,Lf(B . ?\x0446) ;; CYRILLIC SMALL LETTER TSE | |
526 (?\,Lg(B . ?\x0447) ;; CYRILLIC SMALL LETTER CHE | |
527 (?\,Lh(B . ?\x0448) ;; CYRILLIC SMALL LETTER SHA | |
528 (?\,Li(B . ?\x0449) ;; CYRILLIC SMALL LETTER SHCHA | |
529 (?\,Lj(B . ?\x044A) ;; CYRILLIC SMALL LETTER HARD SIGN | |
530 (?\,Lk(B . ?\x044B) ;; CYRILLIC SMALL LETTER YERU | |
531 (?\,Ll(B . ?\x044C) ;; CYRILLIC SMALL LETTER SOFT SIGN | |
532 (?\,Lm(B . ?\x044D) ;; CYRILLIC SMALL LETTER E | |
533 (?\,Ln(B . ?\x044E) ;; CYRILLIC SMALL LETTER YU | |
534 (?\,Lo(B . ?\x044F) ;; CYRILLIC SMALL LETTER YA | |
535 (?\,Lp(B . ?\x2116) ;; NUMERO SIGN | |
536 (?\,Lq(B . ?\x0451) ;; CYRILLIC SMALL LETTER IO | |
537 (?\,Lr(B . ?\x0452) ;; CYRILLIC SMALL LETTER DJE | |
538 (?\,Ls(B . ?\x0453) ;; CYRILLIC SMALL LETTER GJE | |
539 (?\,Lt(B . ?\x0454) ;; CYRILLIC SMALL LETTER UKRAINIAN IE | |
540 (?\,Lu(B . ?\x0455) ;; CYRILLIC SMALL LETTER DZE | |
541 (?\,Lv(B . ?\x0456) ;; CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I | |
542 (?\,Lw(B . ?\x0457) ;; CYRILLIC SMALL LETTER YI | |
543 (?\,Lx(B . ?\x0458) ;; CYRILLIC SMALL LETTER JE | |
544 (?\,Ly(B . ?\x0459) ;; CYRILLIC SMALL LETTER LJE | |
545 (?\,Lz(B . ?\x045A) ;; CYRILLIC SMALL LETTER NJE | |
546 (?\,L{(B . ?\x045B) ;; CYRILLIC SMALL LETTER TSHE | |
547 (?\,L|(B . ?\x045C) ;; CYRILLIC SMALL LETTER KJE | |
548 (?\,L}(B . ?\x00A7) ;; SECTION SIGN | |
549 (?\,L~(B . ?\x045E) ;; CYRILLIC SMALL LETTER SHORT U | |
550 (?\,L(B . ?\x045F) ;; CYRILLIC SMALL LETTER DZHE | |
551 )) | |
552 | |
553 ;; Arabic probably isn't so useful in the absence of Arabic | |
554 ;; language support. | |
555 (ucs-8859-6-alist | |
556 '((?,G (B . ?\x00A0) ;; NO-BREAK SPACE | |
557 (?,G$(B . ?\x00A4) ;; CURRENCY SIGN | |
558 (?,G,(B . ?\x060C) ;; ARABIC COMMA | |
559 (?,G-(B . ?\x00AD) ;; SOFT HYPHEN | |
560 (?,G;(B . ?\x061B) ;; ARABIC SEMICOLON | |
561 (?,G?(B . ?\x061F) ;; ARABIC QUESTION MARK | |
562 (?,GA(B . ?\x0621) ;; ARABIC LETTER HAMZA | |
563 (?,GB(B . ?\x0622) ;; ARABIC LETTER ALEF WITH MADDA ABOVE | |
564 (?,GC(B . ?\x0623) ;; ARABIC LETTER ALEF WITH HAMZA ABOVE | |
565 (?,GD(B . ?\x0624) ;; ARABIC LETTER WAW WITH HAMZA ABOVE | |
566 (?,GE(B . ?\x0625) ;; ARABIC LETTER ALEF WITH HAMZA BELOW | |
567 (?,GF(B . ?\x0626) ;; ARABIC LETTER YEH WITH HAMZA ABOVE | |
568 (?,GG(B . ?\x0627) ;; ARABIC LETTER ALEF | |
569 (?,GH(B . ?\x0628) ;; ARABIC LETTER BEH | |
570 (?,GI(B . ?\x0629) ;; ARABIC LETTER TEH MARBUTA | |
571 (?,GJ(B . ?\x062A) ;; ARABIC LETTER TEH | |
572 (?,GK(B . ?\x062B) ;; ARABIC LETTER THEH | |
573 (?,GL(B . ?\x062C) ;; ARABIC LETTER JEEM | |
574 (?,GM(B . ?\x062D) ;; ARABIC LETTER HAH | |
575 (?,GN(B . ?\x062E) ;; ARABIC LETTER KHAH | |
576 (?,GO(B . ?\x062F) ;; ARABIC LETTER DAL | |
577 (?,GP(B . ?\x0630) ;; ARABIC LETTER THAL | |
578 (?,GQ(B . ?\x0631) ;; ARABIC LETTER REH | |
579 (?,GR(B . ?\x0632) ;; ARABIC LETTER ZAIN | |
580 (?,GS(B . ?\x0633) ;; ARABIC LETTER SEEN | |
581 (?,GT(B . ?\x0634) ;; ARABIC LETTER SHEEN | |
582 (?,GU(B . ?\x0635) ;; ARABIC LETTER SAD | |
583 (?,GV(B . ?\x0636) ;; ARABIC LETTER DAD | |
584 (?,GW(B . ?\x0637) ;; ARABIC LETTER TAH | |
585 (?,GX(B . ?\x0638) ;; ARABIC LETTER ZAH | |
586 (?,GY(B . ?\x0639) ;; ARABIC LETTER AIN | |
587 (?,GZ(B . ?\x063A) ;; ARABIC LETTER GHAIN | |
588 (?,G`(B . ?\x0640) ;; ARABIC TATWEEL | |
589 (?,Ga(B . ?\x0641) ;; ARABIC LETTER FEH | |
590 (?,Gb(B . ?\x0642) ;; ARABIC LETTER QAF | |
591 (?,Gc(B . ?\x0643) ;; ARABIC LETTER KAF | |
592 (?,Gd(B . ?\x0644) ;; ARABIC LETTER LAM | |
593 (?,Ge(B . ?\x0645) ;; ARABIC LETTER MEEM | |
594 (?,Gf(B . ?\x0646) ;; ARABIC LETTER NOON | |
595 (?,Gg(B . ?\x0647) ;; ARABIC LETTER HEH | |
596 (?,Gh(B . ?\x0648) ;; ARABIC LETTER WAW | |
597 (?,Gi(B . ?\x0649) ;; ARABIC LETTER ALEF MAKSURA | |
598 (?,Gj(B . ?\x064A) ;; ARABIC LETTER YEH | |
599 (?,Gk(B . ?\x064B) ;; ARABIC FATHATAN | |
600 (?,Gl(B . ?\x064C) ;; ARABIC DAMMATAN | |
601 (?,Gm(B . ?\x064D) ;; ARABIC KASRATAN | |
602 (?,Gn(B . ?\x064E) ;; ARABIC FATHA | |
603 (?,Go(B . ?\x064F) ;; ARABIC DAMMA | |
604 (?,Gp(B . ?\x0650) ;; ARABIC KASRA | |
605 (?,Gq(B . ?\x0651) ;; ARABIC SHADDA | |
606 (?,Gr(B . ?\x0652) ;; ARABIC SUKUN | |
607 )) | |
608 | |
609 (ucs-8859-7-alist | |
610 '((?\,F (B . ?\x00A0) ;; NO-BREAK SPACE | |
611 (?\,F!(B . ?\x2018) ;; LEFT SINGLE QUOTATION MARK | |
612 (?\,F"(B . ?\x2019) ;; RIGHT SINGLE QUOTATION MARK | |
613 (?\,F#(B . ?\x00A3) ;; POUND SIGN | |
86381
5104ff34254c
(ucs-8859-7-alist): Update the table.
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
614 (?\,F$(B . ?\x20AC) ;; EURO SIGN |
5104ff34254c
(ucs-8859-7-alist): Update the table.
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
615 (?\,F%(B . ?\x20AF) ;; DRACHMA SIGN |
41878 | 616 (?\,F&(B . ?\x00A6) ;; BROKEN BAR |
617 (?\,F'(B . ?\x00A7) ;; SECTION SIGN | |
618 (?\,F((B . ?\x00A8) ;; DIAERESIS | |
619 (?\,F)(B . ?\x00A9) ;; COPYRIGHT SIGN | |
86381
5104ff34254c
(ucs-8859-7-alist): Update the table.
Kenichi Handa <handa@m17n.org>
parents:
78310
diff
changeset
|
620 (?\,F*(B . ?\x037A) ;; GREEK YPOGEGRAMMENI |
41878 | 621 (?\,F+(B . ?\x00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK |
622 (?\,F,(B . ?\x00AC) ;; NOT SIGN | |
623 (?\,F-(B . ?\x00AD) ;; SOFT HYPHEN | |
624 (?\,F/(B . ?\x2015) ;; HORIZONTAL BAR | |
625 (?\,F0(B . ?\x00B0) ;; DEGREE SIGN | |
626 (?\,F1(B . ?\x00B1) ;; PLUS-MINUS SIGN | |
627 (?\,F2(B . ?\x00B2) ;; SUPERSCRIPT TWO | |
628 (?\,F3(B . ?\x00B3) ;; SUPERSCRIPT THREE | |
629 (?\,F4(B . ?\x0384) ;; GREEK TONOS | |
630 (?\,F5(B . ?\x0385) ;; GREEK DIALYTIKA TONOS | |
631 (?\,F6(B . ?\x0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS | |
632 (?\,F7(B . ?\x00B7) ;; MIDDLE DOT | |
633 (?\,F8(B . ?\x0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS | |
634 (?\,F9(B . ?\x0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS | |
635 (?\,F:(B . ?\x038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS | |
636 (?\,F;(B . ?\x00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK | |
637 (?\,F<(B . ?\x038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS | |
638 (?\,F=(B . ?\x00BD) ;; VULGAR FRACTION ONE HALF | |
639 (?\,F>(B . ?\x038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS | |
640 (?\,F?(B . ?\x038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS | |
641 (?\,F@(B . ?\x0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS | |
642 (?\,FA(B . ?\x0391) ;; GREEK CAPITAL LETTER ALPHA | |
643 (?\,FB(B . ?\x0392) ;; GREEK CAPITAL LETTER BETA | |
644 (?\,FC(B . ?\x0393) ;; GREEK CAPITAL LETTER GAMMA | |
645 (?\,FD(B . ?\x0394) ;; GREEK CAPITAL LETTER DELTA | |
646 (?\,FE(B . ?\x0395) ;; GREEK CAPITAL LETTER EPSILON | |
647 (?\,FF(B . ?\x0396) ;; GREEK CAPITAL LETTER ZETA | |
648 (?\,FG(B . ?\x0397) ;; GREEK CAPITAL LETTER ETA | |
649 (?\,FH(B . ?\x0398) ;; GREEK CAPITAL LETTER THETA | |
650 (?\,FI(B . ?\x0399) ;; GREEK CAPITAL LETTER IOTA | |
651 (?\,FJ(B . ?\x039A) ;; GREEK CAPITAL LETTER KAPPA | |
652 (?\,FK(B . ?\x039B) ;; GREEK CAPITAL LETTER LAMDA | |
653 (?\,FL(B . ?\x039C) ;; GREEK CAPITAL LETTER MU | |
654 (?\,FM(B . ?\x039D) ;; GREEK CAPITAL LETTER NU | |
655 (?\,FN(B . ?\x039E) ;; GREEK CAPITAL LETTER XI | |
656 (?\,FO(B . ?\x039F) ;; GREEK CAPITAL LETTER OMICRON | |
657 (?\,FP(B . ?\x03A0) ;; GREEK CAPITAL LETTER PI | |
658 (?\,FQ(B . ?\x03A1) ;; GREEK CAPITAL LETTER RHO | |
659 (?\,FS(B . ?\x03A3) ;; GREEK CAPITAL LETTER SIGMA | |
660 (?\,FT(B . ?\x03A4) ;; GREEK CAPITAL LETTER TAU | |
661 (?\,FU(B . ?\x03A5) ;; GREEK CAPITAL LETTER UPSILON | |
662 (?\,FV(B . ?\x03A6) ;; GREEK CAPITAL LETTER PHI | |
663 (?\,FW(B . ?\x03A7) ;; GREEK CAPITAL LETTER CHI | |
664 (?\,FX(B . ?\x03A8) ;; GREEK CAPITAL LETTER PSI | |
665 (?\,FY(B . ?\x03A9) ;; GREEK CAPITAL LETTER OMEGA | |
666 (?\,FZ(B . ?\x03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA | |
667 (?\,F[(B . ?\x03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA | |
668 (?\,F\(B . ?\x03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS | |
669 (?\,F](B . ?\x03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS | |
670 (?\,F^(B . ?\x03AE) ;; GREEK SMALL LETTER ETA WITH TONOS | |
671 (?\,F_(B . ?\x03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS | |
672 (?\,F`(B . ?\x03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS | |
673 (?\,Fa(B . ?\x03B1) ;; GREEK SMALL LETTER ALPHA | |
674 (?\,Fb(B . ?\x03B2) ;; GREEK SMALL LETTER BETA | |
675 (?\,Fc(B . ?\x03B3) ;; GREEK SMALL LETTER GAMMA | |
676 (?\,Fd(B . ?\x03B4) ;; GREEK SMALL LETTER DELTA | |
677 (?\,Fe(B . ?\x03B5) ;; GREEK SMALL LETTER EPSILON | |
678 (?\,Ff(B . ?\x03B6) ;; GREEK SMALL LETTER ZETA | |
679 (?\,Fg(B . ?\x03B7) ;; GREEK SMALL LETTER ETA | |
680 (?\,Fh(B . ?\x03B8) ;; GREEK SMALL LETTER THETA | |
681 (?\,Fi(B . ?\x03B9) ;; GREEK SMALL LETTER IOTA | |
682 (?\,Fj(B . ?\x03BA) ;; GREEK SMALL LETTER KAPPA | |
683 (?\,Fk(B . ?\x03BB) ;; GREEK SMALL LETTER LAMDA | |
684 (?\,Fl(B . ?\x03BC) ;; GREEK SMALL LETTER MU | |
685 (?\,Fm(B . ?\x03BD) ;; GREEK SMALL LETTER NU | |
686 (?\,Fn(B . ?\x03BE) ;; GREEK SMALL LETTER XI | |
687 (?\,Fo(B . ?\x03BF) ;; GREEK SMALL LETTER OMICRON | |
688 (?\,Fp(B . ?\x03C0) ;; GREEK SMALL LETTER PI | |
689 (?\,Fq(B . ?\x03C1) ;; GREEK SMALL LETTER RHO | |
690 (?\,Fr(B . ?\x03C2) ;; GREEK SMALL LETTER FINAL SIGMA | |
691 (?\,Fs(B . ?\x03C3) ;; GREEK SMALL LETTER SIGMA | |
692 (?\,Ft(B . ?\x03C4) ;; GREEK SMALL LETTER TAU | |
693 (?\,Fu(B . ?\x03C5) ;; GREEK SMALL LETTER UPSILON | |
694 (?\,Fv(B . ?\x03C6) ;; GREEK SMALL LETTER PHI | |
695 (?\,Fw(B . ?\x03C7) ;; GREEK SMALL LETTER CHI | |
696 (?\,Fx(B . ?\x03C8) ;; GREEK SMALL LETTER PSI | |
697 (?\,Fy(B . ?\x03C9) ;; GREEK SMALL LETTER OMEGA | |
698 (?\,Fz(B . ?\x03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA | |
699 (?\,F{(B . ?\x03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA | |
700 (?\,F|(B . ?\x03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS | |
701 (?\,F}(B . ?\x03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS | |
702 (?\,F~(B . ?\x03CE) ;; GREEK SMALL LETTER OMEGA WITH TONOS | |
703 )) | |
704 | |
705 (ucs-8859-8-alist | |
706 '((?\,H (B . ?\x00A0) ;; NO-BREAK SPACE | |
707 (?\,H"(B . ?\x00A2) ;; CENT SIGN | |
708 (?\,H#(B . ?\x00A3) ;; POUND SIGN | |
709 (?\,H$(B . ?\x00A4) ;; CURRENCY SIGN | |
710 (?\,H%(B . ?\x00A5) ;; YEN SIGN | |
711 (?\,H&(B . ?\x00A6) ;; BROKEN BAR | |
712 (?\,H'(B . ?\x00A7) ;; SECTION SIGN | |
713 (?\,H((B . ?\x00A8) ;; DIAERESIS | |
714 (?\,H)(B . ?\x00A9) ;; COPYRIGHT SIGN | |
715 (?\,H*(B . ?\x00D7) ;; MULTIPLICATION SIGN | |
716 (?\,H+(B . ?\x00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK | |
717 (?\,H,(B . ?\x00AC) ;; NOT SIGN | |
718 (?\,H-(B . ?\x00AD) ;; SOFT HYPHEN | |
719 (?\,H.(B . ?\x00AE) ;; REGISTERED SIGN | |
720 (?\,H/(B . ?\x00AF) ;; MACRON | |
721 (?\,H0(B . ?\x00B0) ;; DEGREE SIGN | |
722 (?\,H1(B . ?\x00B1) ;; PLUS-MINUS SIGN | |
723 (?\,H2(B . ?\x00B2) ;; SUPERSCRIPT TWO | |
724 (?\,H3(B . ?\x00B3) ;; SUPERSCRIPT THREE | |
725 (?\,H4(B . ?\x00B4) ;; ACUTE ACCENT | |
726 (?\,H5(B . ?\x00B5) ;; MICRO SIGN | |
727 (?\,H6(B . ?\x00B6) ;; PILCROW SIGN | |
728 (?\,H7(B . ?\x00B7) ;; MIDDLE DOT | |
729 (?\,H8(B . ?\x00B8) ;; CEDILLA | |
730 (?\,H9(B . ?\x00B9) ;; SUPERSCRIPT ONE | |
731 (?\,H:(B . ?\x00F7) ;; DIVISION SIGN | |
732 (?\,H;(B . ?\x00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK | |
733 (?\,H<(B . ?\x00BC) ;; VULGAR FRACTION ONE QUARTER | |
734 (?\,H=(B . ?\x00BD) ;; VULGAR FRACTION ONE HALF | |
735 (?\,H>(B . ?\x00BE) ;; VULGAR FRACTION THREE QUARTERS | |
42477
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
736 ;; These are commented out since the current 8859-8 standard |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
737 ;; does not yet define these codepoints, although there are |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
738 ;; drafts which do). |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
739 ; (?\,H@(B . ?\x05B0) ;; HEBREW POINT SHEVA |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
740 ; (?\,HA(B . ?\x05B1) ;; HEBREW POINT HATAF SEGOL |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
741 ; (?\,HB(B . ?\x05B2) ;; HEBREW POINT HATAF PATAH |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
742 ; (?\,HC(B . ?\x05B3) ;; HEBREW POINT HATAF QAMATS |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
743 ; (?\,HD(B . ?\x05B4) ;; HEBREW POINT HIRIQ |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
744 ; (?\,HE(B . ?\x05B5) ;; HEBREW POINT TSERE |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
745 ; (?\,HF(B . ?\x05B6) ;; HEBREW POINT SEGOL |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
746 ; (?\,HG(B . ?\x05B7) ;; HEBREW POINT PATAH |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
747 ; (?\,HH(B . ?\x05B8) ;; HEBREW POINT QAMATS |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
748 ; (?\,HI(B . ?\x05B9) ;; HEBREW POINT HOLAM |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
749 ; (?\,HK(B . ?\x05BB) ;; HEBREW POINT QUBUTS |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
750 ; (?\,HL(B . ?\x05BC) ;; HEBREW POINT DAGESH |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
751 ; (?\,HM(B . ?\x05BD) ;; HEBREW POINT METEG |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
752 ; (?\,HN(B . ?\x05BE) ;; HEBREW POINT MAQAF |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
753 ; (?\,HO(B . ?\x05BF) ;; HEBREW POINT RAFE |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
754 ; (?\,HP(B . ?\x05C0) ;; HEBREW PUNCTUATION PASEQ |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
755 ; (?\,HQ(B . ?\x05C1) ;; HEBREW POINT SHIN DOT |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
756 ; (?\,HR(B . ?\x05C2) ;; HEBREW POINT SIN DOT |
039ec340e4e4
(ucs-8859-8-alist): Comment away Hebrew points.
Eli Zaretskii <eliz@gnu.org>
parents:
42320
diff
changeset
|
757 ; (?\,HS(B . ?\x05C3) ;; HEBREW PUNCTUATION SOF PASUQ |
41880
bf766c46ee9d
(ucs-8859-8-alist): Add Hebrew
Eli Zaretskii <eliz@gnu.org>
parents:
41878
diff
changeset
|
758 (?\,H[(B . ?\x202D) ;; LEFT-TO-RIGHT OVERRIDE |
bf766c46ee9d
(ucs-8859-8-alist): Add Hebrew
Eli Zaretskii <eliz@gnu.org>
parents:
41878
diff
changeset
|
759 (?\,H\(B . ?\x202E) ;; RIGHT-TO-LEFT OVERRIDE |
bf766c46ee9d
(ucs-8859-8-alist): Add Hebrew
Eli Zaretskii <eliz@gnu.org>
parents:
41878
diff
changeset
|
760 (?\,H](B . ?\x202C) ;; POP DIRECTIONAL FORMATTING |
41878 | 761 (?\,H_(B . ?\x2017) ;; DOUBLE LOW LINE |
762 (?\,H`(B . ?\x05D0) ;; HEBREW LETTER ALEF | |
763 (?\,Ha(B . ?\x05D1) ;; HEBREW LETTER BET | |
764 (?\,Hb(B . ?\x05D2) ;; HEBREW LETTER GIMEL | |
765 (?\,Hc(B . ?\x05D3) ;; HEBREW LETTER DALET | |
766 (?\,Hd(B . ?\x05D4) ;; HEBREW LETTER HE | |
767 (?\,He(B . ?\x05D5) ;; HEBREW LETTER VAV | |
768 (?\,Hf(B . ?\x05D6) ;; HEBREW LETTER ZAYIN | |
769 (?\,Hg(B . ?\x05D7) ;; HEBREW LETTER HET | |
770 (?\,Hh(B . ?\x05D8) ;; HEBREW LETTER TET | |
771 (?\,Hi(B . ?\x05D9) ;; HEBREW LETTER YOD | |
772 (?\,Hj(B . ?\x05DA) ;; HEBREW LETTER FINAL KAF | |
773 (?\,Hk(B . ?\x05DB) ;; HEBREW LETTER KAF | |
774 (?\,Hl(B . ?\x05DC) ;; HEBREW LETTER LAMED | |
775 (?\,Hm(B . ?\x05DD) ;; HEBREW LETTER FINAL MEM | |
776 (?\,Hn(B . ?\x05DE) ;; HEBREW LETTER MEM | |
777 (?\,Ho(B . ?\x05DF) ;; HEBREW LETTER FINAL NUN | |
778 (?\,Hp(B . ?\x05E0) ;; HEBREW LETTER NUN | |
779 (?\,Hq(B . ?\x05E1) ;; HEBREW LETTER SAMEKH | |
780 (?\,Hr(B . ?\x05E2) ;; HEBREW LETTER AYIN | |
781 (?\,Hs(B . ?\x05E3) ;; HEBREW LETTER FINAL PE | |
782 (?\,Ht(B . ?\x05E4) ;; HEBREW LETTER PE | |
783 (?\,Hu(B . ?\x05E5) ;; HEBREW LETTER FINAL TSADI | |
784 (?\,Hv(B . ?\x05E6) ;; HEBREW LETTER TSADI | |
785 (?\,Hw(B . ?\x05E7) ;; HEBREW LETTER QOF | |
786 (?\,Hx(B . ?\x05E8) ;; HEBREW LETTER RESH | |
787 (?\,Hy(B . ?\x05E9) ;; HEBREW LETTER SHIN | |
788 (?\,Hz(B . ?\x05EA) ;; HEBREW LETTER TAV | |
41880
bf766c46ee9d
(ucs-8859-8-alist): Add Hebrew
Eli Zaretskii <eliz@gnu.org>
parents:
41878
diff
changeset
|
789 (?\,H{(B . ?\x202A) ;; LEFT-TO-RIGHT EMBEDDING |
bf766c46ee9d
(ucs-8859-8-alist): Add Hebrew
Eli Zaretskii <eliz@gnu.org>
parents:
41878
diff
changeset
|
790 (?\,H|(B . ?\x202B) ;; RIGHT-TO-LEFT EMBEDDING |
41878 | 791 (?\,H}(B . ?\x200E) ;; LEFT-TO-RIGHT MARK |
792 (?\,H~(B . ?\x200F) ;; RIGHT-TO-LEFT MARK | |
793 )) | |
794 | |
795 (ucs-8859-9-alist | |
796 '((?\,M (B . ?\x00A0) ;; NO-BREAK SPACE | |
797 (?\,M!(B . ?\x00A1) ;; INVERTED EXCLAMATION MARK | |
798 (?\,M"(B . ?\x00A2) ;; CENT SIGN | |
799 (?\,M#(B . ?\x00A3) ;; POUND SIGN | |
800 (?\,M$(B . ?\x00A4) ;; CURRENCY SIGN | |
801 (?\,M%(B . ?\x00A5) ;; YEN SIGN | |
802 (?\,M&(B . ?\x00A6) ;; BROKEN BAR | |
803 (?\,M'(B . ?\x00A7) ;; SECTION SIGN | |
804 (?\,M((B . ?\x00A8) ;; DIAERESIS | |
805 (?\,M)(B . ?\x00A9) ;; COPYRIGHT SIGN | |
806 (?\,M*(B . ?\x00AA) ;; FEMININE ORDINAL INDICATOR | |
807 (?\,M+(B . ?\x00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK | |
808 (?\,M,(B . ?\x00AC) ;; NOT SIGN | |
809 (?\,M-(B . ?\x00AD) ;; SOFT HYPHEN | |
810 (?\,M.(B . ?\x00AE) ;; REGISTERED SIGN | |
811 (?\,M/(B . ?\x00AF) ;; MACRON | |
812 (?\,M0(B . ?\x00B0) ;; DEGREE SIGN | |
813 (?\,M1(B . ?\x00B1) ;; PLUS-MINUS SIGN | |
814 (?\,M2(B . ?\x00B2) ;; SUPERSCRIPT TWO | |
815 (?\,M3(B . ?\x00B3) ;; SUPERSCRIPT THREE | |
816 (?\,M4(B . ?\x00B4) ;; ACUTE ACCENT | |
817 (?\,M5(B . ?\x00B5) ;; MICRO SIGN | |
818 (?\,M6(B . ?\x00B6) ;; PILCROW SIGN | |
819 (?\,M7(B . ?\x00B7) ;; MIDDLE DOT | |
820 (?\,M8(B . ?\x00B8) ;; CEDILLA | |
821 (?\,M9(B . ?\x00B9) ;; SUPERSCRIPT ONE | |
822 (?\,M:(B . ?\x00BA) ;; MASCULINE ORDINAL INDICATOR | |
823 (?\,M;(B . ?\x00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK | |
824 (?\,M<(B . ?\x00BC) ;; VULGAR FRACTION ONE QUARTER | |
825 (?\,M=(B . ?\x00BD) ;; VULGAR FRACTION ONE HALF | |
826 (?\,M>(B . ?\x00BE) ;; VULGAR FRACTION THREE QUARTERS | |
827 (?\,M?(B . ?\x00BF) ;; INVERTED QUESTION MARK | |
828 (?\,M@(B . ?\x00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE | |
829 (?\,MA(B . ?\x00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE | |
830 (?\,MB(B . ?\x00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX | |
831 (?\,MC(B . ?\x00C3) ;; LATIN CAPITAL LETTER A WITH TILDE | |
832 (?\,MD(B . ?\x00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS | |
833 (?\,ME(B . ?\x00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE | |
834 (?\,MF(B . ?\x00C6) ;; LATIN CAPITAL LETTER AE | |
835 (?\,MG(B . ?\x00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA | |
836 (?\,MH(B . ?\x00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE | |
837 (?\,MI(B . ?\x00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE | |
838 (?\,MJ(B . ?\x00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX | |
839 (?\,MK(B . ?\x00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS | |
840 (?\,ML(B . ?\x00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE | |
841 (?\,MM(B . ?\x00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE | |
842 (?\,MN(B . ?\x00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX | |
843 (?\,MO(B . ?\x00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS | |
844 (?\,MP(B . ?\x011E) ;; LATIN CAPITAL LETTER G WITH BREVE | |
845 (?\,MQ(B . ?\x00D1) ;; LATIN CAPITAL LETTER N WITH TILDE | |
846 (?\,MR(B . ?\x00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE | |
847 (?\,MS(B . ?\x00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE | |
848 (?\,MT(B . ?\x00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX | |
849 (?\,MU(B . ?\x00D5) ;; LATIN CAPITAL LETTER O WITH TILDE | |
850 (?\,MV(B . ?\x00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS | |
851 (?\,MW(B . ?\x00D7) ;; MULTIPLICATION SIGN | |
852 (?\,MX(B . ?\x00D8) ;; LATIN CAPITAL LETTER O WITH STROKE | |
853 (?\,MY(B . ?\x00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE | |
854 (?\,MZ(B . ?\x00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE | |
855 (?\,M[(B . ?\x00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX | |
856 (?\,M\(B . ?\x00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS | |
857 (?\,M](B . ?\x0130) ;; LATIN CAPITAL LETTER I WITH DOT ABOVE | |
858 (?\,M^(B . ?\x015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA | |
859 (?\,M_(B . ?\x00DF) ;; LATIN SMALL LETTER SHARP S | |
860 (?\,M`(B . ?\x00E0) ;; LATIN SMALL LETTER A WITH GRAVE | |
861 (?\,Ma(B . ?\x00E1) ;; LATIN SMALL LETTER A WITH ACUTE | |
862 (?\,Mb(B . ?\x00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX | |
863 (?\,Mc(B . ?\x00E3) ;; LATIN SMALL LETTER A WITH TILDE | |
864 (?\,Md(B . ?\x00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS | |
865 (?\,Me(B . ?\x00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE | |
866 (?\,Mf(B . ?\x00E6) ;; LATIN SMALL LETTER AE | |
867 (?\,Mg(B . ?\x00E7) ;; LATIN SMALL LETTER C WITH CEDILLA | |
868 (?\,Mh(B . ?\x00E8) ;; LATIN SMALL LETTER E WITH GRAVE | |
869 (?\,Mi(B . ?\x00E9) ;; LATIN SMALL LETTER E WITH ACUTE | |
870 (?\,Mj(B . ?\x00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX | |
871 (?\,Mk(B . ?\x00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS | |
872 (?\,Ml(B . ?\x00EC) ;; LATIN SMALL LETTER I WITH GRAVE | |
873 (?\,Mm(B . ?\x00ED) ;; LATIN SMALL LETTER I WITH ACUTE | |
874 (?\,Mn(B . ?\x00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX | |
875 (?\,Mo(B . ?\x00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS | |
876 (?\,Mp(B . ?\x011F) ;; LATIN SMALL LETTER G WITH BREVE | |
877 (?\,Mq(B . ?\x00F1) ;; LATIN SMALL LETTER N WITH TILDE | |
878 (?\,Mr(B . ?\x00F2) ;; LATIN SMALL LETTER O WITH GRAVE | |
879 (?\,Ms(B . ?\x00F3) ;; LATIN SMALL LETTER O WITH ACUTE | |
880 (?\,Mt(B . ?\x00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX | |
881 (?\,Mu(B . ?\x00F5) ;; LATIN SMALL LETTER O WITH TILDE | |
882 (?\,Mv(B . ?\x00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS | |
883 (?\,Mw(B . ?\x00F7) ;; DIVISION SIGN | |
884 (?\,Mx(B . ?\x00F8) ;; LATIN SMALL LETTER O WITH STROKE | |
885 (?\,My(B . ?\x00F9) ;; LATIN SMALL LETTER U WITH GRAVE | |
886 (?\,Mz(B . ?\x00FA) ;; LATIN SMALL LETTER U WITH ACUTE | |
887 (?\,M{(B . ?\x00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX | |
888 (?\,M|(B . ?\x00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS | |
889 (?\,M}(B . ?\x0131) ;; LATIN SMALL LETTER DOTLESS I | |
890 (?\,M~(B . ?\x015F) ;; LATIN SMALL LETTER S WITH CEDILLA | |
891 (?\,M(B . ?\x00FF) ;; LATIN SMALL LETTER Y WITH DIAERESIS | |
892 )) | |
893 | |
894 (ucs-8859-14-alist | |
895 '((?\,_ (B . ?\x00A0) ;; NO-BREAK SPACE | |
896 (?\,_!(B . ?\x1E02) ;; LATIN CAPITAL LETTER B WITH DOT ABOVE | |
897 (?\,_"(B . ?\x1E03) ;; LATIN SMALL LETTER B WITH DOT ABOVE | |
898 (?\,_#(B . ?\x00A3) ;; POUND SIGN | |
899 (?\,_$(B . ?\x010A) ;; LATIN CAPITAL LETTER C WITH DOT ABOVE | |
900 (?\,_%(B . ?\x010B) ;; LATIN SMALL LETTER C WITH DOT ABOVE | |
901 (?\,_&(B . ?\x1E0A) ;; LATIN CAPITAL LETTER D WITH DOT ABOVE | |
902 (?\,_'(B . ?\x00A7) ;; SECTION SIGN | |
903 (?\,_((B . ?\x1E80) ;; LATIN CAPITAL LETTER W WITH GRAVE | |
904 (?\,_)(B . ?\x00A9) ;; COPYRIGHT SIGN | |
905 (?\,_*(B . ?\x1E82) ;; LATIN CAPITAL LETTER W WITH ACUTE | |
906 (?\,_+(B . ?\x1E0B) ;; LATIN SMALL LETTER D WITH DOT ABOVE | |
907 (?\,_,(B . ?\x1EF2) ;; LATIN CAPITAL LETTER Y WITH GRAVE | |
908 (?\,_-(B . ?\x00AD) ;; SOFT HYPHEN | |
909 (?\,_.(B . ?\x00AE) ;; REGISTERED SIGN | |
910 (?\,_/(B . ?\x0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS | |
911 (?\,_0(B . ?\x1E1E) ;; LATIN CAPITAL LETTER F WITH DOT ABOVE | |
912 (?\,_1(B . ?\x1E1F) ;; LATIN SMALL LETTER F WITH DOT ABOVE | |
913 (?\,_2(B . ?\x0120) ;; LATIN CAPITAL LETTER G WITH DOT ABOVE | |
914 (?\,_3(B . ?\x0121) ;; LATIN SMALL LETTER G WITH DOT ABOVE | |
915 (?\,_4(B . ?\x1E40) ;; LATIN CAPITAL LETTER M WITH DOT ABOVE | |
916 (?\,_5(B . ?\x1E41) ;; LATIN SMALL LETTER M WITH DOT ABOVE | |
917 (?\,_6(B . ?\x00B6) ;; PILCROW SIGN | |
918 (?\,_7(B . ?\x1E56) ;; LATIN CAPITAL LETTER P WITH DOT ABOVE | |
919 (?\,_8(B . ?\x1E81) ;; LATIN SMALL LETTER W WITH GRAVE | |
920 (?\,_9(B . ?\x1E57) ;; LATIN SMALL LETTER P WITH DOT ABOVE | |
921 (?\,_:(B . ?\x1E83) ;; LATIN SMALL LETTER W WITH ACUTE | |
922 (?\,_;(B . ?\x1E60) ;; LATIN CAPITAL LETTER S WITH DOT ABOVE | |
923 (?\,_<(B . ?\x1EF3) ;; LATIN SMALL LETTER Y WITH GRAVE | |
924 (?\,_=(B . ?\x1E84) ;; LATIN CAPITAL LETTER W WITH DIAERESIS | |
925 (?\,_>(B . ?\x1E85) ;; LATIN SMALL LETTER W WITH DIAERESIS | |
926 (?\,_?(B . ?\x1E61) ;; LATIN SMALL LETTER S WITH DOT ABOVE | |
927 (?\,_@(B . ?\x00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE | |
928 (?\,_A(B . ?\x00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE | |
929 (?\,_B(B . ?\x00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX | |
930 (?\,_C(B . ?\x00C3) ;; LATIN CAPITAL LETTER A WITH TILDE | |
931 (?\,_D(B . ?\x00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS | |
932 (?\,_E(B . ?\x00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE | |
933 (?\,_F(B . ?\x00C6) ;; LATIN CAPITAL LETTER AE | |
934 (?\,_G(B . ?\x00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA | |
935 (?\,_H(B . ?\x00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE | |
936 (?\,_I(B . ?\x00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE | |
937 (?\,_J(B . ?\x00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX | |
938 (?\,_K(B . ?\x00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS | |
939 (?\,_L(B . ?\x00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE | |
940 (?\,_M(B . ?\x00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE | |
941 (?\,_N(B . ?\x00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX | |
942 (?\,_O(B . ?\x00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS | |
943 (?\,_P(B . ?\x0174) ;; LATIN CAPITAL LETTER W WITH CIRCUMFLEX | |
944 (?\,_Q(B . ?\x00D1) ;; LATIN CAPITAL LETTER N WITH TILDE | |
945 (?\,_R(B . ?\x00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE | |
946 (?\,_S(B . ?\x00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE | |
947 (?\,_T(B . ?\x00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX | |
948 (?\,_U(B . ?\x00D5) ;; LATIN CAPITAL LETTER O WITH TILDE | |
949 (?\,_V(B . ?\x00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS | |
950 (?\,_W(B . ?\x1E6A) ;; LATIN CAPITAL LETTER T WITH DOT ABOVE | |
951 (?\,_X(B . ?\x00D8) ;; LATIN CAPITAL LETTER O WITH STROKE | |
952 (?\,_Y(B . ?\x00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE | |
953 (?\,_Z(B . ?\x00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE | |
954 (?\,_[(B . ?\x00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX | |
955 (?\,_\(B . ?\x00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS | |
956 (?\,_](B . ?\x00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE | |
957 (?\,_^(B . ?\x0176) ;; LATIN CAPITAL LETTER Y WITH CIRCUMFLEX | |
958 (?\,__(B . ?\x00DF) ;; LATIN SMALL LETTER SHARP S | |
959 (?\,_`(B . ?\x00E0) ;; LATIN SMALL LETTER A WITH GRAVE | |
960 (?\,_a(B . ?\x00E1) ;; LATIN SMALL LETTER A WITH ACUTE | |
961 (?\,_b(B . ?\x00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX | |
962 (?\,_c(B . ?\x00E3) ;; LATIN SMALL LETTER A WITH TILDE | |
963 (?\,_d(B . ?\x00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS | |
964 (?\,_e(B . ?\x00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE | |
965 (?\,_f(B . ?\x00E6) ;; LATIN SMALL LETTER AE | |
966 (?\,_g(B . ?\x00E7) ;; LATIN SMALL LETTER C WITH CEDILLA | |
967 (?\,_h(B . ?\x00E8) ;; LATIN SMALL LETTER E WITH GRAVE | |
968 (?\,_i(B . ?\x00E9) ;; LATIN SMALL LETTER E WITH ACUTE | |
969 (?\,_j(B . ?\x00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX | |
970 (?\,_k(B . ?\x00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS | |
971 (?\,_l(B . ?\x00EC) ;; LATIN SMALL LETTER I WITH GRAVE | |
972 (?\,_m(B . ?\x00ED) ;; LATIN SMALL LETTER I WITH ACUTE | |
973 (?\,_n(B . ?\x00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX | |
974 (?\,_o(B . ?\x00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS | |
975 (?\,_p(B . ?\x0175) ;; LATIN SMALL LETTER W WITH CIRCUMFLEX | |
976 (?\,_q(B . ?\x00F1) ;; LATIN SMALL LETTER N WITH TILDE | |
977 (?\,_r(B . ?\x00F2) ;; LATIN SMALL LETTER O WITH GRAVE | |
978 (?\,_s(B . ?\x00F3) ;; LATIN SMALL LETTER O WITH ACUTE | |
979 (?\,_t(B . ?\x00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX | |
980 (?\,_u(B . ?\x00F5) ;; LATIN SMALL LETTER O WITH TILDE | |
981 (?\,_v(B . ?\x00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS | |
982 (?\,_w(B . ?\x1E6B) ;; LATIN SMALL LETTER T WITH DOT ABOVE | |
983 (?\,_x(B . ?\x00F8) ;; LATIN SMALL LETTER O WITH STROKE | |
984 (?\,_y(B . ?\x00F9) ;; LATIN SMALL LETTER U WITH GRAVE | |
985 (?\,_z(B . ?\x00FA) ;; LATIN SMALL LETTER U WITH ACUTE | |
986 (?\,_{(B . ?\x00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX | |
987 (?\,_|(B . ?\x00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS | |
988 (?\,_}(B . ?\x00FD) ;; LATIN SMALL LETTER Y WITH ACUTE | |
989 (?\,_~(B . ?\x0177) ;; LATIN SMALL LETTER Y WITH CIRCUMFLEX | |
990 (?\,_(B . ?\x00FF) ;; LATIN SMALL LETTER Y WITH DIAERESIS | |
991 )) | |
992 | |
993 (ucs-8859-15-alist | |
994 '((?\,b (B . ?\x00A0) ;; NO-BREAK SPACE | |
995 (?\,b!(B . ?\x00A1) ;; INVERTED EXCLAMATION MARK | |
996 (?\,b"(B . ?\x00A2) ;; CENT SIGN | |
997 (?\,b#(B . ?\x00A3) ;; POUND SIGN | |
998 (?\,b$(B . ?\x20AC) ;; EURO SIGN | |
999 (?\,b%(B . ?\x00A5) ;; YEN SIGN | |
1000 (?\,b&(B . ?\x0160) ;; LATIN CAPITAL LETTER S WITH CARON | |
1001 (?\,b'(B . ?\x00A7) ;; SECTION SIGN | |
1002 (?\,b((B . ?\x0161) ;; LATIN SMALL LETTER S WITH CARON | |
1003 (?\,b)(B . ?\x00A9) ;; COPYRIGHT SIGN | |
1004 (?\,b*(B . ?\x00AA) ;; FEMININE ORDINAL INDICATOR | |
1005 (?\,b+(B . ?\x00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK | |
1006 (?\,b,(B . ?\x00AC) ;; NOT SIGN | |
1007 (?\,b-(B . ?\x00AD) ;; SOFT HYPHEN | |
1008 (?\,b.(B . ?\x00AE) ;; REGISTERED SIGN | |
1009 (?\,b/(B . ?\x00AF) ;; MACRON | |
1010 (?\,b0(B . ?\x00B0) ;; DEGREE SIGN | |
1011 (?\,b1(B . ?\x00B1) ;; PLUS-MINUS SIGN | |
1012 (?\,b2(B . ?\x00B2) ;; SUPERSCRIPT TWO | |
1013 (?\,b3(B . ?\x00B3) ;; SUPERSCRIPT THREE | |
1014 (?\,b4(B . ?\x017D) ;; LATIN CAPITAL LETTER Z WITH CARON | |
1015 (?\,b5(B . ?\x00B5) ;; MICRO SIGN | |
1016 (?\,b6(B . ?\x00B6) ;; PILCROW SIGN | |
1017 (?\,b7(B . ?\x00B7) ;; MIDDLE DOT | |
1018 (?\,b8(B . ?\x017E) ;; LATIN SMALL LETTER Z WITH CARON | |
1019 (?\,b9(B . ?\x00B9) ;; SUPERSCRIPT ONE | |
1020 (?\,b:(B . ?\x00BA) ;; MASCULINE ORDINAL INDICATOR | |
1021 (?\,b;(B . ?\x00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK | |
1022 (?\,b<(B . ?\x0152) ;; LATIN CAPITAL LIGATURE OE | |
1023 (?\,b=(B . ?\x0153) ;; LATIN SMALL LIGATURE OE | |
1024 (?\,b>(B . ?\x0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS | |
1025 (?\,b?(B . ?\x00BF) ;; INVERTED QUESTION MARK | |
1026 (?\,b@(B . ?\x00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE | |
1027 (?\,bA(B . ?\x00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE | |
1028 (?\,bB(B . ?\x00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX | |
1029 (?\,bC(B . ?\x00C3) ;; LATIN CAPITAL LETTER A WITH TILDE | |
1030 (?\,bD(B . ?\x00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS | |
1031 (?\,bE(B . ?\x00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE | |
1032 (?\,bF(B . ?\x00C6) ;; LATIN CAPITAL LETTER AE | |
1033 (?\,bG(B . ?\x00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA | |
1034 (?\,bH(B . ?\x00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE | |
1035 (?\,bI(B . ?\x00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE | |
1036 (?\,bJ(B . ?\x00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX | |
1037 (?\,bK(B . ?\x00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS | |
1038 (?\,bL(B . ?\x00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE | |
1039 (?\,bM(B . ?\x00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE | |
1040 (?\,bN(B . ?\x00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX | |
1041 (?\,bO(B . ?\x00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS | |
1042 (?\,bP(B . ?\x00D0) ;; LATIN CAPITAL LETTER ETH | |
1043 (?\,bQ(B . ?\x00D1) ;; LATIN CAPITAL LETTER N WITH TILDE | |
1044 (?\,bR(B . ?\x00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE | |
1045 (?\,bS(B . ?\x00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE | |
1046 (?\,bT(B . ?\x00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX | |
1047 (?\,bU(B . ?\x00D5) ;; LATIN CAPITAL LETTER O WITH TILDE | |
1048 (?\,bV(B . ?\x00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS | |
1049 (?\,bW(B . ?\x00D7) ;; MULTIPLICATION SIGN | |
1050 (?\,bX(B . ?\x00D8) ;; LATIN CAPITAL LETTER O WITH STROKE | |
1051 (?\,bY(B . ?\x00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE | |
1052 (?\,bZ(B . ?\x00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE | |
1053 (?\,b[(B . ?\x00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX | |
1054 (?\,b\(B . ?\x00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS | |
1055 (?\,b](B . ?\x00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE | |
1056 (?\,b^(B . ?\x00DE) ;; LATIN CAPITAL LETTER THORN | |
1057 (?\,b_(B . ?\x00DF) ;; LATIN SMALL LETTER SHARP S | |
1058 (?\,b`(B . ?\x00E0) ;; LATIN SMALL LETTER A WITH GRAVE | |
1059 (?\,ba(B . ?\x00E1) ;; LATIN SMALL LETTER A WITH ACUTE | |
1060 (?\,bb(B . ?\x00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX | |
1061 (?\,bc(B . ?\x00E3) ;; LATIN SMALL LETTER A WITH TILDE | |
1062 (?\,bd(B . ?\x00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS | |
1063 (?\,be(B . ?\x00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE | |
1064 (?\,bf(B . ?\x00E6) ;; LATIN SMALL LETTER AE | |
1065 (?\,bg(B . ?\x00E7) ;; LATIN SMALL LETTER C WITH CEDILLA | |
1066 (?\,bh(B . ?\x00E8) ;; LATIN SMALL LETTER E WITH GRAVE | |
1067 (?\,bi(B . ?\x00E9) ;; LATIN SMALL LETTER E WITH ACUTE | |
1068 (?\,bj(B . ?\x00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX | |
1069 (?\,bk(B . ?\x00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS | |
1070 (?\,bl(B . ?\x00EC) ;; LATIN SMALL LETTER I WITH GRAVE | |
1071 (?\,bm(B . ?\x00ED) ;; LATIN SMALL LETTER I WITH ACUTE | |
1072 (?\,bn(B . ?\x00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX | |
1073 (?\,bo(B . ?\x00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS | |
1074 (?\,bp(B . ?\x00F0) ;; LATIN SMALL LETTER ETH | |
1075 (?\,bq(B . ?\x00F1) ;; LATIN SMALL LETTER N WITH TILDE | |
1076 (?\,br(B . ?\x00F2) ;; LATIN SMALL LETTER O WITH GRAVE | |
1077 (?\,bs(B . ?\x00F3) ;; LATIN SMALL LETTER O WITH ACUTE | |
1078 (?\,bt(B . ?\x00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX | |
1079 (?\,bu(B . ?\x00F5) ;; LATIN SMALL LETTER O WITH TILDE | |
1080 (?\,bv(B . ?\x00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS | |
1081 (?\,bw(B . ?\x00F7) ;; DIVISION SIGN | |
1082 (?\,bx(B . ?\x00F8) ;; LATIN SMALL LETTER O WITH STROKE | |
1083 (?\,by(B . ?\x00F9) ;; LATIN SMALL LETTER U WITH GRAVE | |
1084 (?\,bz(B . ?\x00FA) ;; LATIN SMALL LETTER U WITH ACUTE | |
1085 (?\,b{(B . ?\x00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX | |
1086 (?\,b|(B . ?\x00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS | |
1087 (?\,b}(B . ?\x00FD) ;; LATIN SMALL LETTER Y WITH ACUTE | |
1088 (?\,b~(B . ?\x00FE) ;; LATIN SMALL LETTER THORN | |
1089 (?\,b(B . ?\x00FF) ;; LATIN SMALL LETTER Y WITH DIAERESIS | |
1090 )) | |
1091 | |
1092 (ucs-8859-1-alist | |
1093 (let ((i 160) | |
1094 l) | |
1095 (while (< i 256) | |
1096 (push (cons (make-char 'latin-iso8859-1 (- i 128)) i) | |
1097 l) | |
1098 (setq i (1+ i))) | |
46506 | 1099 (nreverse l)))) |
41878 | 1100 |
47707 | 1101 ;; Note: Here, using decode-char is safe because |
1102 ;; utf-fragment-on-decoding is by default nil, thus the translation | |
1103 ;; table `utf-translation-table-for-decode' does nothing. | |
1104 | |
41878 | 1105 ;; Convert the lists to the basic char tables. |
49294 | 1106 (dolist (n (list 15 14 9 8 7 6 5 4 3 2 1)) |
47707 | 1107 (let ((alist (symbol-value (intern (format "ucs-8859-%d-alist" n))))) |
1108 (dolist (pair alist) | |
1109 (let ((mule (car pair)) | |
1110 (uc (cdr pair)) | |
1111 (mu (decode-char 'ucs (cdr pair)))) | |
1112 (aset ucs-mule-8859-to-ucs-table mule uc) | |
1113 ;; (aset ucs-ucs-to-mule-8859-table uc mule) | |
1114 ;; (aset ucs-mule-unicode-to-mule-8859 mu mule) | |
1115 (aset ucs-mule-8859-to-mule-unicode mule mu) | |
1116 (aset ucs-mule-to-mule-unicode mule mu))))) | |
41878 | 1117 |
47707 | 1118 ;; Derive tables that can be used as per-coding-system |
1119 ;; `translation-table-for-encode's. | |
49294 | 1120 ;; N.B., there's no 8859-6 coding system. |
49279 | 1121 (dolist (n (list 15 14 9 8 7 5 4 3 2 1)) |
47707 | 1122 (let* ((alist (symbol-value (intern (format "ucs-8859-%d-alist" n)))) |
1123 (encode-translator (set (intern (format "ucs-8859-%d-encode-table" | |
1124 n)) | |
1125 (make-translation-table))) | |
1126 (coding-system | |
1127 (coding-system-base (intern (format "iso-8859-%d" n)))) | |
1128 (dependency (coding-system-get coding-system 'dependency)) | |
1129 elt) | |
1130 ;; Start with the mule-unicode component (except for latin-iso8859-1). | |
1131 (if (/= n 1) | |
1132 (dolist (pair alist) | |
1133 (let ((mule (car pair)) | |
1134 (mu (decode-char 'ucs (cdr pair)))) | |
1135 (aset encode-translator mu mule)))) | |
1136 ;; Find characters from other 8859 sets which map to the same | |
1137 ;; unicode as some character in this set. | |
1138 (map-char-table (lambda (k v) | |
1139 (if (and (setq elt (rassq v alist)) | |
1140 (not (assq k alist))) | |
1141 (aset encode-translator k (car elt)))) | |
1142 ucs-mule-8859-to-ucs-table) | |
1143 (optimize-char-table encode-translator) | |
41878 | 1144 |
47707 | 1145 (or (memq 'unify-8859-on-encoding-mode dependency) |
1146 (setq dependency (cons 'unify-8859-on-encoding-mode dependency))) | |
1147 (or (memq 'unify-8859-on-decoding-mode dependency) | |
1148 (setq dependency (cons 'unify-8859-on-decoding-mode dependency))) | |
1149 (coding-system-put coding-system 'dependency dependency)))) | |
1150 | |
1151 (defun ucs-unify-8859 (for-encode for-decode) | |
1152 "Set up translation-tables for unifying characters from ISO 8859. | |
41878 | 1153 |
1154 On decoding, non-ASCII characters are mapped into the `iso-latin-1' | |
1155 and `mule-unicode-0100-24ff' charsets. On encoding, these are mapped | |
1156 back appropriate for the coding system. | |
1157 | |
1158 With prefix arg, do unification on encoding only, i.e. don't unify | |
1159 everything on input operations." | |
47707 | 1160 (when for-decode |
41878 | 1161 ;; Unify 8859 on decoding. (Non-CCL coding systems only.) |
47707 | 1162 (if utf-fragment-on-decoding |
47386 | 1163 (progn (map-char-table |
1164 (lambda (k v) | |
47707 | 1165 (if v (aset ucs-mule-8859-to-mule-unicode v nil))) |
1166 utf-fragmentation-table) | |
1167 (optimize-char-table ucs-mule-8859-to-mule-unicode)) | |
46506 | 1168 ;; Reset in case it was changed. |
1169 (map-char-table | |
1170 (lambda (k v) | |
47707 | 1171 (if v (aset ucs-mule-8859-to-mule-unicode v k))) |
1172 utf-fragmentation-table)) | |
1173 | |
1174 ;; For non-CCL coding systems (e.g. iso-latin-2). | |
46506 | 1175 (set-char-table-parent standard-translation-table-for-decode |
1176 ucs-mule-8859-to-mule-unicode) | |
47707 | 1177 ;; For CCL coding systems other than mule-utf-* |
1178 (define-translation-table 'ucs-translation-table-for-decode | |
1179 ucs-mule-8859-to-mule-unicode) | |
48232 | 1180 |
1181 ;; Translate Quail input globally. | |
1182 (setq-default translation-table-for-input ucs-mule-to-mule-unicode) | |
48636 | 1183 ;; In case this is set up, but we should use the global |
47707 | 1184 ;; translation-table. |
46506 | 1185 (remove-hook 'minibuffer-setup-hook 'ucs-minibuffer-setup)) |
47707 | 1186 |
1187 (when for-encode | |
1188 ;; Make mule-utf-* encode all characters in ucs-mule-to-mule-unicode. | |
51629
0333f026178a
(ucs-unify-8859, ucs-fragment-8859): Adjusted for the name change:
Kenichi Handa <handa@m17n.org>
parents:
50180
diff
changeset
|
1189 (let ((coding-list '(mule-utf-8 mule-utf-16be mule-utf-16le |
0333f026178a
(ucs-unify-8859, ucs-fragment-8859): Adjusted for the name change:
Kenichi Handa <handa@m17n.org>
parents:
50180
diff
changeset
|
1190 mule-utf-16be-with-signature |
0333f026178a
(ucs-unify-8859, ucs-fragment-8859): Adjusted for the name change:
Kenichi Handa <handa@m17n.org>
parents:
50180
diff
changeset
|
1191 mule-utf-16le-with-signature))) |
47707 | 1192 (define-translation-table 'utf-translation-table-for-encode |
1193 ucs-mule-to-mule-unicode) | |
1194 (dolist (coding coding-list) | |
1195 (set-char-table-parent (coding-system-get coding 'safe-chars) | |
50180
46738c95f450
(ucs-unify-8859): Don't call
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
1196 ucs-mule-to-mule-unicode))) |
41878 | 1197 |
47707 | 1198 ;; Adjust the 8859 coding systems to fragment the unified characters |
1199 ;; on encoding. | |
1200 (dolist (n '(1 2 3 4 5 7 8 9 14 15)) | |
1201 (let* ((coding-system | |
1202 (coding-system-base (intern (format "iso-8859-%d" n)))) | |
1203 (table (symbol-value | |
1204 (intern (format "ucs-8859-%d-encode-table" n)))) | |
1205 (safe (coding-system-get coding-system 'safe-chars))) | |
1206 ;; Actually, the coding system's safe-chars are not normally | |
1207 ;; used after they've been registered, but we might as well | |
1208 ;; record them. Setting the parent here is a convenience. | |
1209 (set-char-table-parent safe table) | |
48185
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
1210 (coding-system-put coding-system 'translation-table-for-encode table))) |
50180
46738c95f450
(ucs-unify-8859): Don't call
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
1211 (add-hook 'minibuffer-setup-hook 'ucs-minibuffer-setup))) |
47707 | 1212 |
1213 (defun ucs-fragment-8859 (for-encode for-decode) | |
41878 | 1214 "Undo the unification done by `ucs-unify-8859'. |
1215 With prefix arg, undo unification on encoding only, i.e. don't undo | |
1216 unification on input operations." | |
47707 | 1217 (when for-decode |
1218 ;; Don't Unify 8859 on decoding. | |
1219 ;; For non-CCL coding systems (e.g. iso-latin-2). | |
46506 | 1220 (set-char-table-parent standard-translation-table-for-decode nil) |
47707 | 1221 ;; For CCL coding systems other than mule-utf-* (e.g. cyrillic-koi8). |
1222 (define-translation-table 'ucs-translation-table-for-decode) | |
48232 | 1223 (setq-default translation-table-for-input nil)) |
47707 | 1224 |
1225 (when for-encode | |
48767 | 1226 ;; Disable mule-utf-* encoding for all characters in |
1227 ;; ucs-mule-to-mule-unicode except what was originally supported | |
1228 ;; and what is translated by utf-translation-table-for-decode when | |
47707 | 1229 ;; `utf-fragment-on-decoding' is non-nil. |
51629
0333f026178a
(ucs-unify-8859, ucs-fragment-8859): Adjusted for the name change:
Kenichi Handa <handa@m17n.org>
parents:
50180
diff
changeset
|
1230 (let ((coding-list '(mule-utf-8 mule-utf-16be mule-utf-16le |
0333f026178a
(ucs-unify-8859, ucs-fragment-8859): Adjusted for the name change:
Kenichi Handa <handa@m17n.org>
parents:
50180
diff
changeset
|
1231 mule-utf-16be-with-signature |
0333f026178a
(ucs-unify-8859, ucs-fragment-8859): Adjusted for the name change:
Kenichi Handa <handa@m17n.org>
parents:
50180
diff
changeset
|
1232 mule-utf-16le-with-signature)) |
47707 | 1233 (safe (coding-system-get 'mule-utf-8 'safe-chars))) |
1234 (dolist (coding coding-list) | |
1235 (set-char-table-parent (coding-system-get coding 'safe-chars) nil)) | |
1236 (if (not utf-fragment-on-decoding) | |
1237 (define-translation-table 'utf-translation-table-for-encode) | |
1238 (define-translation-table 'utf-translation-table-for-encode | |
50180
46738c95f450
(ucs-unify-8859): Don't call
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
1239 utf-defragmentation-table))) |
41878 | 1240 |
50180
46738c95f450
(ucs-unify-8859): Don't call
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
1241 ;; For each charset, remove the parent of `safe-chars' property of |
46738c95f450
(ucs-unify-8859): Don't call
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
1242 ;; the corresponding coding system. |
47707 | 1243 (dolist (n '(1 2 3 4 5 7 8 9 14 15)) |
1244 (let* ((coding-system | |
1245 (coding-system-base (intern (format "iso-8859-%d" n)))) | |
1246 (safe (coding-system-get coding-system 'safe-chars))) | |
50180
46738c95f450
(ucs-unify-8859): Don't call
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
1247 (if (char-table-parent safe) |
46738c95f450
(ucs-unify-8859): Don't call
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
1248 (set-char-table-parent safe nil)) |
48185
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
1249 (coding-system-put coding-system 'translation-table-for-encode nil))) |
50180
46738c95f450
(ucs-unify-8859): Don't call
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
1250 (remove-hook 'minibuffer-setup-hook 'ucs-minibuffer-setup))) |
41878 | 1251 |
1252 (defun ucs-insert (arg) | |
1253 "Insert the Emacs character representation of the given Unicode. | |
1254 Interactively, prompts for a hex string giving the code." | |
1255 (interactive "sUnicode (hex): ") | |
54642
abb31042a0e6
(ucs-insert): Fix the error message.
Kenichi Handa <handa@m17n.org>
parents:
53263
diff
changeset
|
1256 (or (integerp arg) |
abb31042a0e6
(ucs-insert): Fix the error message.
Kenichi Handa <handa@m17n.org>
parents:
53263
diff
changeset
|
1257 (setq arg (string-to-number arg 16))) |
54643
244826afc178
(ucs-insert): Fix the error message.
Kenichi Handa <handa@m17n.org>
parents:
54642
diff
changeset
|
1258 (let ((c (decode-char 'ucs arg))) |
46506 | 1259 (if c |
1260 (insert c) | |
54642
abb31042a0e6
(ucs-insert): Fix the error message.
Kenichi Handa <handa@m17n.org>
parents:
53263
diff
changeset
|
1261 (if (or (< arg 0) (> arg #x10FFFF)) |
abb31042a0e6
(ucs-insert): Fix the error message.
Kenichi Handa <handa@m17n.org>
parents:
53263
diff
changeset
|
1262 (error "Not a Unicode character code: 0x%X" arg) |
abb31042a0e6
(ucs-insert): Fix the error message.
Kenichi Handa <handa@m17n.org>
parents:
53263
diff
changeset
|
1263 (error "Character U+%04X is not yet supported" arg))))) |
41878 | 1264 |
1265 ;;; Dealing with non-8859 character sets. | |
1266 | |
1267 ;; We only set up translation on encoding to utf-8. Also translation | |
1268 ;; tables ucs-CS-encode-table are constructed for some coding systems | |
1269 ;; CS which could be used as `translation-table-for-encode', currently | |
1270 ;; for indian-is13194, lao, thai, tibetan-iso-8bit and | |
1271 ;; vietnamese-viscii. | |
1272 | |
1273 ;; The alists here cover both coding systems (external charsets), like | |
1274 ;; VISCII, and individual Emacs charsets, like `ipa'. | |
1275 (let ((vietnamese-viscii | |
1276 '((?,1!(B . ?$,1o/(B) | |
1277 (?,1"(B . ?$,1o1(B) | |
1278 (?,1#(B . ?$,1o7(B) | |
1279 (?,1$(B . ?$,1o%(B) | |
1280 (?,1%(B . ?$,1o'(B) | |
1281 (?,1&(B . ?$,1o)(B) | |
1282 (?,1'(B . ?$,1o-(B) | |
1283 (?,1((B . ?$,1o=(B) | |
1284 (?,1)(B . ?$,1o9(B) | |
1285 (?,1*(B . ?$,1o?(B) | |
1286 (?,1+(B . ?$,1oA(B) | |
1287 (?,1,(B . ?$,1oC(B) | |
1288 (?,1-(B . ?$,1oE(B) | |
1289 (?,1.(B . ?$,1oG(B) | |
1290 (?,1/(B . ?$,1oQ(B) | |
1291 (?,10(B . ?$,1oS(B) | |
1292 (?,11(B . ?$,1oU(B) | |
1293 (?,12(B . ?$,1oW(B) | |
1294 (?,15(B . ?$,1oY(B) | |
1295 (?,16(B . ?$,1o](B) | |
1296 (?,17(B . ?$,1o_(B) | |
1297 (?,18(B . ?$,1oK(B) | |
1298 (?,1=(B . ?$,1!a(B) | |
1299 (?,1>(B . ?$,1o[(B) | |
1300 (?,1F(B . ?$,1o3(B) | |
1301 (?,1G(B . ?$,1o5(B) | |
1302 (?,1O(B . ?$,1os(B) | |
1303 (?,1Q(B . ?$,1oi(B) | |
1304 (?,1U(B . ?$,1o!(B) | |
1305 (?,1V(B . ?$,1ow(B) | |
1306 (?,1W(B . ?$,1ok(B) | |
1307 (?,1X(B . ?$,1om(B) | |
1308 (?,1[(B . ?$,1oy(B) | |
1309 (?,1\(B . ?$,1ou(B) | |
1310 (?,1^(B . ?$,1oa(B) | |
1311 (?,1_(B . ?$,1!p(B) | |
1312 (?,1`(B . ?,A`(B) | |
1313 (?,1a(B . ?,Aa(B) | |
1314 (?,1b(B . ?,Ab(B) | |
1315 (?,1c(B . ?,Ac(B) | |
1316 (?,1d(B . ?$,1o#(B) | |
1317 (?,1e(B . ?$,1 #(B) | |
1318 (?,1f(B . ?$,1oo(B) | |
1319 (?,1g(B . ?$,1o+(B) | |
1320 (?,1h(B . ?,Ah(B) | |
1321 (?,1i(B . ?,Ai(B) | |
1322 (?,1j(B . ?,Aj(B) | |
1323 (?,1k(B . ?$,1o;(B) | |
1324 (?,1l(B . ?,Al(B) | |
1325 (?,1m(B . ?,Am(B) | |
1326 (?,1n(B . ?$,1 I(B) | |
1327 (?,1o(B . ?$,1oI(B) | |
1328 (?,1p(B . ?$,1 1(B) | |
1329 (?,1q(B . ?$,1oq(B) | |
1330 (?,1r(B . ?,Ar(B) | |
1331 (?,1s(B . ?,As(B) | |
1332 (?,1t(B . ?,At(B) | |
1333 (?,1u(B . ?,Au(B) | |
1334 (?,1v(B . ?$,1oO(B) | |
1335 (?,1w(B . ?$,1oM(B) | |
1336 (?,1x(B . ?$,1oe(B) | |
1337 (?,1y(B . ?,Ay(B) | |
1338 (?,1z(B . ?,Az(B) | |
1339 (?,1{(B . ?$,1!)(B) | |
1340 (?,1|(B . ?$,1og(B) | |
1341 (?,1}(B . ?,A}(B) | |
1342 (?,1~(B . ?$,1oc(B) | |
1343 | |
1344 (?,2!(B . ?$,1o.(B) | |
1345 (?,2"(B . ?$,1o0(B) | |
1346 (?,2#(B . ?$,1o6(B) | |
1347 (?,2$(B . ?$,1o$(B) | |
1348 (?,2%(B . ?$,1o&(B) | |
1349 (?,2&(B . ?$,1o((B) | |
1350 (?,2'(B . ?$,1o,(B) | |
1351 (?,2((B . ?$,1o<(B) | |
1352 (?,2)(B . ?$,1o8(B) | |
1353 (?,2*(B . ?$,1o>(B) | |
1354 (?,2+(B . ?$,1o@(B) | |
1355 (?,2,(B . ?$,1oB(B) | |
1356 (?,2-(B . ?$,1oD(B) | |
1357 (?,2.(B . ?$,1oF(B) | |
1358 (?,2/(B . ?$,1oP(B) | |
1359 (?,20(B . ?$,1oR(B) | |
1360 (?,21(B . ?$,1oT(B) | |
1361 (?,22(B . ?$,1oV(B) | |
1362 (?,25(B . ?$,1oX(B) | |
1363 (?,26(B . ?$,1o\(B) | |
1364 (?,27(B . ?$,1o^(B) | |
1365 (?,28(B . ?$,1oJ(B) | |
1366 (?,2=(B . ?$,1!`(B) | |
1367 (?,2>(B . ?$,1oZ(B) | |
1368 (?,2F(B . ?$,1o2(B) | |
1369 (?,2G(B . ?$,1o4(B) | |
1370 (?,2O(B . ?$,1or(B) | |
1371 (?,2Q(B . ?$,1oh(B) | |
1372 (?,2U(B . ?$,1o (B) | |
1373 (?,2V(B . ?$,1ov(B) | |
1374 (?,2W(B . ?$,1oj(B) | |
1375 (?,2X(B . ?$,1ol(B) | |
1376 (?,2[(B . ?$,1ox(B) | |
1377 (?,2\(B . ?$,1ot(B) | |
1378 (?,2^(B . ?$,1o`(B) | |
1379 (?,2_(B . ?$,1!o(B) | |
1380 (?,2`(B . ?,A@(B) | |
1381 (?,2a(B . ?,AA(B) | |
1382 (?,2b(B . ?,AB(B) | |
1383 (?,2c(B . ?,AC(B) | |
1384 (?,2d(B . ?$,1o"(B) | |
1385 (?,2e(B . ?$,1 "(B) | |
1386 (?,2f(B . ?$,1on(B) | |
1387 (?,2g(B . ?$,1o*(B) | |
1388 (?,2h(B . ?,AH(B) | |
1389 (?,2i(B . ?,AI(B) | |
1390 (?,2j(B . ?,AJ(B) | |
1391 (?,2k(B . ?$,1o:(B) | |
1392 (?,2l(B . ?,AL(B) | |
1393 (?,2m(B . ?,AM(B) | |
1394 (?,2n(B . ?$,1 H(B) | |
1395 (?,2o(B . ?$,1oH(B) | |
1396 (?,2p(B . ?$,1 0(B) | |
1397 (?,2q(B . ?$,1op(B) | |
1398 (?,2r(B . ?,AR(B) | |
1399 (?,2s(B . ?,AS(B) | |
1400 (?,2t(B . ?,AT(B) | |
1401 (?,2u(B . ?,AU(B) | |
1402 (?,2v(B . ?$,1oN(B) | |
1403 (?,2w(B . ?$,1oL(B) | |
1404 (?,2x(B . ?$,1od(B) | |
1405 (?,2y(B . ?,AY(B) | |
1406 (?,2z(B . ?,AZ(B) | |
1407 (?,2{(B . ?$,1!((B) | |
1408 (?,2|(B . ?$,1of(B) | |
1409 (?,2}(B . ?,A](B) | |
1410 (?,2~(B . ?$,1ob(B))) | |
1411 | |
1412 (thai-tis620 | |
1413 '((?,T!(B . ?$,1Ba(B) | |
1414 (?,T"(B . ?$,1Bb(B) | |
1415 (?,T#(B . ?$,1Bc(B) | |
1416 (?,T$(B . ?$,1Bd(B) | |
1417 (?,T%(B . ?$,1Be(B) | |
1418 (?,T&(B . ?$,1Bf(B) | |
1419 (?,T'(B . ?$,1Bg(B) | |
1420 (?,T((B . ?$,1Bh(B) | |
1421 (?,T)(B . ?$,1Bi(B) | |
1422 (?,T*(B . ?$,1Bj(B) | |
1423 (?,T+(B . ?$,1Bk(B) | |
1424 (?,T,(B . ?$,1Bl(B) | |
1425 (?,T-(B . ?$,1Bm(B) | |
1426 (?,T.(B . ?$,1Bn(B) | |
1427 (?,T/(B . ?$,1Bo(B) | |
1428 (?,T0(B . ?$,1Bp(B) | |
1429 (?,T1(B . ?$,1Bq(B) | |
1430 (?,T2(B . ?$,1Br(B) | |
1431 (?,T3(B . ?$,1Bs(B) | |
1432 (?,T4(B . ?$,1Bt(B) | |
1433 (?,T5(B . ?$,1Bu(B) | |
1434 (?,T6(B . ?$,1Bv(B) | |
1435 (?,T7(B . ?$,1Bw(B) | |
1436 (?,T8(B . ?$,1Bx(B) | |
1437 (?,T9(B . ?$,1By(B) | |
1438 (?,T:(B . ?$,1Bz(B) | |
1439 (?,T;(B . ?$,1B{(B) | |
1440 (?,T<(B . ?$,1B|(B) | |
1441 (?,T=(B . ?$,1B}(B) | |
1442 (?,T>(B . ?$,1B~(B) | |
1443 (?,T?(B . ?$,1B(B) | |
1444 (?,T@(B . ?$,1C (B) | |
1445 (?,TA(B . ?$,1C!(B) | |
1446 (?,TB(B . ?$,1C"(B) | |
1447 (?,TC(B . ?$,1C#(B) | |
1448 (?,TD(B . ?$,1C$(B) | |
1449 (?,TE(B . ?$,1C%(B) | |
1450 (?,TF(B . ?$,1C&(B) | |
1451 (?,TG(B . ?$,1C'(B) | |
1452 (?,TH(B . ?$,1C((B) | |
1453 (?,TI(B . ?$,1C)(B) | |
1454 (?,TJ(B . ?$,1C*(B) | |
1455 (?,TK(B . ?$,1C+(B) | |
1456 (?,TL(B . ?$,1C,(B) | |
1457 (?,TM(B . ?$,1C-(B) | |
1458 (?,TN(B . ?$,1C.(B) | |
1459 (?,TO(B . ?$,1C/(B) | |
1460 (?,TP(B . ?$,1C0(B) | |
1461 (?,TQ(B . ?$,1C1(B) | |
1462 (?,TR(B . ?$,1C2(B) | |
1463 (?,TS(B . ?$,1C3(B) | |
1464 (?,TT(B . ?$,1C4(B) | |
1465 (?,TU(B . ?$,1C5(B) | |
1466 (?,TV(B . ?$,1C6(B) | |
1467 (?,TW(B . ?$,1C7(B) | |
1468 (?,TX(B . ?$,1C8(B) | |
1469 (?,TY(B . ?$,1C9(B) | |
1470 (?,TZ(B . ?$,1C:(B) | |
1471 (?,T_(B . ?$,1C?(B) | |
1472 (?,T`(B . ?$,1C@(B) | |
1473 (?,Ta(B . ?$,1CA(B) | |
1474 (?,Tb(B . ?$,1CB(B) | |
1475 (?,Tc(B . ?$,1CC(B) | |
1476 (?,Td(B . ?$,1CD(B) | |
1477 (?,Te(B . ?$,1CE(B) | |
1478 (?,Tf(B . ?$,1CF(B) | |
1479 (?,Tg(B . ?$,1CG(B) | |
1480 (?,Th(B . ?$,1CH(B) | |
1481 (?,Ti(B . ?$,1CI(B) | |
1482 (?,Tj(B . ?$,1CJ(B) | |
1483 (?,Tk(B . ?$,1CK(B) | |
1484 (?,Tl(B . ?$,1CL(B) | |
1485 (?,Tm(B . ?$,1CM(B) | |
1486 (?,Tn(B . ?$,1CN(B) | |
1487 (?,To(B . ?$,1CO(B) | |
1488 (?,Tp(B . ?$,1CP(B) | |
1489 (?,Tq(B . ?$,1CQ(B) | |
1490 (?,Tr(B . ?$,1CR(B) | |
1491 (?,Ts(B . ?$,1CS(B) | |
1492 (?,Tt(B . ?$,1CT(B) | |
1493 (?,Tu(B . ?$,1CU(B) | |
1494 (?,Tv(B . ?$,1CV(B) | |
1495 (?,Tw(B . ?$,1CW(B) | |
1496 (?,Tx(B . ?$,1CX(B) | |
1497 (?,Ty(B . ?$,1CY(B) | |
1498 (?,Tz(B . ?$,1CZ(B) | |
1499 (?,T{(B . ?$,1C[(B))) | |
1500 | |
1501 (tibetan-iso-8bit | |
1502 '((?$(7!0(B . ?$,1E@(B) | |
1503 (?$(7!1(B . ?$,1EA(B) | |
1504 (?$(7!2(B . ?$,1EB(B) | |
1505 (?$(7!3(B . ?$,1EC(B) | |
1506 (?$(7!4(B . ?$,1ED(B) | |
1507 (?$(7!5(B . ?$,1EE(B) | |
1508 (?$(7!6(B . ?$,1EF(B) | |
1509 (?$(7!7(B . ?$,1EG(B) | |
1510 (?$(7!8(B . ?$,1EH(B) | |
1511 (?$(7!9(B . ?$,1EI(B) | |
1512 (?$(7!:(B . ?$,1EJ(B) | |
1513 (?$(7!;(B . ?$,1EK(B) | |
1514 (?$(7!<(B . ?$,1EL(B) | |
1515 (?$(7!=(B . ?$,1EM(B) | |
1516 (?$(7!>(B . ?$,1EN(B) | |
1517 (?$(7!?(B . ?$,1EO(B) | |
1518 (?$(7!@(B . ?$,1EP(B) | |
1519 (?$(7!A(B . ?$,1EQ(B) | |
1520 (?$(7!B(B . ?$,1ER(B) | |
1521 (?$(7!C(B . ?$,1ES(B) | |
1522 (?$(7!D(B . ?$,1ET(B) | |
1523 (?$(7!E(B . ?$,1EU(B) | |
1524 (?$(7!F(B . ?$,1EV(B) | |
1525 (?$(7!G(B . ?$,1EW(B) | |
1526 (?$(7!H(B . ?$,1EX(B) | |
1527 (?$(7!I(B . ?$,1EY(B) | |
1528 (?$(7!J(B . ?$,1EZ(B) | |
1529 (?$(7!K(B . ?$,1E[(B) | |
1530 (?$(7!L(B . ?$,1E\(B) | |
1531 (?$(7!M(B . ?$,1E](B) | |
1532 (?$(7!N(B . ?$,1E^(B) | |
1533 (?$(7!O(B . ?$,1E_(B) | |
1534 (?$(7!P(B . ?$,1E`(B) | |
1535 (?$(7!Q(B . ?$,1Ea(B) | |
1536 (?$(7!R(B . ?$,1Eb(B) | |
1537 (?$(7!S(B . ?$,1Ec(B) | |
1538 (?$(7!T(B . ?$,1Ed(B) | |
1539 (?$(7!U(B . ?$,1Ee(B) | |
1540 (?$(7!V(B . ?$,1Ef(B) | |
1541 (?$(7!W(B . ?$,1Eg(B) | |
1542 (?$(7!X(B . ?$,1Eh(B) | |
1543 (?$(7!Y(B . ?$,1Ei(B) | |
1544 (?$(7!Z(B . ?$,1Ej(B) | |
1545 (?$(7![(B . ?$,1Ek(B) | |
1546 (?$(7!\(B . ?$,1El(B) | |
1547 (?$(7!](B . ?$,1Em(B) | |
1548 (?$(7!^(B . ?$,1En(B) | |
1549 (?$(7!_(B . ?$,1Eo(B) | |
1550 (?$(7!`(B . ?$,1Ep(B) | |
1551 (?$(7!a(B . ?$,1Eq(B) | |
1552 (?$(7!b(B . ?$,1Er(B) | |
1553 (?$(7!c(B . ?$,1Es(B) | |
1554 (?$(7!d(B . ?$,1Et(B) | |
1555 (?$(7!e(B . ?$,1Eu(B) | |
1556 (?$(7!f(B . ?$,1Ev(B) | |
1557 (?$(7!g(B . ?$,1Ew(B) | |
1558 (?$(7!h(B . ?$,1Ex(B) | |
1559 (?$(7!i(B . ?$,1Ey(B) | |
1560 (?$(7!j(B . ?$,1Ez(B) | |
1561 (?$(7!k(B . ?$,1E{(B) | |
1562 (?$(7!l(B . ?$,1E|(B) | |
1563 (?$(7!m(B . ?$,1E}(B) | |
1564 (?$(7!n(B . ?$,1E~(B) | |
1565 (?$(7!o(B . ?$,1E(B) | |
1566 (?$(7"!(B . ?$,1F (B) | |
1567 (?$(7""(B . ?$,1F!(B) | |
1568 (?$(7"#(B . ?$,1F"(B) | |
1569 (?$(7"$(B . ?$,1F#(B) | |
1570 (?$(7"%(B . ?$,1F$(B) | |
1571 (?$(7"&(B . ?$,1F%(B) | |
1572 (?$(7"'(B . ?$,1F&(B) | |
1573 (?$(7"((B . ?$,1F'(B) | |
1574 (?$(7"*(B . ?$,1F)(B) | |
1575 (?$(7"+(B . ?$,1F*(B) | |
1576 (?$(7",(B . ?$,1F+(B) | |
1577 (?$(7"-(B . ?$,1F,(B) | |
1578 (?$(7".(B . ?$,1F-(B) | |
1579 (?$(7"/(B . ?$,1F.(B) | |
1580 (?$(7"0(B . ?$,1F/(B) | |
1581 (?$(7"1(B . ?$,1F0(B) | |
1582 (?$(7"2(B . ?$,1F1(B) | |
1583 (?$(7"3(B . ?$,1F2(B) | |
1584 (?$(7"4(B . ?$,1F3(B) | |
1585 (?$(7"5(B . ?$,1F4(B) | |
1586 (?$(7"6(B . ?$,1F5(B) | |
1587 (?$(7"7(B . ?$,1F6(B) | |
1588 (?$(7"8(B . ?$,1F7(B) | |
1589 (?$(7"9(B . ?$,1F8(B) | |
1590 (?$(7":(B . ?$,1F9(B) | |
1591 (?$(7";(B . ?$,1F:(B) | |
1592 (?$(7"<(B . ?$,1F;(B) | |
1593 (?$(7"=(B . ?$,1F<(B) | |
1594 (?$(7">(B . ?$,1F=(B) | |
1595 (?$(7"?(B . ?$,1F>(B) | |
1596 (?$(7"@(B . ?$,1F?(B) | |
1597 (?$(7"A(B . ?$,1F@(B) | |
1598 (?$(7"B(B . ?$,1FA(B) | |
1599 (?$(7"C(B . ?$,1FB(B) | |
1600 (?$(7"D(B . ?$,1FC(B) | |
1601 (?$(7"E(B . ?$,1FD(B) | |
1602 (?$(7"F(B . ?$,1FE(B) | |
1603 (?$(7"G(B . ?$,1FF(B) | |
1604 (?$(7"H(B . ?$,1FG(B) | |
1605 (?$(7"I(B . ?$,1FH(B) | |
1606 (?$(7"J(B . ?$,1FI(B) | |
1607 (?$(7"K(B . ?$,1FJ(B) | |
1608 (?$(7"R(B . ?$,1FQ(B) | |
1609 (?$(7"S(B . ?$,1FR(B) | |
1610 (?$(7"T(B . ?$,1FS(B) | |
1611 (?$(7"U(B . ?$,1FT(B) | |
1612 (?$(7"V(B . ?$,1FU(B) | |
1613 (?$(7"W(B . ?$,1FV(B) | |
1614 (?$(7"X(B . ?$,1FW(B) | |
1615 (?$(7"Y(B . ?$,1FX(B) | |
1616 (?$(7"Z(B . ?$,1FY(B) | |
1617 (?$(7"[(B . ?$,1FZ(B) | |
1618 (?$(7"\(B . ?$,1F[(B) | |
1619 (?$(7"](B . ?$,1F\(B) | |
1620 (?$(7"^(B . ?$,1F](B) | |
1621 (?$(7"_(B . ?$,1F^(B) | |
1622 (?$(7"`(B . ?$,1F_(B) | |
1623 (?$(7"a(B . ?$,1F`(B) | |
1624 (?$(7"b(B . ?$,1Fa(B) | |
1625 (?$(7"c(B . ?$,1Fb(B) | |
1626 (?$(7"d(B . ?$,1Fc(B) | |
1627 (?$(7"e(B . ?$,1Fd(B) | |
1628 (?$(7"f(B . ?$,1Fe(B) | |
1629 (?$(7"g(B . ?$,1Ff(B) | |
1630 (?$(7"h(B . ?$,1Fg(B) | |
1631 (?$(7"i(B . ?$,1Fh(B) | |
1632 (?$(7"j(B . ?$,1Fi(B) | |
1633 (?$(7"k(B . ?$,1Fj(B) | |
1634 (?$(7"l(B . ?$,1Fk(B) | |
1635 (?$(7#!(B . ?$,1Fp(B) | |
1636 (?$(7#"(B . ?$,1Fq(B) | |
1637 (?$(7##(B . ?$,1Fr(B) | |
1638 (?$(7#$(B . ?$,1Fs(B) | |
1639 (?$(7#%(B . ?$,1Ft(B) | |
1640 (?$(7#&(B . ?$,1Fu(B) | |
1641 (?$(7#'(B . ?$,1Fv(B) | |
1642 (?$(7#((B . ?$,1Fw(B) | |
1643 (?$(7#*(B . ?$,1Fy(B) | |
1644 (?$(7#+(B . ?$,1Fz(B) | |
1645 (?$(7#,(B . ?$,1F{(B) | |
1646 (?$(7#-(B . ?$,1F|(B) | |
1647 (?$(7#.(B . ?$,1F}(B) | |
1648 (?$(7#/(B . ?$,1F~(B) | |
1649 (?$(7#0(B . ?$,1F(B) | |
1650 (?$(7#1(B . ?$,1G (B) | |
1651 (?$(7#2(B . ?$,1G!(B) | |
1652 (?$(7#3(B . ?$,1G"(B) | |
1653 (?$(7#4(B . ?$,1G#(B) | |
1654 (?$(7#5(B . ?$,1G$(B) | |
1655 (?$(7#6(B . ?$,1G%(B) | |
1656 (?$(7#7(B . ?$,1G&(B) | |
1657 (?$(7#8(B . ?$,1G'(B) | |
1658 (?$(7#9(B . ?$,1G((B) | |
1659 (?$(7#:(B . ?$,1G)(B) | |
1660 (?$(7#;(B . ?$,1G*(B) | |
1661 (?$(7#<(B . ?$,1G+(B) | |
1662 (?$(7#=(B . ?$,1G,(B) | |
1663 (?$(7#>(B . ?$,1G-(B) | |
1664 (?$(7#?(B . ?$,1G.(B) | |
1665 (?$(7#@(B . ?$,1G/(B) | |
1666 (?$(7#A(B . ?$,1G0(B) | |
1667 (?$(7#B(B . ?$,1G1(B) | |
1668 (?$(7#C(B . ?$,1G2(B) | |
1669 (?$(7#D(B . ?$,1G3(B) | |
1670 (?$(7#E(B . ?$,1G4(B) | |
1671 (?$(7#F(B . ?$,1G5(B) | |
1672 (?$(7#G(B . ?$,1G6(B) | |
1673 (?$(7#H(B . ?$,1G7(B) | |
1674 (?$(7#I(B . ?$,1G8(B) | |
1675 (?$(7#J(B . ?$,1G9(B) | |
1676 (?$(7#K(B . ?$,1G:(B) | |
1677 (?$(7#L(B . ?$,1G;(B) | |
1678 (?$(7#M(B . ?$,1G<(B) | |
1679 (?$(7#O(B . ?$,1G>(B) | |
1680 (?$(7#P(B . ?$,1G?(B) | |
1681 (?$(7#Q(B . ?$,1G@(B) | |
1682 (?$(7#R(B . ?$,1GA(B) | |
1683 (?$(7#S(B . ?$,1GB(B) | |
1684 (?$(7#T(B . ?$,1GC(B) | |
1685 (?$(7#U(B . ?$,1GD(B) | |
1686 (?$(7#V(B . ?$,1GE(B) | |
1687 (?$(7#W(B . ?$,1GF(B) | |
1688 (?$(7#X(B . ?$,1GG(B) | |
1689 (?$(7#Y(B . ?$,1GH(B) | |
1690 (?$(7#Z(B . ?$,1GI(B) | |
1691 (?$(7#[(B . ?$,1GJ(B) | |
1692 (?$(7#\(B . ?$,1GK(B) | |
1693 (?$(7#](B . ?$,1GL(B) | |
1694 (?$(7#`(B . ?$,1GO(B))) | |
1695 | |
1696 (ipa | |
1697 '((?,0 (B . ?i) | |
1698 (?,0!(B . ?$,1#j(B) | |
1699 (?,0"(B . ?e) | |
1700 (?,0#(B . ?$,1#[(B) | |
1701 (?,0$(B . ?,Af(B) | |
1702 (?,0%(B . ?a) | |
1703 (?,0&(B . ?$,1#h(B) | |
1704 (?,0'(B . ?$,1#Y(B) | |
1705 (?,0((B . ?$,1#P(B) | |
1706 (?,0)(B . ?$,1#o(B) | |
1707 (?,0*(B . ?$,1#d(B) | |
1708 (?,0+(B . ?$,1$,(B) | |
1709 (?,0,(B . ?$,1#Q(B) | |
1710 (?,0-(B . ?y) | |
1711 (?,0.(B . ?$,1$/(B) | |
1712 (?,0/(B . ?,Ax(B) | |
1713 (?,00(B . ?$,1 s(B) | |
1714 (?,01(B . ?$,1#v(B) | |
1715 (?,02(B . ?$,1$)(B) | |
1716 (?,03(B . ?$,1#u(B) | |
1717 (?,04(B . ?u) | |
1718 (?,05(B . ?$,1$*(B) | |
1719 (?,06(B . ?o) | |
1720 (?,07(B . ?$,1#T(B) | |
1721 (?,08(B . ?$,1#R(B) | |
1722 (?,0:(B . ?$,1#Z(B) | |
1723 (?,0@(B . ?p) | |
1724 (?,0A(B . ?b) | |
1725 (?,0B(B . ?t) | |
1726 (?,0C(B . ?d) | |
1727 (?,0D(B . ?k) | |
1728 (?,0E(B . ?g) | |
1729 (?,0F(B . ?f) | |
1730 (?,0G(B . ?v) | |
1731 (?,0H(B . ?$,1'8(B) | |
1732 (?,0I(B . ?,Ap(B) | |
1733 (?,0J(B . ?s) | |
1734 (?,0K(B . ?z) | |
1735 (?,0L(B . ?$,1$#(B) | |
1736 (?,0M(B . ?$,1$2(B) | |
1737 (?,0N(B . ?,Ag(B) | |
1738 (?,0O(B . ?x) | |
1739 (?,0P(B . ?$,1$!(B) | |
1740 (?,0Q(B . ?h) | |
1741 (?,0R(B . ?m) | |
1742 (?,0S(B . ?n) | |
1743 (?,0T(B . ?$,1#r(B) | |
1744 (?,0U(B . ?$,1 k(B) | |
1745 (?,0V(B . ?r) | |
1746 (?,0W(B . ?$,1$ (B) | |
1747 (?,0X(B . ?$,1#y(B) | |
1748 (?,0Y(B . ?j) | |
1749 (?,0Z(B . ?l) | |
1750 (?,0[(B . ?$,1$.(B) | |
1751 (?,0\(B . ?$,1$?(B) | |
1752 (?,0](B . ?$,1#e(B) | |
1753 (?,0^(B . ?w) | |
1754 (?,0_(B . ?$,1$-(B) | |
1755 (?,0p(B . ?$,1$h(B) | |
1756 (?,0q(B . ?$,1$l(B) | |
1757 (?,0r(B . ?$,1$p(B))) | |
1758 | |
1759 (ethiopic | |
1760 '((?$(3!!(B . ?$,1M@(B) | |
1761 (?$(3!"(B . ?$,1MA(B) | |
1762 (?$(3!#(B . ?$,1MB(B) | |
1763 (?$(3!$(B . ?$,1MC(B) | |
1764 (?$(3!%(B . ?$,1MD(B) | |
1765 (?$(3!&(B . ?$,1ME(B) | |
1766 (?$(3!'(B . ?$,1MF(B) | |
1767 (?$(3!)(B . ?$,1MH(B) | |
1768 (?$(3!*(B . ?$,1MI(B) | |
1769 (?$(3!+(B . ?$,1MJ(B) | |
1770 (?$(3!,(B . ?$,1MK(B) | |
1771 (?$(3!-(B . ?$,1ML(B) | |
1772 (?$(3!.(B . ?$,1MM(B) | |
1773 (?$(3!/(B . ?$,1MN(B) | |
1774 (?$(3!0(B . ?$,1MO(B) | |
1775 (?$(3!1(B . ?$,1MP(B) | |
1776 (?$(3!2(B . ?$,1MQ(B) | |
1777 (?$(3!3(B . ?$,1MR(B) | |
1778 (?$(3!4(B . ?$,1MS(B) | |
1779 (?$(3!5(B . ?$,1MT(B) | |
1780 (?$(3!6(B . ?$,1MU(B) | |
1781 (?$(3!7(B . ?$,1MV(B) | |
1782 (?$(3!8(B . ?$,1MW(B) | |
1783 (?$(3!9(B . ?$,1MX(B) | |
1784 (?$(3!:(B . ?$,1MY(B) | |
1785 (?$(3!;(B . ?$,1MZ(B) | |
1786 (?$(3!<(B . ?$,1M[(B) | |
1787 (?$(3!=(B . ?$,1M\(B) | |
1788 (?$(3!>(B . ?$,1M](B) | |
1789 (?$(3!?(B . ?$,1M^(B) | |
1790 (?$(3!@(B . ?$,1M_(B) | |
1791 (?$(3!A(B . ?$,1M`(B) | |
1792 (?$(3!B(B . ?$,1Ma(B) | |
1793 (?$(3!C(B . ?$,1Mb(B) | |
1794 (?$(3!D(B . ?$,1Mc(B) | |
1795 (?$(3!E(B . ?$,1Md(B) | |
1796 (?$(3!F(B . ?$,1Me(B) | |
1797 (?$(3!G(B . ?$,1Mf(B) | |
1798 (?$(3!H(B . ?$,1Mg(B) | |
1799 (?$(3!I(B . ?$,1Mh(B) | |
1800 (?$(3!J(B . ?$,1Mi(B) | |
1801 (?$(3!K(B . ?$,1Mj(B) | |
1802 (?$(3!L(B . ?$,1Mk(B) | |
1803 (?$(3!M(B . ?$,1Ml(B) | |
1804 (?$(3!N(B . ?$,1Mm(B) | |
1805 (?$(3!O(B . ?$,1Mn(B) | |
1806 (?$(3!P(B . ?$,1Mo(B) | |
1807 (?$(3!Q(B . ?$,1Mp(B) | |
1808 (?$(3!R(B . ?$,1Mq(B) | |
1809 (?$(3!S(B . ?$,1Mr(B) | |
1810 (?$(3!T(B . ?$,1Ms(B) | |
1811 (?$(3!U(B . ?$,1Mt(B) | |
1812 (?$(3!V(B . ?$,1Mu(B) | |
1813 (?$(3!W(B . ?$,1Mv(B) | |
1814 (?$(3!X(B . ?$,1Mw(B) | |
1815 (?$(3!Y(B . ?$,1Mx(B) | |
1816 (?$(3!Z(B . ?$,1My(B) | |
1817 (?$(3![(B . ?$,1Mz(B) | |
1818 (?$(3!\(B . ?$,1M{(B) | |
1819 (?$(3!](B . ?$,1M|(B) | |
1820 (?$(3!^(B . ?$,1M}(B) | |
1821 (?$(3!_(B . ?$,1M~(B) | |
1822 (?$(3!`(B . ?$,1M(B) | |
1823 (?$(3!a(B . ?$,1N (B) | |
1824 (?$(3!b(B . ?$,1N!(B) | |
1825 (?$(3!c(B . ?$,1N"(B) | |
1826 (?$(3!d(B . ?$,1N#(B) | |
1827 (?$(3!e(B . ?$,1N$(B) | |
1828 (?$(3!f(B . ?$,1N%(B) | |
1829 (?$(3!g(B . ?$,1N&(B) | |
1830 (?$(3!i(B . ?$,1N((B) | |
1831 (?$(3!k(B . ?$,1N*(B) | |
1832 (?$(3!l(B . ?$,1N+(B) | |
1833 (?$(3!m(B . ?$,1N,(B) | |
1834 (?$(3!n(B . ?$,1N-(B) | |
1835 (?$(3!q(B . ?$,1N0(B) | |
1836 (?$(3!r(B . ?$,1N1(B) | |
1837 (?$(3!s(B . ?$,1N2(B) | |
1838 (?$(3!t(B . ?$,1N3(B) | |
1839 (?$(3!u(B . ?$,1N4(B) | |
1840 (?$(3!v(B . ?$,1N5(B) | |
1841 (?$(3!w(B . ?$,1N6(B) | |
1842 (?$(3!y(B . ?$,1N8(B) | |
1843 (?$(3!{(B . ?$,1N:(B) | |
1844 (?$(3!|(B . ?$,1N;(B) | |
1845 (?$(3!}(B . ?$,1N<(B) | |
1846 (?$(3!~(B . ?$,1N=(B) | |
1847 (?$(3"#(B . ?$,1N@(B) | |
1848 (?$(3"$(B . ?$,1NA(B) | |
1849 (?$(3"%(B . ?$,1NB(B) | |
1850 (?$(3"&(B . ?$,1NC(B) | |
1851 (?$(3"'(B . ?$,1ND(B) | |
1852 (?$(3"((B . ?$,1NE(B) | |
1853 (?$(3")(B . ?$,1NF(B) | |
1854 (?$(3"*(B . ?$,1NG(B) | |
1855 (?$(3"+(B . ?$,1NH(B) | |
1856 (?$(3",(B . ?$,1NI(B) | |
1857 (?$(3"-(B . ?$,1NJ(B) | |
1858 (?$(3".(B . ?$,1NK(B) | |
1859 (?$(3"/(B . ?$,1NL(B) | |
1860 (?$(3"0(B . ?$,1NM(B) | |
1861 (?$(3"1(B . ?$,1NN(B) | |
1862 (?$(3"2(B . ?$,1NO(B) | |
1863 (?$(3"3(B . ?$,1NP(B) | |
1864 (?$(3"4(B . ?$,1NQ(B) | |
1865 (?$(3"5(B . ?$,1NR(B) | |
1866 (?$(3"6(B . ?$,1NS(B) | |
1867 (?$(3"7(B . ?$,1NT(B) | |
1868 (?$(3"8(B . ?$,1NU(B) | |
1869 (?$(3"9(B . ?$,1NV(B) | |
1870 (?$(3":(B . ?$,1NW(B) | |
1871 (?$(3";(B . ?$,1NX(B) | |
1872 (?$(3"<(B . ?$,1NY(B) | |
1873 (?$(3"=(B . ?$,1NZ(B) | |
1874 (?$(3">(B . ?$,1N[(B) | |
1875 (?$(3"?(B . ?$,1N\(B) | |
1876 (?$(3"@(B . ?$,1N](B) | |
1877 (?$(3"A(B . ?$,1N^(B) | |
1878 (?$(3"B(B . ?$,1N_(B) | |
1879 (?$(3"C(B . ?$,1N`(B) | |
1880 (?$(3"D(B . ?$,1Na(B) | |
1881 (?$(3"E(B . ?$,1Nb(B) | |
1882 (?$(3"F(B . ?$,1Nc(B) | |
1883 (?$(3"G(B . ?$,1Nd(B) | |
1884 (?$(3"H(B . ?$,1Ne(B) | |
1885 (?$(3"I(B . ?$,1Nf(B) | |
1886 (?$(3"K(B . ?$,1Nh(B) | |
1887 (?$(3"M(B . ?$,1Nj(B) | |
1888 (?$(3"N(B . ?$,1Nk(B) | |
1889 (?$(3"O(B . ?$,1Nl(B) | |
1890 (?$(3"P(B . ?$,1Nm(B) | |
1891 (?$(3"S(B . ?$,1Np(B) | |
1892 (?$(3"T(B . ?$,1Nq(B) | |
1893 (?$(3"U(B . ?$,1Nr(B) | |
1894 (?$(3"V(B . ?$,1Ns(B) | |
1895 (?$(3"W(B . ?$,1Nt(B) | |
1896 (?$(3"X(B . ?$,1Nu(B) | |
1897 (?$(3"Y(B . ?$,1Nv(B) | |
1898 (?$(3"Z(B . ?$,1Nw(B) | |
1899 (?$(3"[(B . ?$,1Nx(B) | |
1900 (?$(3"\(B . ?$,1Ny(B) | |
1901 (?$(3"](B . ?$,1Nz(B) | |
1902 (?$(3"^(B . ?$,1N{(B) | |
1903 (?$(3"_(B . ?$,1N|(B) | |
1904 (?$(3"`(B . ?$,1N}(B) | |
1905 (?$(3"a(B . ?$,1N~(B) | |
1906 (?$(3"b(B . ?$,1N(B) | |
1907 (?$(3"c(B . ?$,1O (B) | |
1908 (?$(3"d(B . ?$,1O!(B) | |
1909 (?$(3"e(B . ?$,1O"(B) | |
1910 (?$(3"f(B . ?$,1O#(B) | |
1911 (?$(3"g(B . ?$,1O$(B) | |
1912 (?$(3"h(B . ?$,1O%(B) | |
1913 (?$(3"i(B . ?$,1O&(B) | |
1914 (?$(3"j(B . ?$,1O'(B) | |
1915 (?$(3"k(B . ?$,1O((B) | |
1916 (?$(3"l(B . ?$,1O)(B) | |
1917 (?$(3"m(B . ?$,1O*(B) | |
1918 (?$(3"n(B . ?$,1O+(B) | |
1919 (?$(3"o(B . ?$,1O,(B) | |
1920 (?$(3"p(B . ?$,1O-(B) | |
1921 (?$(3"q(B . ?$,1O.(B) | |
1922 (?$(3"s(B . ?$,1O0(B) | |
1923 (?$(3"u(B . ?$,1O2(B) | |
1924 (?$(3"v(B . ?$,1O3(B) | |
1925 (?$(3"w(B . ?$,1O4(B) | |
1926 (?$(3"x(B . ?$,1O5(B) | |
1927 (?$(3"{(B . ?$,1O8(B) | |
1928 (?$(3"|(B . ?$,1O9(B) | |
1929 (?$(3"}(B . ?$,1O:(B) | |
1930 (?$(3"~(B . ?$,1O;(B) | |
1931 (?$(3#!(B . ?$,1O<(B) | |
1932 (?$(3#"(B . ?$,1O=(B) | |
1933 (?$(3##(B . ?$,1O>(B) | |
1934 (?$(3#%(B . ?$,1O@(B) | |
1935 (?$(3#'(B . ?$,1OB(B) | |
1936 (?$(3#((B . ?$,1OC(B) | |
1937 (?$(3#)(B . ?$,1OD(B) | |
1938 (?$(3#*(B . ?$,1OE(B) | |
1939 (?$(3#-(B . ?$,1OH(B) | |
1940 (?$(3#.(B . ?$,1OI(B) | |
1941 (?$(3#/(B . ?$,1OJ(B) | |
1942 (?$(3#0(B . ?$,1OK(B) | |
1943 (?$(3#1(B . ?$,1OL(B) | |
1944 (?$(3#2(B . ?$,1OM(B) | |
1945 (?$(3#3(B . ?$,1ON(B) | |
1946 (?$(3#5(B . ?$,1OP(B) | |
1947 (?$(3#6(B . ?$,1OQ(B) | |
1948 (?$(3#7(B . ?$,1OR(B) | |
1949 (?$(3#8(B . ?$,1OS(B) | |
1950 (?$(3#9(B . ?$,1OT(B) | |
1951 (?$(3#:(B . ?$,1OU(B) | |
1952 (?$(3#;(B . ?$,1OV(B) | |
1953 (?$(3#=(B . ?$,1OX(B) | |
1954 (?$(3#>(B . ?$,1OY(B) | |
1955 (?$(3#?(B . ?$,1OZ(B) | |
1956 (?$(3#@(B . ?$,1O[(B) | |
1957 (?$(3#A(B . ?$,1O\(B) | |
1958 (?$(3#B(B . ?$,1O](B) | |
1959 (?$(3#C(B . ?$,1O^(B) | |
1960 (?$(3#D(B . ?$,1O_(B) | |
1961 (?$(3#E(B . ?$,1O`(B) | |
1962 (?$(3#F(B . ?$,1Oa(B) | |
1963 (?$(3#G(B . ?$,1Ob(B) | |
1964 (?$(3#H(B . ?$,1Oc(B) | |
1965 (?$(3#I(B . ?$,1Od(B) | |
1966 (?$(3#J(B . ?$,1Oe(B) | |
1967 (?$(3#K(B . ?$,1Of(B) | |
1968 (?$(3#L(B . ?$,1Og(B) | |
1969 (?$(3#M(B . ?$,1Oh(B) | |
1970 (?$(3#N(B . ?$,1Oi(B) | |
1971 (?$(3#O(B . ?$,1Oj(B) | |
1972 (?$(3#P(B . ?$,1Ok(B) | |
1973 (?$(3#Q(B . ?$,1Ol(B) | |
1974 (?$(3#R(B . ?$,1Om(B) | |
1975 (?$(3#S(B . ?$,1On(B) | |
1976 (?$(3#U(B . ?$,1Op(B) | |
1977 (?$(3#V(B . ?$,1Oq(B) | |
1978 (?$(3#W(B . ?$,1Or(B) | |
1979 (?$(3#X(B . ?$,1Os(B) | |
1980 (?$(3#Y(B . ?$,1Ot(B) | |
1981 (?$(3#Z(B . ?$,1Ou(B) | |
1982 (?$(3#[(B . ?$,1Ov(B) | |
1983 (?$(3#\(B . ?$,1Ow(B) | |
1984 (?$(3#](B . ?$,1Ox(B) | |
1985 (?$(3#^(B . ?$,1Oy(B) | |
1986 (?$(3#_(B . ?$,1Oz(B) | |
1987 (?$(3#`(B . ?$,1O{(B) | |
1988 (?$(3#a(B . ?$,1O|(B) | |
1989 (?$(3#b(B . ?$,1O}(B) | |
1990 (?$(3#c(B . ?$,1O~(B) | |
1991 (?$(3#d(B . ?$,1O(B) | |
1992 (?$(3#e(B . ?$,1P (B) | |
1993 (?$(3#f(B . ?$,1P!(B) | |
1994 (?$(3#g(B . ?$,1P"(B) | |
1995 (?$(3#h(B . ?$,1P#(B) | |
1996 (?$(3#i(B . ?$,1P$(B) | |
1997 (?$(3#j(B . ?$,1P%(B) | |
1998 (?$(3#k(B . ?$,1P&(B) | |
1999 (?$(3#l(B . ?$,1P'(B) | |
2000 (?$(3#m(B . ?$,1P((B) | |
2001 (?$(3#n(B . ?$,1P)(B) | |
2002 (?$(3#o(B . ?$,1P*(B) | |
2003 (?$(3#p(B . ?$,1P+(B) | |
2004 (?$(3#q(B . ?$,1P,(B) | |
2005 (?$(3#r(B . ?$,1P-(B) | |
2006 (?$(3#s(B . ?$,1P.(B) | |
2007 (?$(3#u(B . ?$,1P0(B) | |
2008 (?$(3#w(B . ?$,1P2(B) | |
2009 (?$(3#x(B . ?$,1P3(B) | |
2010 (?$(3#y(B . ?$,1P4(B) | |
2011 (?$(3#z(B . ?$,1P5(B) | |
2012 (?$(3#}(B . ?$,1P8(B) | |
2013 (?$(3#~(B . ?$,1P9(B) | |
2014 (?$(3$!(B . ?$,1P:(B) | |
2015 (?$(3$"(B . ?$,1P;(B) | |
2016 (?$(3$#(B . ?$,1P<(B) | |
2017 (?$(3$$(B . ?$,1P=(B) | |
2018 (?$(3$%(B . ?$,1P>(B) | |
2019 (?$(3$'(B . ?$,1P@(B) | |
2020 (?$(3$((B . ?$,1PA(B) | |
2021 (?$(3$)(B . ?$,1PB(B) | |
2022 (?$(3$*(B . ?$,1PC(B) | |
2023 (?$(3$+(B . ?$,1PD(B) | |
2024 (?$(3$,(B . ?$,1PE(B) | |
2025 (?$(3$-(B . ?$,1PF(B) | |
2026 (?$(3$.(B . ?$,1PG(B) | |
2027 (?$(3$/(B . ?$,1PH(B) | |
2028 (?$(3$0(B . ?$,1PI(B) | |
2029 (?$(3$1(B . ?$,1PJ(B) | |
2030 (?$(3$2(B . ?$,1PK(B) | |
2031 (?$(3$3(B . ?$,1PL(B) | |
2032 (?$(3$4(B . ?$,1PM(B) | |
2033 (?$(3$5(B . ?$,1PN(B) | |
2034 (?$(3$6(B . ?$,1PO(B) | |
2035 (?$(3$7(B . ?$,1PP(B) | |
2036 (?$(3$8(B . ?$,1PQ(B) | |
2037 (?$(3$9(B . ?$,1PR(B) | |
2038 (?$(3$:(B . ?$,1PS(B) | |
2039 (?$(3$;(B . ?$,1PT(B) | |
2040 (?$(3$<(B . ?$,1PU(B) | |
2041 (?$(3$=(B . ?$,1PV(B) | |
2042 (?$(3$>(B . ?$,1PW(B) | |
2043 (?$(3$?(B . ?$,1PX(B) | |
2044 (?$(3$@(B . ?$,1PY(B) | |
2045 (?$(3$A(B . ?$,1PZ(B) | |
2046 (?$(3$B(B . ?$,1P[(B) | |
2047 (?$(3$C(B . ?$,1P\(B) | |
2048 (?$(3$D(B . ?$,1P](B) | |
2049 (?$(3$E(B . ?$,1P^(B) | |
2050 (?$(3$F(B . ?$,1P_(B) | |
2051 (?$(3$G(B . ?$,1P`(B) | |
2052 (?$(3$H(B . ?$,1Pa(B) | |
2053 (?$(3$I(B . ?$,1Pb(B) | |
2054 (?$(3$J(B . ?$,1Pc(B) | |
2055 (?$(3$K(B . ?$,1Pd(B) | |
2056 (?$(3$L(B . ?$,1Pe(B) | |
2057 (?$(3$M(B . ?$,1Pf(B) | |
2058 (?$(3$O(B . ?$,1Ph(B) | |
2059 (?$(3$P(B . ?$,1Pi(B) | |
2060 (?$(3$Q(B . ?$,1Pj(B) | |
2061 (?$(3$R(B . ?$,1Pk(B) | |
2062 (?$(3$S(B . ?$,1Pl(B) | |
2063 (?$(3$T(B . ?$,1Pm(B) | |
2064 (?$(3$U(B . ?$,1Pn(B) | |
2065 (?$(3$V(B . ?$,1Po(B) | |
2066 (?$(3$W(B . ?$,1Pp(B) | |
2067 (?$(3$X(B . ?$,1Pq(B) | |
2068 (?$(3$Y(B . ?$,1Pr(B) | |
2069 (?$(3$Z(B . ?$,1Ps(B) | |
2070 (?$(3$[(B . ?$,1Pt(B) | |
2071 (?$(3$\(B . ?$,1Pu(B) | |
2072 (?$(3$](B . ?$,1Pv(B) | |
2073 (?$(3$^(B . ?$,1Pw(B) | |
2074 (?$(3$_(B . ?$,1Px(B) | |
2075 (?$(3$`(B . ?$,1Py(B) | |
2076 (?$(3$a(B . ?$,1Pz(B) | |
2077 (?$(3$h(B . ?$,1Q!(B) | |
2078 (?$(3$i(B . ?$,1Q"(B) | |
2079 (?$(3$j(B . ?$,1Q#(B) | |
2080 (?$(3$k(B . ?$,1Q$(B) | |
2081 (?$(3$l(B . ?$,1Q%(B) | |
2082 (?$(3$m(B . ?$,1Q&(B) | |
2083 (?$(3$n(B . ?$,1Q'(B) | |
2084 (?$(3$o(B . ?$,1Q((B) | |
2085 (?$(3$p(B . ?$,1Q)(B) | |
2086 (?$(3$q(B . ?$,1Q*(B) | |
2087 (?$(3$r(B . ?$,1Q+(B) | |
2088 (?$(3$s(B . ?$,1Q,(B) | |
2089 (?$(3$t(B . ?$,1Q-(B) | |
2090 (?$(3$u(B . ?$,1Q.(B) | |
2091 (?$(3$v(B . ?$,1Q/(B) | |
2092 (?$(3$w(B . ?$,1Q0(B) | |
2093 (?$(3$x(B . ?$,1Q1(B) | |
2094 (?$(3$y(B . ?$,1Q2(B) | |
2095 (?$(3$z(B . ?$,1Q3(B) | |
2096 (?$(3${(B . ?$,1Q4(B) | |
2097 (?$(3$|(B . ?$,1Q5(B) | |
2098 (?$(3$}(B . ?$,1Q6(B) | |
2099 (?$(3$~(B . ?$,1Q7(B) | |
2100 (?$(3%!(B . ?$,1Q8(B) | |
2101 (?$(3%"(B . ?$,1Q9(B) | |
2102 (?$(3%#(B . ?$,1Q:(B) | |
2103 (?$(3%$(B . ?$,1Q;(B) | |
2104 (?$(3%%(B . ?$,1Q<(B))) | |
2105 | |
2106 (indian-is13194 | |
2107 '((?(5!(B . ?$,15A(B) | |
2108 (?(5"(B . ?$,15B(B) | |
2109 (?(5#(B . ?$,15C(B) | |
2110 (?(5$(B . ?$,15E(B) | |
2111 (?(5%(B . ?$,15F(B) | |
2112 (?(5&(B . ?$,15G(B) | |
2113 (?(5'(B . ?$,15H(B) | |
2114 (?(5((B . ?$,15I(B) | |
2115 (?(5)(B . ?$,15J(B) | |
2116 (?(5*(B . ?$,15K(B) | |
2117 (?(5+(B . ?$,15N(B) | |
2118 (?(5,(B . ?$,15O(B) | |
2119 (?(5-(B . ?$,15P(B) | |
2120 (?(5.(B . ?$,15M(B) | |
2121 (?(5/(B . ?$,15R(B) | |
2122 (?(50(B . ?$,15S(B) | |
2123 (?(51(B . ?$,15T(B) | |
2124 (?(52(B . ?$,15M(B) | |
2125 (?(53(B . ?$,15U(B) | |
2126 (?(54(B . ?$,15V(B) | |
2127 (?(55(B . ?$,15W(B) | |
2128 (?(56(B . ?$,15X(B) | |
2129 (?(57(B . ?$,15Y(B) | |
2130 (?(58(B . ?$,15Z(B) | |
2131 (?(59(B . ?$,15[(B) | |
2132 (?(5:(B . ?$,15\(B) | |
2133 (?(5;(B . ?$,15](B) | |
2134 (?(5<(B . ?$,15^(B) | |
2135 (?(5=(B . ?$,15_(B) | |
2136 (?(5>(B . ?$,15`(B) | |
2137 (?(5?(B . ?$,15a(B) | |
2138 (?(5@(B . ?$,15b(B) | |
2139 (?(5A(B . ?$,15c(B) | |
2140 (?(5B(B . ?$,15d(B) | |
2141 (?(5C(B . ?$,15e(B) | |
2142 (?(5D(B . ?$,15f(B) | |
2143 (?(5E(B . ?$,15g(B) | |
2144 (?(5F(B . ?$,15h(B) | |
2145 (?(5G(B . ?$,15i(B) | |
2146 (?(5H(B . ?$,15j(B) | |
2147 (?(5I(B . ?$,15k(B) | |
2148 (?(5J(B . ?$,15l(B) | |
2149 (?(5K(B . ?$,15m(B) | |
2150 (?(5L(B . ?$,15n(B) | |
2151 (?(5M(B . ?$,15o(B) | |
2152 (?(5N(B . ?$,16?(B) | |
2153 (?(5O(B . ?$,15p(B) | |
2154 (?(5P(B . ?$,15q(B) | |
2155 (?(5Q(B . ?$,15r(B) | |
2156 (?(5R(B . ?$,15s(B) | |
2157 (?(5S(B . ?$,15t(B) | |
2158 (?(5T(B . ?$,15u(B) | |
2159 (?(5U(B . ?$,15v(B) | |
2160 (?(5V(B . ?$,15w(B) | |
2161 (?(5W(B . ?$,15x(B) | |
2162 (?(5X(B . ?$,15y(B) | |
2163 (?(5Z(B . ?$,15~(B) | |
2164 (?(5[(B . ?$,15(B) | |
2165 (?(5\(B . ?$,16 (B) | |
2166 (?(5](B . ?$,16!(B) | |
2167 (?(5^(B . ?$,16"(B) | |
2168 (?(5_(B . ?$,16#(B) | |
2169 (?(5`(B . ?$,16&(B) | |
2170 (?(5a(B . ?$,16'(B) | |
2171 (?(5b(B . ?$,16((B) | |
2172 (?(5c(B . ?$,16%(B) | |
2173 (?(5d(B . ?$,16*(B) | |
2174 (?(5e(B . ?$,16+(B) | |
2175 (?(5f(B . ?$,16,(B) | |
2176 (?(5g(B . ?$,16)(B) | |
2177 (?(5h(B . ?$,16-(B) | |
2178 (?(5i(B . ?$,15|(B) | |
2179 (?(5j(B . ?$,16D(B) | |
2180 (?(5q(B . ?$,16F(B) | |
2181 (?(5r(B . ?$,16G(B) | |
2182 (?(5s(B . ?$,16H(B) | |
2183 (?(5t(B . ?$,16I(B) | |
2184 (?(5u(B . ?$,16J(B) | |
2185 (?(5v(B . ?$,16K(B) | |
2186 (?(5w(B . ?$,16L(B) | |
2187 (?(5x(B . ?$,16M(B) | |
2188 (?(5y(B . ?$,16N(B) | |
2189 (?(5z(B . ?$,16O(B))) | |
2190 | |
2191 (katakana-jisx0201 | |
2192 '((?(I!(B . ?$,3sa(B) | |
2193 (?\(I"(B . ?\$,3sb(B) | |
2194 (?\(I#(B . ?\$,3sc(B) | |
2195 (?(I$(B . ?$,3sd(B) | |
2196 (?(I%(B . ?$,3se(B) | |
2197 (?(I&(B . ?$,3sf(B) | |
2198 (?(I'(B . ?$,3sg(B) | |
2199 (?(I((B . ?$,3sh(B) | |
2200 (?(I)(B . ?$,3si(B) | |
2201 (?(I*(B . ?$,3sj(B) | |
2202 (?(I+(B . ?$,3sk(B) | |
2203 (?(I,(B . ?$,3sl(B) | |
2204 (?(I-(B . ?$,3sm(B) | |
2205 (?(I.(B . ?$,3sn(B) | |
2206 (?(I/(B . ?$,3so(B) | |
2207 (?(I0(B . ?$,3sp(B) | |
2208 (?(I1(B . ?$,3sq(B) | |
2209 (?(I2(B . ?$,3sr(B) | |
2210 (?(I3(B . ?$,3ss(B) | |
2211 (?(I4(B . ?$,3st(B) | |
2212 (?(I5(B . ?$,3su(B) | |
2213 (?(I6(B . ?$,3sv(B) | |
2214 (?(I7(B . ?$,3sw(B) | |
2215 (?(I8(B . ?$,3sx(B) | |
2216 (?(I9(B . ?$,3sy(B) | |
2217 (?(I:(B . ?$,3sz(B) | |
2218 (?(I;(B . ?$,3s{(B) | |
2219 (?(I<(B . ?$,3s|(B) | |
2220 (?(I=(B . ?$,3s}(B) | |
2221 (?(I>(B . ?$,3s~(B) | |
2222 (?(I?(B . ?$,3s(B) | |
2223 (?(I@(B . ?$,3t (B) | |
2224 (?(IA(B . ?$,3t!(B) | |
2225 (?(IB(B . ?$,3t"(B) | |
2226 (?(IC(B . ?$,3t#(B) | |
2227 (?(ID(B . ?$,3t$(B) | |
2228 (?(IE(B . ?$,3t%(B) | |
2229 (?(IF(B . ?$,3t&(B) | |
2230 (?(IG(B . ?$,3t'(B) | |
2231 (?(IH(B . ?$,3t((B) | |
2232 (?(II(B . ?$,3t)(B) | |
2233 (?(IJ(B . ?$,3t*(B) | |
2234 (?(IK(B . ?$,3t+(B) | |
2235 (?(IL(B . ?$,3t,(B) | |
2236 (?(IM(B . ?$,3t-(B) | |
2237 (?(IN(B . ?$,3t.(B) | |
2238 (?(IO(B . ?$,3t/(B) | |
2239 (?(IP(B . ?$,3t0(B) | |
2240 (?(IQ(B . ?$,3t1(B) | |
2241 (?(IR(B . ?$,3t2(B) | |
2242 (?(IS(B . ?$,3t3(B) | |
2243 (?(IT(B . ?$,3t4(B) | |
2244 (?(IU(B . ?$,3t5(B) | |
2245 (?(IV(B . ?$,3t6(B) | |
2246 (?(IW(B . ?$,3t7(B) | |
2247 (?(IX(B . ?$,3t8(B) | |
2248 (?(IY(B . ?$,3t9(B) | |
2249 (?(IZ(B . ?$,3t:(B) | |
2250 (?(I[(B . ?$,3t;(B) | |
2251 (?(I\(B . ?$,3t<(B) | |
2252 (?(I](B . ?$,3t=(B) | |
2253 (?(I^(B . ?$,3t>(B) | |
2254 (?(I_(B . ?$,3t?(B))) | |
2255 | |
2256 (chinese-sisheng | |
2257 '((?(0!(B . ?$,1 !(B) | |
2258 (?(0"(B . ?,Aa(B) | |
2259 (?(0#(B . ?$,1".(B) | |
2260 (?(0$(B . ?,A`(B) | |
2261 (?(0%(B . ?$,1 3(B) | |
2262 (?(0&(B . ?,Ai(B) | |
2263 (?(0'(B . ?$,1 ;(B) | |
2264 (?(0((B . ?,Ah(B) | |
2265 (?(0)(B . ?$,1 K(B) | |
2266 (?(0*(B . ?,Am(B) | |
2267 (?(0+(B . ?$,1"0(B) | |
2268 (?(0,(B . ?,Al(B) | |
2269 (?(0-(B . ?$,1 m(B) | |
2270 (?(0.(B . ?,As(B) | |
2271 (?(0/(B . ?$,1"2(B) | |
2272 (?(00(B . ?,Ar(B) | |
2273 (?(01(B . ?$,1!+(B) | |
2274 (?(02(B . ?,Az(B) | |
2275 (?(03(B . ?$,1"4(B) | |
2276 (?(04(B . ?,Ay(B) | |
2277 (?(05(B . ?$,1"6(B) | |
2278 (?(06(B . ?$,1"8(B) | |
2279 (?(07(B . ?$,1":(B) | |
2280 (?(08(B . ?$,1"<(B) | |
2281 (?(09(B . ?,A|(B) | |
2282 (?(0:(B . ?,Aj(B) | |
2283 (?(0<(B . ?$,1m(B) | |
2284 (?(0=(B . ?$,1 d(B) | |
2285 (?(0>(B . ?$,1 h(B) | |
2286 (?(0?(B . ?$,1"Y(B) | |
2287 (?(0A(B . ?$,1$i(B) | |
2288 (?(0B(B . ?$,1$j(B) | |
2289 (?(0C(B . ?$,1$g(B) | |
2290 (?(0D(B . ?$,1$k(B) | |
2291 (?(0E(B . ?$,2@%(B) | |
2292 (?(0F(B . ?$,2@&(B) | |
2293 (?(0G(B . ?$,2@'(B) | |
2294 (?(0H(B . ?$,2@((B) | |
2295 (?(0I(B . ?$,2@)(B) | |
2296 (?(0J(B . ?$,2@*(B) | |
2297 (?(0K(B . ?$,2@+(B) | |
2298 (?(0L(B . ?$,2@,(B) | |
2299 (?(0M(B . ?$,2@-(B) | |
2300 (?(0N(B . ?$,2@.(B) | |
2301 (?(0O(B . ?$,2@/(B) | |
2302 (?(0P(B . ?$,2@0(B) | |
2303 (?(0Q(B . ?$,2@1(B) | |
2304 (?(0R(B . ?$,2@2(B) | |
2305 (?(0S(B . ?$,2@3(B) | |
2306 (?(0T(B . ?$,2@4(B) | |
2307 (?(0U(B . ?$,2@5(B) | |
2308 (?(0V(B . ?$,2@6(B) | |
2309 (?(0W(B . ?$,2@7(B) | |
2310 (?(0X(B . ?$,2@8(B) | |
2311 (?(0Y(B . ?$,2@9(B) | |
2312 (?(0Z(B . ?$,2@:(B) | |
2313 (?(0[(B . ?$,2@;(B) | |
2314 (?(0\(B . ?$,2@<(B) | |
2315 (?(0](B . ?$,2@=(B) | |
2316 (?(0^(B . ?$,2@>(B) | |
2317 (?(0_(B . ?$,2@?(B) | |
2318 (?(0`(B . ?$,2@@(B) | |
2319 (?(0a(B . ?$,2@A(B) | |
2320 (?(0b(B . ?$,2@B(B) | |
2321 (?(0c(B . ?$,2@C(B) | |
2322 (?(0d(B . ?$,2@D(B) | |
2323 (?(0e(B . ?$,2@E(B) | |
2324 (?(0f(B . ?$,2@F(B) | |
2325 (?(0g(B . ?$,2@G(B) | |
2326 (?(0h(B . ?$,2@H(B) | |
2327 (?(0i(B . ?$,2@I(B))) | |
2328 | |
2329 (lao | |
2330 '((?(1!(B . ?$,1D!(B) | |
2331 (?(1"(B . ?$,1D"(B) | |
2332 (?(1$(B . ?$,1D$(B) | |
2333 (?(1'(B . ?$,1D'(B) | |
2334 (?(1((B . ?$,1D((B) | |
2335 (?(1*(B . ?$,1D*(B) | |
2336 (?(1-(B . ?$,1D-(B) | |
2337 (?(14(B . ?$,1D4(B) | |
2338 (?(15(B . ?$,1D5(B) | |
2339 (?(16(B . ?$,1D6(B) | |
2340 (?(17(B . ?$,1D7(B) | |
2341 (?(19(B . ?$,1D9(B) | |
2342 (?(1:(B . ?$,1D:(B) | |
2343 (?(1;(B . ?$,1D;(B) | |
2344 (?(1<(B . ?$,1D<(B) | |
2345 (?(1=(B . ?$,1D=(B) | |
2346 (?(1>(B . ?$,1D>(B) | |
2347 (?(1?(B . ?$,1D?(B) | |
2348 (?(1A(B . ?$,1DA(B) | |
2349 (?(1B(B . ?$,1DB(B) | |
2350 (?(1C(B . ?$,1DC(B) | |
2351 (?(1E(B . ?$,1DE(B) | |
2352 (?(1G(B . ?$,1DG(B) | |
2353 (?(1J(B . ?$,1DJ(B) | |
2354 (?(1K(B . ?$,1DK(B) | |
2355 (?(1M(B . ?$,1DM(B) | |
2356 (?(1N(B . ?$,1DN(B) | |
2357 (?(1O(B . ?$,1DO(B) | |
2358 (?(1P(B . ?$,1DP(B) | |
2359 (?(1Q(B . ?$,1DQ(B) | |
2360 (?(1R(B . ?$,1DR(B) | |
2361 (?(1S(B . ?$,1DS(B) | |
2362 (?(1T(B . ?$,1DT(B) | |
2363 (?(1U(B . ?$,1DU(B) | |
2364 (?(1V(B . ?$,1DV(B) | |
2365 (?(1W(B . ?$,1DW(B) | |
2366 (?(1X(B . ?$,1DX(B) | |
2367 (?(1Y(B . ?$,1DY(B) | |
2368 (?(1[(B . ?$,1D[(B) | |
2369 (?(1\(B . ?$,1D\(B) | |
2370 (?(1](B . ?$,1D](B) | |
2371 (?(1`(B . ?$,1D`(B) | |
2372 (?(1a(B . ?$,1Da(B) | |
2373 (?(1b(B . ?$,1Db(B) | |
2374 (?(1c(B . ?$,1Dc(B) | |
2375 (?(1d(B . ?$,1Dd(B) | |
2376 (?(1f(B . ?$,1Df(B) | |
2377 (?(1h(B . ?$,1Dh(B) | |
2378 (?(1i(B . ?$,1Di(B) | |
2379 (?(1j(B . ?$,1Dj(B) | |
2380 (?(1k(B . ?$,1Dk(B) | |
2381 (?(1l(B . ?$,1Dl(B) | |
2382 (?(1m(B . ?$,1Dm(B) | |
2383 (?(1p(B . ?$,1Dp(B) | |
2384 (?(1q(B . ?$,1Dq(B) | |
2385 (?(1r(B . ?$,1Dr(B) | |
2386 (?(1s(B . ?$,1Ds(B) | |
2387 (?(1t(B . ?$,1Dt(B) | |
2388 (?(1u(B . ?$,1Du(B) | |
2389 (?(1v(B . ?$,1Dv(B) | |
2390 (?(1w(B . ?$,1Dw(B) | |
2391 (?(1x(B . ?$,1Dx(B) | |
2392 (?(1y(B . ?$,1Dy(B) | |
2393 (?(1|(B . ?$,1D|(B) | |
48765 | 2394 (?(1}(B . ?$,1D}(B))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49294
diff
changeset
|
2395 |
48765 | 2396 (other |
2397 '( | |
2398 ;; latin-jisx0201 is mostly decoded to ascii, with these | |
2399 ;; exceptions, so we don't bother with tables for the whole | |
2400 ;; thing. | |
2401 (?(J\(B . ?,A%(B) | |
2402 (?(J~(B . ?$,1s>(B)))) | |
41878 | 2403 (let ((table (make-char-table 'safe-chars)) |
2404 safe-charsets) | |
2405 (dolist (cs '(vietnamese-viscii lao chinese-sisheng ipa | |
2406 katakana-jisx0201 thai-tis620 tibetan-iso-8bit | |
48751
7a143acc119a
Add latin-jisx0201 characters. Fix
Dave Love <fx@gnu.org>
parents:
48636
diff
changeset
|
2407 indian-is13194 ethiopic other)) |
41878 | 2408 ;; These tables could be used as translation-table-for-encode by |
2409 ;; the relevant coding systems. | |
2410 (let ((encode-translator | |
2411 (if (coding-system-p cs) | |
2412 (set (intern (format "ucs-%s-encode-table" cs)) | |
2413 (make-translation-table))))) | |
2414 (dolist (pair (symbol-value cs)) | |
2415 (aset ucs-mule-to-mule-unicode (car pair) (cdr pair)) | |
2416 (if encode-translator | |
2417 (aset encode-translator (cdr pair) (car pair)))) | |
46506 | 2418 (if encode-translator |
2419 (optimize-char-table encode-translator)) | |
41878 | 2420 (if (charsetp cs) |
2421 (push cs safe-charsets) | |
48767 | 2422 (if (coding-system-p cs) |
2423 (setq safe-charsets | |
2424 (append (delq 'ascii (coding-system-get cs 'safe-charsets)) | |
2425 safe-charsets)))) | |
46506 | 2426 (cond ((eq cs 'vietnamese-viscii) |
2427 (coding-system-put 'vietnamese-viscii | |
48232 | 2428 'translation-table-for-input |
46506 | 2429 encode-translator) |
2430 (coding-system-put 'vietnamese-viqr | |
48232 | 2431 'translation-table-for-input |
46506 | 2432 encode-translator)) |
2433 ((memq cs '(lao thai-tis620 tibetan-iso-8bit)) | |
48751
7a143acc119a
Add latin-jisx0201 characters. Fix
Dave Love <fx@gnu.org>
parents:
48636
diff
changeset
|
2434 (coding-system-put cs 'translation-table-for-input |
7a143acc119a
Add latin-jisx0201 characters. Fix
Dave Love <fx@gnu.org>
parents:
48636
diff
changeset
|
2435 encode-translator))))) |
41878 | 2436 (dolist (c safe-charsets) |
47707 | 2437 (aset table (make-char c) t)))) |
2438 | |
2439 (define-minor-mode unify-8859-on-encoding-mode | |
2440 "Set up translation-tables for unifying ISO 8859 characters on encoding. | |
2441 | |
2442 The ISO 8859 characters sets overlap, e.g. 8859-1 (Latin-1) and | |
2443 8859-15 (Latin-9) differ only in a few characters. Emacs normally | |
2444 distinguishes equivalent characters from those ISO-8859 character sets | |
63271
f6bd5d0552dd
(unify-8859-on-encoding-mode): Fix spellings in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
62796
diff
changeset
|
2445 which are built in to Emacs. This behavior is essentially inherited |
47707 | 2446 from the European-originated international standards. Treating them |
2447 equivalently, by translating to and from a single representation is | |
2448 called `unification'. (The `utf-8' coding system treats the | |
2449 characters of European scripts in a unified manner.) | |
2450 | |
2451 In this mode, on encoding -- i.e. output operations -- non-ASCII | |
2452 characters from the built-in ISO 8859 and `mule-unicode-0100-24ff' | |
2453 charsets are handled automatically by the coding system used if it can | |
2454 represent them. Thus, say, an e-acute from the Latin-1 charset (the | |
2455 unified representation) in a buffer saved as Latin-9 will be encoded | |
2456 directly to a byte value 233. By default, in contrast, you would be | |
2457 prompted for a general coding system to use for saving the file, which | |
2458 can cope with separate Latin-1 and Latin-9 representations of e-acute. | |
2459 | |
48232 | 2460 Also sets hooks that arrange `translation-table-for-input' to be set |
2461 up locally. This will often allow input generated by Quail input | |
2462 methods to conform with what the buffer's file coding system can | |
2463 encode. Thus you could use a Latin-2 input method to search for | |
2464 e-acute in a Latin-1 buffer. | |
41878 | 2465 |
47707 | 2466 See also command `unify-8859-on-decoding-mode'." |
2467 :group 'mule | |
2468 :global t | |
2469 :init-value t | |
2470 (if unify-8859-on-encoding-mode | |
2471 (ucs-unify-8859 t nil) | |
2472 (ucs-fragment-8859 t nil))) | |
2473 | |
2474 (custom-add-version 'unify-8859-on-encoding-mode "21.3") | |
2475 | |
2476 (define-minor-mode unify-8859-on-decoding-mode | |
2477 "Set up translation-tables for unifying ISO 8859 characters on decoding. | |
2478 On decoding, i.e. input operations, non-ASCII characters from the | |
2479 built-in ISO 8859 charsets are unified by mapping them into the | |
2480 `iso-latin-1' and `mule-unicode-0100-24ff' charsets. | |
46506 | 2481 |
48232 | 2482 Also sets `translation-table-for-input' globally, so that keyboard input |
2483 produces unified characters. | |
47707 | 2484 |
2485 See also command `unify-8859-on-encoding-mode' and the user option | |
2486 `utf-fragment-on-decoding'." | |
2487 :group 'mule | |
2488 :global t | |
2489 :init-value nil | |
2490 (if unify-8859-on-decoding-mode | |
2491 (ucs-unify-8859 nil t) | |
2492 (ucs-fragment-8859 nil t))) | |
2493 | |
2494 (custom-add-version 'unify-8859-on-decoding-mode "21.3") | |
2495 | |
2496 ;; Synchronize the status with the initial value of | |
2497 ;; unify-8859-on-encoding-mode and unify-8859-on-decoding-mode. | |
2498 (ucs-unify-8859 t nil) | |
2499 | |
48185
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
2500 ;; Arrange to set up the translation-table for keyboard input. This |
48636 | 2501 ;; is called from get-buffer-create, set-buffer-file-coding-system, |
2502 ;; normal-mode and minibuffer-setup-hook. | |
2503 (defun ucs-set-table-for-input (&optional buffer) | |
2504 "Set up an appropriate `translation-table-for-input' for BUFFER. | |
67435
f245bb6e08da
* files.el (save-buffer):
Reiner Steib <Reiner.Steib@gmx.de>
parents:
66946
diff
changeset
|
2505 BUFFER defaults to the current buffer. This function is |
f245bb6e08da
* files.el (save-buffer):
Reiner Steib <Reiner.Steib@gmx.de>
parents:
66946
diff
changeset
|
2506 automatically called directly at the end of `get-buffer-create'." |
48185
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
2507 (when (and unify-8859-on-encoding-mode |
61590
005901da292a
(ucs-set-table-for-input): Disable when using unify-on-decoding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54643
diff
changeset
|
2508 (not unify-8859-on-decoding-mode) |
48232 | 2509 (char-table-p translation-table-for-input)) |
48185
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
2510 (let ((cs (and buffer-file-coding-system |
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
2511 (coding-system-base buffer-file-coding-system))) |
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
2512 table) |
48636 | 2513 (if (or (null cs) |
2514 (eq cs 'undecided)) | |
48185
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
2515 (setq cs |
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
2516 (and default-buffer-file-coding-system |
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
2517 (coding-system-base default-buffer-file-coding-system)))) |
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
2518 (when cs |
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
2519 (setq table (coding-system-get cs 'translation-table-for-encode)) |
53263
a8d654e3dbcb
(ucs-set-table-for-input): If
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
2520 (if (and table (symbolp table)) |
a8d654e3dbcb
(ucs-set-table-for-input): If
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
2521 (setq table (get table 'translation-table))) |
48185
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
2522 (unless (char-table-p table) |
62796
bd02ca99bb04
(ucs-set-table-for-input): If
Kenichi Handa <handa@m17n.org>
parents:
62274
diff
changeset
|
2523 (setq table (coding-system-get cs 'translation-table-for-input)) |
bd02ca99bb04
(ucs-set-table-for-input): If
Kenichi Handa <handa@m17n.org>
parents:
62274
diff
changeset
|
2524 (if (and table (symbolp table)) |
bd02ca99bb04
(ucs-set-table-for-input): If
Kenichi Handa <handa@m17n.org>
parents:
62274
diff
changeset
|
2525 (setq table (get table 'translation-table)))) |
48185
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
2526 (when (char-table-p table) |
48636 | 2527 (if buffer |
2528 (with-current-buffer buffer | |
66946
41f652ac3620
(ucs-set-table-for-input):
Richard M. Stallman <rms@gnu.org>
parents:
64085
diff
changeset
|
2529 (set (make-local-variable 'translation-table-for-input) |
48636 | 2530 table)) |
66946
41f652ac3620
(ucs-set-table-for-input):
Richard M. Stallman <rms@gnu.org>
parents:
64085
diff
changeset
|
2531 (set (make-local-variable 'translation-table-for-input) |
48636 | 2532 table))))))) |
46506 | 2533 |
2534 ;; The minibuffer needs to acquire a `buffer-file-coding-system' for | |
2535 ;; the above to work in it. | |
2536 (defun ucs-minibuffer-setup () | |
2537 "Set up an appropriate `buffer-file-coding-system' for current buffer. | |
2538 Intended to be added to `minibuffer-setup-hook'." | |
2539 (set (make-local-variable 'buffer-file-coding-system) | |
47547
407d0cf87424
(unify-8859-on-encoding-mode): Set init value to t to reflect reality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47411
diff
changeset
|
2540 (with-current-buffer (let ((win (minibuffer-selected-window))) |
407d0cf87424
(unify-8859-on-encoding-mode): Set init value to t to reflect reality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47411
diff
changeset
|
2541 (if (window-live-p win) (window-buffer win) |
407d0cf87424
(unify-8859-on-encoding-mode): Set init value to t to reflect reality.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47411
diff
changeset
|
2542 (cadr (buffer-list)))) |
48185
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
2543 buffer-file-coding-system)) |
e1a35caa141d
Use keyboard-translate-table coding
Dave Love <fx@gnu.org>
parents:
47792
diff
changeset
|
2544 (ucs-set-table-for-input)) |
46506 | 2545 |
41878 | 2546 (provide 'ucs-tables) |
2547 | |
61590
005901da292a
(ucs-set-table-for-input): Disable when using unify-on-decoding.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54643
diff
changeset
|
2548 ;; arch-tag: b497e22b-7fe1-486a-9352-e2d7f7d76a76 |
41878 | 2549 ;;; ucs-tables.el ends here |