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