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