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