[gnus] / contrib / ucs-tables.el

;;; ucs-tables.el --- translation to, from and via Unicode  -*- coding: iso-2022-7bit -*-

;; Copyright (C) 2001  Free Software Foundation, Inc.

;; Author: Dave Love <fx@gnu.org>
;; Keywords: i18n

;; This file is part of GNU Emacs.

;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.

;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;; This file provides tables mapping between Unicode numbers and
;; emacs-mule characters from the iso-8859 charsets (and others).  It
;; also provides some auxiliary functions.

;; These tables are used to construct other mappings between the Mule
;; iso8859 charsets and the emacs-unicode charsets and a table that
;; unifies iso8859 characters using a single charset as far as
;; possible.  These tables are used by latin1-disp.el to display some
;; Unicode characters without a Unicode font and by utf-8.el to unify
;; Latin-N as far as possible on encoding.

;; More drastically, they can be used to unify 8859 into Latin-1 plus
;; mule-unicode-0100-24ff on decoding, with the corresponding
;; adjustments on encoding; see `ucs-unify-8859'.  Be wary of using
;; unification when, for instance, editing Lisp files such as this one
;; which are supposed to contain distinct 8859 charsets.  Also, it can
;; make reading and writing of emacs-mule and iso-2022-based encodings
;; not idempotent.

;; Global minor modes are provided to unify on encoding and decoding.

;; The translation table `ucs-mule-to-mule-unicode' is populated.
;; This is used by the `mule-utf-8' coding system to encode extra
;; characters.

;; Command `ucs-insert' is convenient for inserting a given Unicode.
;; (See also the `ucs' input method.)

;;; Code:

(when (featurep 'xemacs)
  (error "This file cannot be used with XEmacs.  For XEmacs, use latin-unity instead"))

;;; Define tables, to be populated later.

(defvar ucs-mule-8859-to-ucs-table (make-translation-table)
  "Translation table from Emacs ISO-8859 characters to Unicode.
This maps Emacs characters from the non-Latin-1
...-iso8859-... charsets to their Unicode code points.  This is a
many-to-one mapping.")

(defvar ucs-mule-8859-to-mule-unicode (make-translation-table)
  "Translation table from Emacs ISO-8859 characters to Mule Unicode.
This maps Emacs characters from the non-Latin-1
...-iso8859-... charsets to characters from the
mule-unicode-... charsets.  This is a many-to-one mapping.  The
characters translated to are suitable for encoding using the
`mule-utf-8' coding system.")

;; (defvar ucs-ucs-to-mule-8859-table (make-translation-table)
;;   "Translation table from Unicode to Emacs ISO-8859 characters.
;; This maps Unicode code points to corresponding Emacs characters from
;; the ...-iso8859-... charsets.  This is made a one-to-one mapping where
;; the same character occurs in more than one set by preferring the Emacs
;; iso-8859-N character with lowest N.")

;; (defvar ucs-mule-unicode-to-mule-8859 (make-translation-table)
;;   "Translation table from Mule Unicode to Emacs ISO-8859 characters.
;; This maps non-Latin-1 Emacs characters from the
;; mule-unicode-... charsets used by the `mule-utf-8' coding system to
;; characters from the ...-iso8859-... charsets.  This is made a
;; one-to-one mapping where the same character occurs in more than one
;; set by preferring the Emacs iso-8859-N character with lowest N.")

(defvar ucs-8859-1-encode-table nil
  "Used as `translation-table-for-encode' for iso-8859-2.
Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.")

(defvar ucs-8859-2-encode-table nil
  "Used as `translation-table-for-encode' for iso-8859-2.
Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.")

(defvar ucs-8859-3-encode-table nil
  "Used as `translation-table-for-encode' for iso-8859-3.
Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.")

(defvar ucs-8859-4-encode-table nil
  "Used as `translation-table-for-encode' for iso-8859-4.
Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.")

(defvar ucs-8859-5-encode-table nil
  "Used as `translation-table-for-encode' for iso-8859-5.
Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.")

(defvar ucs-8859-7-encode-table nil
  "Used as `translation-table-for-encode' for iso-8859-7.
Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.")

(defvar ucs-8859-8-encode-table nil
  "Used as `translation-table-for-encode' for iso-8859-8.
Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.")

(defvar ucs-8859-9-encode-table nil
  "Used as `translation-table-for-encode' for iso-8859-9.
Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.")

(defvar ucs-8859-14-encode-table nil
  "Used as `translation-table-for-encode' for iso-8859-14.
Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.")

(defvar ucs-8859-15-encode-table nil
  "Used as `translation-table-for-encode' for iso-8859-15.
Translates from the iso8859 charsets and `mule-unicode-0100-24ff'.")

;; Probably defined by utf-8.el.
(defvar ucs-mule-to-mule-unicode (make-translation-table))
(unless (get 'ucs-mule-to-mule-unicode 'translation-table)
  (define-translation-table 'ucs-mule-to-mule-unicode ucs-mule-to-mule-unicode))
;;; Set up the tables.

;; Most of these tables were derived from ones in Mule-UCS.

;; There doesn't seem to be a need to make these let bindings into
;; defvars, so we'll let the data get GC'ed.
(let ((ucs-8859-2-alist
       '((?\\e,B \e(B . ?\x00A0) ;; NO-BREAK SPACE
         (?\\e,B!\e(B . ?\x0104) ;; LATIN CAPITAL LETTER A WITH OGONEK
         (?\\e,B"\e(B . ?\x02D8) ;; BREVE
         (?\\e,B#\e(B . ?\x0141) ;; LATIN CAPITAL LETTER L WITH STROKE
         (?\\e,B$\e(B . ?\x00A4) ;; CURRENCY SIGN
         (?\\e,B%\e(B . ?\x013D) ;; LATIN CAPITAL LETTER L WITH CARON
         (?\\e,B&\e(B . ?\x015A) ;; LATIN CAPITAL LETTER S WITH ACUTE
         (?\\e,B'\e(B . ?\x00A7) ;; SECTION SIGN
         (?\\e,B(\e(B . ?\x00A8) ;; DIAERESIS
         (?\\e,B)\e(B . ?\x0160) ;; LATIN CAPITAL LETTER S WITH CARON
         (?\\e,B*\e(B . ?\x015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA
         (?\\e,B+\e(B . ?\x0164) ;; LATIN CAPITAL LETTER T WITH CARON
         (?\\e,B,\e(B . ?\x0179) ;; LATIN CAPITAL LETTER Z WITH ACUTE
         (?\\e,B-\e(B . ?\x00AD) ;; SOFT HYPHEN
         (?\\e,B.\e(B . ?\x017D) ;; LATIN CAPITAL LETTER Z WITH CARON
         (?\\e,B/\e(B . ?\x017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE
         (?\\e,B0\e(B . ?\x00B0) ;; DEGREE SIGN
         (?\\e,B1\e(B . ?\x0105) ;; LATIN SMALL LETTER A WITH OGONEK
         (?\\e,B2\e(B . ?\x02DB) ;; OGONEK
         (?\\e,B3\e(B . ?\x0142) ;; LATIN SMALL LETTER L WITH STROKE
         (?\\e,B4\e(B . ?\x00B4) ;; ACUTE ACCENT
         (?\\e,B5\e(B . ?\x013E) ;; LATIN SMALL LETTER L WITH CARON
         (?\\e,B6\e(B . ?\x015B) ;; LATIN SMALL LETTER S WITH ACUTE
         (?\\e,B7\e(B . ?\x02C7) ;; CARON
         (?\\e,B8\e(B . ?\x00B8) ;; CEDILLA
         (?\\e,B9\e(B . ?\x0161) ;; LATIN SMALL LETTER S WITH CARON
         (?\\e,B:\e(B . ?\x015F) ;; LATIN SMALL LETTER S WITH CEDILLA
         (?\\e,B;\e(B . ?\x0165) ;; LATIN SMALL LETTER T WITH CARON
         (?\\e,B<\e(B . ?\x017A) ;; LATIN SMALL LETTER Z WITH ACUTE
         (?\\e,B=\e(B . ?\x02DD) ;; DOUBLE ACUTE ACCENT
         (?\\e,B>\e(B . ?\x017E) ;; LATIN SMALL LETTER Z WITH CARON
         (?\\e,B?\e(B . ?\x017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE
         (?\\e,B@\e(B . ?\x0154) ;; LATIN CAPITAL LETTER R WITH ACUTE
         (?\\e,BA\e(B . ?\x00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
         (?\\e,BB\e(B . ?\x00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
         (?\\e,BC\e(B . ?\x0102) ;; LATIN CAPITAL LETTER A WITH BREVE
         (?\\e,BD\e(B . ?\x00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
         (?\\e,BE\e(B . ?\x0139) ;; LATIN CAPITAL LETTER L WITH ACUTE
         (?\\e,BF\e(B . ?\x0106) ;; LATIN CAPITAL LETTER C WITH ACUTE
         (?\\e,BG\e(B . ?\x00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
         (?\\e,BH\e(B . ?\x010C) ;; LATIN CAPITAL LETTER C WITH CARON
         (?\\e,BI\e(B . ?\x00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
         (?\\e,BJ\e(B . ?\x0118) ;; LATIN CAPITAL LETTER E WITH OGONEK
         (?\\e,BK\e(B . ?\x00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
         (?\\e,BL\e(B . ?\x011A) ;; LATIN CAPITAL LETTER E WITH CARON
         (?\\e,BM\e(B . ?\x00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
         (?\\e,BN\e(B . ?\x00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
         (?\\e,BO\e(B . ?\x010E) ;; LATIN CAPITAL LETTER D WITH CARON
         (?\\e,BP\e(B . ?\x0110) ;; LATIN CAPITAL LETTER D WITH STROKE
         (?\\e,BQ\e(B . ?\x0143) ;; LATIN CAPITAL LETTER N WITH ACUTE
         (?\\e,BR\e(B . ?\x0147) ;; LATIN CAPITAL LETTER N WITH CARON
         (?\\e,BS\e(B . ?\x00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
         (?\\e,BT\e(B . ?\x00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
         (?\\e,BU\e(B . ?\x0150) ;; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
         (?\\e,BV\e(B . ?\x00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
         (?\\e,BW\e(B . ?\x00D7) ;; MULTIPLICATION SIGN
         (?\\e,BX\e(B . ?\x0158) ;; LATIN CAPITAL LETTER R WITH CARON
         (?\\e,BY\e(B . ?\x016E) ;; LATIN CAPITAL LETTER U WITH RING ABOVE
         (?\\e,BZ\e(B . ?\x00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
         (?\\e,B[\e(B . ?\x0170) ;; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
         (?\\e,B\\e(B . ?\x00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
         (?\\e,B]\e(B . ?\x00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE
         (?\\e,B^\e(B . ?\x0162) ;; LATIN CAPITAL LETTER T WITH CEDILLA
         (?\\e,B_\e(B . ?\x00DF) ;; LATIN SMALL LETTER SHARP S
         (?\\e,B`\e(B . ?\x0155) ;; LATIN SMALL LETTER R WITH ACUTE
         (?\\e,Ba\e(B . ?\x00E1) ;; LATIN SMALL LETTER A WITH ACUTE
         (?\\e,Bb\e(B . ?\x00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
         (?\\e,Bc\e(B . ?\x0103) ;; LATIN SMALL LETTER A WITH BREVE
         (?\\e,Bd\e(B . ?\x00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
         (?\\e,Be\e(B . ?\x013A) ;; LATIN SMALL LETTER L WITH ACUTE
         (?\\e,Bf\e(B . ?\x0107) ;; LATIN SMALL LETTER C WITH ACUTE
         (?\\e,Bg\e(B . ?\x00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
         (?\\e,Bh\e(B . ?\x010D) ;; LATIN SMALL LETTER C WITH CARON
         (?\\e,Bi\e(B . ?\x00E9) ;; LATIN SMALL LETTER E WITH ACUTE
         (?\\e,Bj\e(B . ?\x0119) ;; LATIN SMALL LETTER E WITH OGONEK
         (?\\e,Bk\e(B . ?\x00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
         (?\\e,Bl\e(B . ?\x011B) ;; LATIN SMALL LETTER E WITH CARON
         (?\\e,Bm\e(B . ?\x00ED) ;; LATIN SMALL LETTER I WITH ACUTE
         (?\\e,Bn\e(B . ?\x00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
         (?\\e,Bo\e(B . ?\x010F) ;; LATIN SMALL LETTER D WITH CARON
         (?\\e,Bp\e(B . ?\x0111) ;; LATIN SMALL LETTER D WITH STROKE
         (?\\e,Bq\e(B . ?\x0144) ;; LATIN SMALL LETTER N WITH ACUTE
         (?\\e,Br\e(B . ?\x0148) ;; LATIN SMALL LETTER N WITH CARON
         (?\\e,Bs\e(B . ?\x00F3) ;; LATIN SMALL LETTER O WITH ACUTE
         (?\\e,Bt\e(B . ?\x00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
         (?\\e,Bu\e(B . ?\x0151) ;; LATIN SMALL LETTER O WITH DOUBLE ACUTE
         (?\\e,Bv\e(B . ?\x00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
         (?\\e,Bw\e(B . ?\x00F7) ;; DIVISION SIGN
         (?\\e,Bx\e(B . ?\x0159) ;; LATIN SMALL LETTER R WITH CARON
         (?\\e,By\e(B . ?\x016F) ;; LATIN SMALL LETTER U WITH RING ABOVE
         (?\\e,Bz\e(B . ?\x00FA) ;; LATIN SMALL LETTER U WITH ACUTE
         (?\\e,B{\e(B . ?\x0171) ;; LATIN SMALL LETTER U WITH DOUBLE ACUTE
         (?\\e,B|\e(B . ?\x00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
         (?\\e,B}\e(B . ?\x00FD) ;; LATIN SMALL LETTER Y WITH ACUTE
         (?\\e,B~\e(B . ?\x0163) ;; LATIN SMALL LETTER T WITH CEDILLA
         (?\\e,B\7f\e(B . ?\x02D9) ;; DOT ABOVE
         ))

      (ucs-8859-3-alist
       '((?\\e,C \e(B . ?\x00A0) ;; NO-BREAK SPACE
         (?\\e,C!\e(B . ?\x0126) ;; LATIN CAPITAL LETTER H WITH STROKE
         (?\\e,C"\e(B . ?\x02D8) ;; BREVE
         (?\\e,C#\e(B . ?\x00A3) ;; POUND SIGN
         (?\\e,C$\e(B . ?\x00A4) ;; CURRENCY SIGN
         (?\\e,C&\e(B . ?\x0124) ;; LATIN CAPITAL LETTER H WITH CIRCUMFLEX
         (?\\e,C'\e(B . ?\x00A7) ;; SECTION SIGN
         (?\\e,C(\e(B . ?\x00A8) ;; DIAERESIS
         (?\\e,C)\e(B . ?\x0130) ;; LATIN CAPITAL LETTER I WITH DOT ABOVE
         (?\\e,C*\e(B . ?\x015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA
         (?\\e,C+\e(B . ?\x011E) ;; LATIN CAPITAL LETTER G WITH BREVE
         (?\\e,C,\e(B . ?\x0134) ;; LATIN CAPITAL LETTER J WITH CIRCUMFLEX
         (?\\e,C-\e(B . ?\x00AD) ;; SOFT HYPHEN
         (?\\e,C/\e(B . ?\x017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE
         (?\\e,C0\e(B . ?\x00B0) ;; DEGREE SIGN
         (?\\e,C1\e(B . ?\x0127) ;; LATIN SMALL LETTER H WITH STROKE
         (?\\e,C2\e(B . ?\x00B2) ;; SUPERSCRIPT TWO
         (?\\e,C3\e(B . ?\x00B3) ;; SUPERSCRIPT THREE
         (?\\e,C4\e(B . ?\x00B4) ;; ACUTE ACCENT
         (?\\e,C5\e(B . ?\x00B5) ;; MICRO SIGN
         (?\\e,C6\e(B . ?\x0125) ;; LATIN SMALL LETTER H WITH CIRCUMFLEX
         (?\\e,C7\e(B . ?\x00B7) ;; MIDDLE DOT
         (?\\e,C8\e(B . ?\x00B8) ;; CEDILLA
         (?\\e,C9\e(B . ?\x0131) ;; LATIN SMALL LETTER DOTLESS I
         (?\\e,C:\e(B . ?\x015F) ;; LATIN SMALL LETTER S WITH CEDILLA
         (?\\e,C;\e(B . ?\x011F) ;; LATIN SMALL LETTER G WITH BREVE
         (?\\e,C<\e(B . ?\x0135) ;; LATIN SMALL LETTER J WITH CIRCUMFLEX
         (?\\e,C=\e(B . ?\x00BD) ;; VULGAR FRACTION ONE HALF
         (?\\e,C?\e(B . ?\x017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE
         (?\\e,C@\e(B . ?\x00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
         (?\\e,CA\e(B . ?\x00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
         (?\\e,CB\e(B . ?\x00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
         (?\\e,CD\e(B . ?\x00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
         (?\\e,CE\e(B . ?\x010A) ;; LATIN CAPITAL LETTER C WITH DOT ABOVE
         (?\\e,CF\e(B . ?\x0108) ;; LATIN CAPITAL LETTER C WITH CIRCUMFLEX
         (?\\e,CG\e(B . ?\x00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
         (?\\e,CH\e(B . ?\x00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
         (?\\e,CI\e(B . ?\x00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
         (?\\e,CJ\e(B . ?\x00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
         (?\\e,CK\e(B . ?\x00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
         (?\\e,CL\e(B . ?\x00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
         (?\\e,CM\e(B . ?\x00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
         (?\\e,CN\e(B . ?\x00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
         (?\\e,CO\e(B . ?\x00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
         (?\\e,CQ\e(B . ?\x00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
         (?\\e,CR\e(B . ?\x00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
         (?\\e,CS\e(B . ?\x00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
         (?\\e,CT\e(B . ?\x00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
         (?\\e,CU\e(B . ?\x0120) ;; LATIN CAPITAL LETTER G WITH DOT ABOVE
         (?\\e,CV\e(B . ?\x00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
         (?\\e,CW\e(B . ?\x00D7) ;; MULTIPLICATION SIGN
         (?\\e,CX\e(B . ?\x011C) ;; LATIN CAPITAL LETTER G WITH CIRCUMFLEX
         (?\\e,CY\e(B . ?\x00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
         (?\\e,CZ\e(B . ?\x00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
         (?\\e,C[\e(B . ?\x00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
         (?\\e,C\\e(B . ?\x00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
         (?\\e,C]\e(B . ?\x016C) ;; LATIN CAPITAL LETTER U WITH BREVE
         (?\\e,C^\e(B . ?\x015C) ;; LATIN CAPITAL LETTER S WITH CIRCUMFLEX
         (?\\e,C_\e(B . ?\x00DF) ;; LATIN SMALL LETTER SHARP S
         (?\\e,C`\e(B . ?\x00E0) ;; LATIN SMALL LETTER A WITH GRAVE
         (?\\e,Ca\e(B . ?\x00E1) ;; LATIN SMALL LETTER A WITH ACUTE
         (?\\e,Cb\e(B . ?\x00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
         (?\\e,Cd\e(B . ?\x00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
         (?\\e,Ce\e(B . ?\x010B) ;; LATIN SMALL LETTER C WITH DOT ABOVE
         (?\\e,Cf\e(B . ?\x0109) ;; LATIN SMALL LETTER C WITH CIRCUMFLEX
         (?\\e,Cg\e(B . ?\x00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
         (?\\e,Ch\e(B . ?\x00E8) ;; LATIN SMALL LETTER E WITH GRAVE
         (?\\e,Ci\e(B . ?\x00E9) ;; LATIN SMALL LETTER E WITH ACUTE
         (?\\e,Cj\e(B . ?\x00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
         (?\\e,Ck\e(B . ?\x00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
         (?\\e,Cl\e(B . ?\x00EC) ;; LATIN SMALL LETTER I WITH GRAVE
         (?\\e,Cm\e(B . ?\x00ED) ;; LATIN SMALL LETTER I WITH ACUTE
         (?\\e,Cn\e(B . ?\x00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
         (?\\e,Co\e(B . ?\x00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
         (?\\e,Cq\e(B . ?\x00F1) ;; LATIN SMALL LETTER N WITH TILDE
         (?\\e,Cr\e(B . ?\x00F2) ;; LATIN SMALL LETTER O WITH GRAVE
         (?\\e,Cs\e(B . ?\x00F3) ;; LATIN SMALL LETTER O WITH ACUTE
         (?\\e,Ct\e(B . ?\x00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
         (?\\e,Cu\e(B . ?\x0121) ;; LATIN SMALL LETTER G WITH DOT ABOVE
         (?\\e,Cv\e(B . ?\x00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
         (?\\e,Cw\e(B . ?\x00F7) ;; DIVISION SIGN
         (?\\e,Cx\e(B . ?\x011D) ;; LATIN SMALL LETTER G WITH CIRCUMFLEX
         (?\\e,Cy\e(B . ?\x00F9) ;; LATIN SMALL LETTER U WITH GRAVE
         (?\\e,Cz\e(B . ?\x00FA) ;; LATIN SMALL LETTER U WITH ACUTE
         (?\\e,C{\e(B . ?\x00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
         (?\\e,C|\e(B . ?\x00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
         (?\\e,C}\e(B . ?\x016D) ;; LATIN SMALL LETTER U WITH BREVE
         (?\\e,C~\e(B . ?\x015D) ;; LATIN SMALL LETTER S WITH CIRCUMFLEX
         (?\\e,C\7f\e(B . ?\x02D9) ;; DOT ABOVE
         ))

      (ucs-8859-4-alist
       '((?\\e,D \e(B . ?\x00A0) ;; NO-BREAK SPACE
         (?\\e,D!\e(B . ?\x0104) ;; LATIN CAPITAL LETTER A WITH OGONEK
         (?\\e,D"\e(B . ?\x0138) ;; LATIN SMALL LETTER KRA
         (?\\e,D#\e(B . ?\x0156) ;; LATIN CAPITAL LETTER R WITH CEDILLA
         (?\\e,D$\e(B . ?\x00A4) ;; CURRENCY SIGN
         (?\\e,D%\e(B . ?\x0128) ;; LATIN CAPITAL LETTER I WITH TILDE
         (?\\e,D&\e(B . ?\x013B) ;; LATIN CAPITAL LETTER L WITH CEDILLA
         (?\\e,D'\e(B . ?\x00A7) ;; SECTION SIGN
         (?\\e,D(\e(B . ?\x00A8) ;; DIAERESIS
         (?\\e,D)\e(B . ?\x0160) ;; LATIN CAPITAL LETTER S WITH CARON
         (?\\e,D*\e(B . ?\x0112) ;; LATIN CAPITAL LETTER E WITH MACRON
         (?\\e,D+\e(B . ?\x0122) ;; LATIN CAPITAL LETTER G WITH CEDILLA
         (?\\e,D,\e(B . ?\x0166) ;; LATIN CAPITAL LETTER T WITH STROKE
         (?\\e,D-\e(B . ?\x00AD) ;; SOFT HYPHEN
         (?\\e,D.\e(B . ?\x017D) ;; LATIN CAPITAL LETTER Z WITH CARON
         (?\\e,D/\e(B . ?\x00AF) ;; MACRON
         (?\\e,D0\e(B . ?\x00B0) ;; DEGREE SIGN
         (?\\e,D1\e(B . ?\x0105) ;; LATIN SMALL LETTER A WITH OGONEK
         (?\\e,D2\e(B . ?\x02DB) ;; OGONEK
         (?\\e,D3\e(B . ?\x0157) ;; LATIN SMALL LETTER R WITH CEDILLA
         (?\\e,D4\e(B . ?\x00B4) ;; ACUTE ACCENT
         (?\\e,D5\e(B . ?\x0129) ;; LATIN SMALL LETTER I WITH TILDE
         (?\\e,D6\e(B . ?\x013C) ;; LATIN SMALL LETTER L WITH CEDILLA
         (?\\e,D7\e(B . ?\x02C7) ;; CARON
         (?\\e,D8\e(B . ?\x00B8) ;; CEDILLA
         (?\\e,D9\e(B . ?\x0161) ;; LATIN SMALL LETTER S WITH CARON
         (?\\e,D:\e(B . ?\x0113) ;; LATIN SMALL LETTER E WITH MACRON
         (?\\e,D;\e(B . ?\x0123) ;; LATIN SMALL LETTER G WITH CEDILLA
         (?\\e,D<\e(B . ?\x0167) ;; LATIN SMALL LETTER T WITH STROKE
         (?\\e,D=\e(B . ?\x014A) ;; LATIN CAPITAL LETTER ENG
         (?\\e,D>\e(B . ?\x017E) ;; LATIN SMALL LETTER Z WITH CARON
         (?\\e,D?\e(B . ?\x014B) ;; LATIN SMALL LETTER ENG
         (?\\e,D@\e(B . ?\x0100) ;; LATIN CAPITAL LETTER A WITH MACRON
         (?\\e,DA\e(B . ?\x00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
         (?\\e,DB\e(B . ?\x00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
         (?\\e,DC\e(B . ?\x00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
         (?\\e,DD\e(B . ?\x00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
         (?\\e,DE\e(B . ?\x00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
         (?\\e,DF\e(B . ?\x00C6) ;; LATIN CAPITAL LETTER AE
         (?\\e,DG\e(B . ?\x012E) ;; LATIN CAPITAL LETTER I WITH OGONEK
         (?\\e,DH\e(B . ?\x010C) ;; LATIN CAPITAL LETTER C WITH CARON
         (?\\e,DI\e(B . ?\x00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
         (?\\e,DJ\e(B . ?\x0118) ;; LATIN CAPITAL LETTER E WITH OGONEK
         (?\\e,DK\e(B . ?\x00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
         (?\\e,DL\e(B . ?\x0116) ;; LATIN CAPITAL LETTER E WITH DOT ABOVE
         (?\\e,DM\e(B . ?\x00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
         (?\\e,DN\e(B . ?\x00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
         (?\\e,DO\e(B . ?\x012A) ;; LATIN CAPITAL LETTER I WITH MACRON
         (?\\e,DP\e(B . ?\x0110) ;; LATIN CAPITAL LETTER D WITH STROKE
         (?\\e,DQ\e(B . ?\x0145) ;; LATIN CAPITAL LETTER N WITH CEDILLA
         (?\\e,DR\e(B . ?\x014C) ;; LATIN CAPITAL LETTER O WITH MACRON
         (?\\e,DS\e(B . ?\x0136) ;; LATIN CAPITAL LETTER K WITH CEDILLA
         (?\\e,DT\e(B . ?\x00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
         (?\\e,DU\e(B . ?\x00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
         (?\\e,DV\e(B . ?\x00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
         (?\\e,DW\e(B . ?\x00D7) ;; MULTIPLICATION SIGN
         (?\\e,DX\e(B . ?\x00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
         (?\\e,DY\e(B . ?\x0172) ;; LATIN CAPITAL LETTER U WITH OGONEK
         (?\\e,DZ\e(B . ?\x00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
         (?\\e,D[\e(B . ?\x00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
         (?\\e,D\\e(B . ?\x00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
         (?\\e,D]\e(B . ?\x0168) ;; LATIN CAPITAL LETTER U WITH TILDE
         (?\\e,D^\e(B . ?\x016A) ;; LATIN CAPITAL LETTER U WITH MACRON
         (?\\e,D_\e(B . ?\x00DF) ;; LATIN SMALL LETTER SHARP S
         (?\\e,D`\e(B . ?\x0101) ;; LATIN SMALL LETTER A WITH MACRON
         (?\\e,Da\e(B . ?\x00E1) ;; LATIN SMALL LETTER A WITH ACUTE
         (?\\e,Db\e(B . ?\x00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
         (?\\e,Dc\e(B . ?\x00E3) ;; LATIN SMALL LETTER A WITH TILDE
         (?\\e,Dd\e(B . ?\x00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
         (?\\e,De\e(B . ?\x00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
         (?\\e,Df\e(B . ?\x00E6) ;; LATIN SMALL LETTER AE
         (?\\e,Dg\e(B . ?\x012F) ;; LATIN SMALL LETTER I WITH OGONEK
         (?\\e,Dh\e(B . ?\x010D) ;; LATIN SMALL LETTER C WITH CARON
         (?\\e,Di\e(B . ?\x00E9) ;; LATIN SMALL LETTER E WITH ACUTE
         (?\\e,Dj\e(B . ?\x0119) ;; LATIN SMALL LETTER E WITH OGONEK
         (?\\e,Dk\e(B . ?\x00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
         (?\\e,Dl\e(B . ?\x0117) ;; LATIN SMALL LETTER E WITH DOT ABOVE
         (?\\e,Dm\e(B . ?\x00ED) ;; LATIN SMALL LETTER I WITH ACUTE
         (?\\e,Dn\e(B . ?\x00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
         (?\\e,Do\e(B . ?\x012B) ;; LATIN SMALL LETTER I WITH MACRON
         (?\\e,Dp\e(B . ?\x0111) ;; LATIN SMALL LETTER D WITH STROKE
         (?\\e,Dq\e(B . ?\x0146) ;; LATIN SMALL LETTER N WITH CEDILLA
         (?\\e,Dr\e(B . ?\x014D) ;; LATIN SMALL LETTER O WITH MACRON
         (?\\e,Ds\e(B . ?\x0137) ;; LATIN SMALL LETTER K WITH CEDILLA
         (?\\e,Dt\e(B . ?\x00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
         (?\\e,Du\e(B . ?\x00F5) ;; LATIN SMALL LETTER O WITH TILDE
         (?\\e,Dv\e(B . ?\x00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
         (?\\e,Dw\e(B . ?\x00F7) ;; DIVISION SIGN
         (?\\e,Dx\e(B . ?\x00F8) ;; LATIN SMALL LETTER O WITH STROKE
         (?\\e,Dy\e(B . ?\x0173) ;; LATIN SMALL LETTER U WITH OGONEK
         (?\\e,Dz\e(B . ?\x00FA) ;; LATIN SMALL LETTER U WITH ACUTE
         (?\\e,D{\e(B . ?\x00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
         (?\\e,D|\e(B . ?\x00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
         (?\\e,D}\e(B . ?\x0169) ;; LATIN SMALL LETTER U WITH TILDE
         (?\\e,D~\e(B . ?\x016B) ;; LATIN SMALL LETTER U WITH MACRON
         (?\\e,D\7f\e(B . ?\x02D9) ;; DOT ABOVE
         ))

      (ucs-8859-5-alist
       '((?\\e,L \e(B . ?\x00A0) ;; NO-BREAK SPACE
         (?\\e,L!\e(B . ?\x0401) ;; CYRILLIC CAPITAL LETTER IO
         (?\\e,L"\e(B . ?\x0402) ;; CYRILLIC CAPITAL LETTER DJE
         (?\\e,L#\e(B . ?\x0403) ;; CYRILLIC CAPITAL LETTER GJE
         (?\\e,L$\e(B . ?\x0404) ;; CYRILLIC CAPITAL LETTER UKRAINIAN IE
         (?\\e,L%\e(B . ?\x0405) ;; CYRILLIC CAPITAL LETTER DZE
         (?\\e,L&\e(B . ?\x0406) ;; CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
         (?\\e,L'\e(B . ?\x0407) ;; CYRILLIC CAPITAL LETTER YI
         (?\\e,L(\e(B . ?\x0408) ;; CYRILLIC CAPITAL LETTER JE
         (?\\e,L)\e(B . ?\x0409) ;; CYRILLIC CAPITAL LETTER LJE
         (?\\e,L*\e(B . ?\x040A) ;; CYRILLIC CAPITAL LETTER NJE
         (?\\e,L+\e(B . ?\x040B) ;; CYRILLIC CAPITAL LETTER TSHE
         (?\\e,L,\e(B . ?\x040C) ;; CYRILLIC CAPITAL LETTER KJE
         (?\\e,L-\e(B . ?\x00AD) ;; SOFT HYPHEN
         (?\\e,L.\e(B . ?\x040E) ;; CYRILLIC CAPITAL LETTER SHORT U
         (?\\e,L/\e(B . ?\x040F) ;; CYRILLIC CAPITAL LETTER DZHE
         (?\\e,L0\e(B . ?\x0410) ;; CYRILLIC CAPITAL LETTER A
         (?\\e,L1\e(B . ?\x0411) ;; CYRILLIC CAPITAL LETTER BE
         (?\\e,L2\e(B . ?\x0412) ;; CYRILLIC CAPITAL LETTER VE
         (?\\e,L3\e(B . ?\x0413) ;; CYRILLIC CAPITAL LETTER GHE
         (?\\e,L4\e(B . ?\x0414) ;; CYRILLIC CAPITAL LETTER DE
         (?\\e,L5\e(B . ?\x0415) ;; CYRILLIC CAPITAL LETTER IE
         (?\\e,L6\e(B . ?\x0416) ;; CYRILLIC CAPITAL LETTER ZHE
         (?\\e,L7\e(B . ?\x0417) ;; CYRILLIC CAPITAL LETTER ZE
         (?\\e,L8\e(B . ?\x0418) ;; CYRILLIC CAPITAL LETTER I
         (?\\e,L9\e(B . ?\x0419) ;; CYRILLIC CAPITAL LETTER SHORT I
         (?\\e,L:\e(B . ?\x041A) ;; CYRILLIC CAPITAL LETTER KA
         (?\\e,L;\e(B . ?\x041B) ;; CYRILLIC CAPITAL LETTER EL
         (?\\e,L<\e(B . ?\x041C) ;; CYRILLIC CAPITAL LETTER EM
         (?\\e,L=\e(B . ?\x041D) ;; CYRILLIC CAPITAL LETTER EN
         (?\\e,L>\e(B . ?\x041E) ;; CYRILLIC CAPITAL LETTER O
         (?\\e,L?\e(B . ?\x041F) ;; CYRILLIC CAPITAL LETTER PE
         (?\\e,L@\e(B . ?\x0420) ;; CYRILLIC CAPITAL LETTER ER
         (?\\e,LA\e(B . ?\x0421) ;; CYRILLIC CAPITAL LETTER ES
         (?\\e,LB\e(B . ?\x0422) ;; CYRILLIC CAPITAL LETTER TE
         (?\\e,LC\e(B . ?\x0423) ;; CYRILLIC CAPITAL LETTER U
         (?\\e,LD\e(B . ?\x0424) ;; CYRILLIC CAPITAL LETTER EF
         (?\\e,LE\e(B . ?\x0425) ;; CYRILLIC CAPITAL LETTER HA
         (?\\e,LF\e(B . ?\x0426) ;; CYRILLIC CAPITAL LETTER TSE
         (?\\e,LG\e(B . ?\x0427) ;; CYRILLIC CAPITAL LETTER CHE
         (?\\e,LH\e(B . ?\x0428) ;; CYRILLIC CAPITAL LETTER SHA
         (?\\e,LI\e(B . ?\x0429) ;; CYRILLIC CAPITAL LETTER SHCHA
         (?\\e,LJ\e(B . ?\x042A) ;; CYRILLIC CAPITAL LETTER HARD SIGN
         (?\\e,LK\e(B . ?\x042B) ;; CYRILLIC CAPITAL LETTER YERU
         (?\\e,LL\e(B . ?\x042C) ;; CYRILLIC CAPITAL LETTER SOFT SIGN
         (?\\e,LM\e(B . ?\x042D) ;; CYRILLIC CAPITAL LETTER E
         (?\\e,LN\e(B . ?\x042E) ;; CYRILLIC CAPITAL LETTER YU
         (?\\e,LO\e(B . ?\x042F) ;; CYRILLIC CAPITAL LETTER YA
         (?\\e,LP\e(B . ?\x0430) ;; CYRILLIC SMALL LETTER A
         (?\\e,LQ\e(B . ?\x0431) ;; CYRILLIC SMALL LETTER BE
         (?\\e,LR\e(B . ?\x0432) ;; CYRILLIC SMALL LETTER VE
         (?\\e,LS\e(B . ?\x0433) ;; CYRILLIC SMALL LETTER GHE
         (?\\e,LT\e(B . ?\x0434) ;; CYRILLIC SMALL LETTER DE
         (?\\e,LU\e(B . ?\x0435) ;; CYRILLIC SMALL LETTER IE
         (?\\e,LV\e(B . ?\x0436) ;; CYRILLIC SMALL LETTER ZHE
         (?\\e,LW\e(B . ?\x0437) ;; CYRILLIC SMALL LETTER ZE
         (?\\e,LX\e(B . ?\x0438) ;; CYRILLIC SMALL LETTER I
         (?\\e,LY\e(B . ?\x0439) ;; CYRILLIC SMALL LETTER SHORT I
         (?\\e,LZ\e(B . ?\x043A) ;; CYRILLIC SMALL LETTER KA
         (?\\e,L[\e(B . ?\x043B) ;; CYRILLIC SMALL LETTER EL
         (?\\e,L\\e(B . ?\x043C) ;; CYRILLIC SMALL LETTER EM
         (?\\e,L]\e(B . ?\x043D) ;; CYRILLIC SMALL LETTER EN
         (?\\e,L^\e(B . ?\x043E) ;; CYRILLIC SMALL LETTER O
         (?\\e,L_\e(B . ?\x043F) ;; CYRILLIC SMALL LETTER PE
         (?\\e,L`\e(B . ?\x0440) ;; CYRILLIC SMALL LETTER ER
         (?\\e,La\e(B . ?\x0441) ;; CYRILLIC SMALL LETTER ES
         (?\\e,Lb\e(B . ?\x0442) ;; CYRILLIC SMALL LETTER TE
         (?\\e,Lc\e(B . ?\x0443) ;; CYRILLIC SMALL LETTER U
         (?\\e,Ld\e(B . ?\x0444) ;; CYRILLIC SMALL LETTER EF
         (?\\e,Le\e(B . ?\x0445) ;; CYRILLIC SMALL LETTER HA
         (?\\e,Lf\e(B . ?\x0446) ;; CYRILLIC SMALL LETTER TSE
         (?\\e,Lg\e(B . ?\x0447) ;; CYRILLIC SMALL LETTER CHE
         (?\\e,Lh\e(B . ?\x0448) ;; CYRILLIC SMALL LETTER SHA
         (?\\e,Li\e(B . ?\x0449) ;; CYRILLIC SMALL LETTER SHCHA
         (?\\e,Lj\e(B . ?\x044A) ;; CYRILLIC SMALL LETTER HARD SIGN
         (?\\e,Lk\e(B . ?\x044B) ;; CYRILLIC SMALL LETTER YERU
         (?\\e,Ll\e(B . ?\x044C) ;; CYRILLIC SMALL LETTER SOFT SIGN
         (?\\e,Lm\e(B . ?\x044D) ;; CYRILLIC SMALL LETTER E
         (?\\e,Ln\e(B . ?\x044E) ;; CYRILLIC SMALL LETTER YU
         (?\\e,Lo\e(B . ?\x044F) ;; CYRILLIC SMALL LETTER YA
         (?\\e,Lp\e(B . ?\x2116) ;; NUMERO SIGN
         (?\\e,Lq\e(B . ?\x0451) ;; CYRILLIC SMALL LETTER IO
         (?\\e,Lr\e(B . ?\x0452) ;; CYRILLIC SMALL LETTER DJE
         (?\\e,Ls\e(B . ?\x0453) ;; CYRILLIC SMALL LETTER GJE
         (?\\e,Lt\e(B . ?\x0454) ;; CYRILLIC SMALL LETTER UKRAINIAN IE
         (?\\e,Lu\e(B . ?\x0455) ;; CYRILLIC SMALL LETTER DZE
         (?\\e,Lv\e(B . ?\x0456) ;; CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
         (?\\e,Lw\e(B . ?\x0457) ;; CYRILLIC SMALL LETTER YI
         (?\\e,Lx\e(B . ?\x0458) ;; CYRILLIC SMALL LETTER JE
         (?\\e,Ly\e(B . ?\x0459) ;; CYRILLIC SMALL LETTER LJE
         (?\\e,Lz\e(B . ?\x045A) ;; CYRILLIC SMALL LETTER NJE
         (?\\e,L{\e(B . ?\x045B) ;; CYRILLIC SMALL LETTER TSHE
         (?\\e,L|\e(B . ?\x045C) ;; CYRILLIC SMALL LETTER KJE
         (?\\e,L}\e(B . ?\x00A7) ;; SECTION SIGN
         (?\\e,L~\e(B . ?\x045E) ;; CYRILLIC SMALL LETTER SHORT U
         (?\\e,L\7f\e(B . ?\x045F) ;; CYRILLIC SMALL LETTER DZHE
         ))

      ;; Arabic probably isn't so useful in the absence of Arabic
      ;; language support.
      (ucs-8859-6-alist
       '((?\e,G \e(B . ?\x00A0)   ;; NO-BREAK SPACE
         (?\e,G$\e(B . ?\x00A4)   ;; CURRENCY SIGN
         (?\e,G,\e(B . ?\x060C)   ;; ARABIC COMMA
         (?\e,G-\e(B . ?\x00AD)   ;; SOFT HYPHEN
         (?\e,G;\e(B . ?\x061B)   ;; ARABIC SEMICOLON
         (?\e,G?\e(B . ?\x061F)   ;; ARABIC QUESTION MARK
         (?\e,GA\e(B . ?\x0621)   ;; ARABIC LETTER HAMZA
         (?\e,GB\e(B . ?\x0622)   ;; ARABIC LETTER ALEF WITH MADDA ABOVE
         (?\e,GC\e(B . ?\x0623)   ;; ARABIC LETTER ALEF WITH HAMZA ABOVE
         (?\e,GD\e(B . ?\x0624)   ;; ARABIC LETTER WAW WITH HAMZA ABOVE
         (?\e,GE\e(B . ?\x0625)   ;; ARABIC LETTER ALEF WITH HAMZA BELOW
         (?\e,GF\e(B . ?\x0626)   ;; ARABIC LETTER YEH WITH HAMZA ABOVE
         (?\e,GG\e(B . ?\x0627)   ;; ARABIC LETTER ALEF
         (?\e,GH\e(B . ?\x0628)   ;; ARABIC LETTER BEH
         (?\e,GI\e(B . ?\x0629)   ;; ARABIC LETTER TEH MARBUTA
         (?\e,GJ\e(B . ?\x062A)   ;; ARABIC LETTER TEH
         (?\e,GK\e(B . ?\x062B)   ;; ARABIC LETTER THEH
         (?\e,GL\e(B . ?\x062C)   ;; ARABIC LETTER JEEM
         (?\e,GM\e(B . ?\x062D)   ;; ARABIC LETTER HAH
         (?\e,GN\e(B . ?\x062E)   ;; ARABIC LETTER KHAH
         (?\e,GO\e(B . ?\x062F)   ;; ARABIC LETTER DAL
         (?\e,GP\e(B . ?\x0630)   ;; ARABIC LETTER THAL
         (?\e,GQ\e(B . ?\x0631)   ;; ARABIC LETTER REH
         (?\e,GR\e(B . ?\x0632)   ;; ARABIC LETTER ZAIN
         (?\e,GS\e(B . ?\x0633)   ;; ARABIC LETTER SEEN
         (?\e,GT\e(B . ?\x0634)   ;; ARABIC LETTER SHEEN
         (?\e,GU\e(B . ?\x0635)   ;; ARABIC LETTER SAD
         (?\e,GV\e(B . ?\x0636)   ;; ARABIC LETTER DAD
         (?\e,GW\e(B . ?\x0637)   ;; ARABIC LETTER TAH
         (?\e,GX\e(B . ?\x0638)   ;; ARABIC LETTER ZAH
         (?\e,GY\e(B . ?\x0639)   ;; ARABIC LETTER AIN
         (?\e,GZ\e(B . ?\x063A)   ;; ARABIC LETTER GHAIN
         (?\e,G`\e(B . ?\x0640)   ;; ARABIC TATWEEL
         (?\e,Ga\e(B . ?\x0641)   ;; ARABIC LETTER FEH
         (?\e,Gb\e(B . ?\x0642)   ;; ARABIC LETTER QAF
         (?\e,Gc\e(B . ?\x0643)   ;; ARABIC LETTER KAF
         (?\e,Gd\e(B . ?\x0644)   ;; ARABIC LETTER LAM
         (?\e,Ge\e(B . ?\x0645)   ;; ARABIC LETTER MEEM
         (?\e,Gf\e(B . ?\x0646)   ;; ARABIC LETTER NOON
         (?\e,Gg\e(B . ?\x0647)   ;; ARABIC LETTER HEH
         (?\e,Gh\e(B . ?\x0648)   ;; ARABIC LETTER WAW
         (?\e,Gi\e(B . ?\x0649)   ;; ARABIC LETTER ALEF MAKSURA
         (?\e,Gj\e(B . ?\x064A)   ;; ARABIC LETTER YEH
         (?\e,Gk\e(B . ?\x064B)   ;; ARABIC FATHATAN
         (?\e,Gl\e(B . ?\x064C)   ;; ARABIC DAMMATAN
         (?\e,Gm\e(B . ?\x064D)   ;; ARABIC KASRATAN
         (?\e,Gn\e(B . ?\x064E)   ;; ARABIC FATHA
         (?\e,Go\e(B . ?\x064F)   ;; ARABIC DAMMA
         (?\e,Gp\e(B . ?\x0650)   ;; ARABIC KASRA
         (?\e,Gq\e(B . ?\x0651)   ;; ARABIC SHADDA
         (?\e,Gr\e(B . ?\x0652)   ;; ARABIC SUKUN
         ))

      (ucs-8859-7-alist
       '((?\\e,F \e(B . ?\x00A0) ;; NO-BREAK SPACE
         (?\\e,F!\e(B . ?\x2018) ;; LEFT SINGLE QUOTATION MARK
         (?\\e,F"\e(B . ?\x2019) ;; RIGHT SINGLE QUOTATION MARK
         (?\\e,F#\e(B . ?\x00A3) ;; POUND SIGN
         (?\$ . ?\x20AC) ;; EURO SIGN
         (?\% . ?\x20AF) ;; DRACHMA SIGN
         (?\\e,F&\e(B . ?\x00A6) ;; BROKEN BAR
         (?\\e,F'\e(B . ?\x00A7) ;; SECTION SIGN
         (?\\e,F(\e(B . ?\x00A8) ;; DIAERESIS
         (?\\e,F)\e(B . ?\x00A9) ;; COPYRIGHT SIGN
         (?\* . ?\x037A) ;; GREEK YPOGEGRAMMENI
         (?\\e,F+\e(B . ?\x00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
         (?\\e,F,\e(B . ?\x00AC) ;; NOT SIGN
         (?\\e,F-\e(B . ?\x00AD) ;; SOFT HYPHEN
         (?\\e,F/\e(B . ?\x2015) ;; HORIZONTAL BAR
         (?\\e,F0\e(B . ?\x00B0) ;; DEGREE SIGN
         (?\\e,F1\e(B . ?\x00B1) ;; PLUS-MINUS SIGN
         (?\\e,F2\e(B . ?\x00B2) ;; SUPERSCRIPT TWO
         (?\\e,F3\e(B . ?\x00B3) ;; SUPERSCRIPT THREE
         (?\\e,F4\e(B . ?\x0384) ;; GREEK TONOS
         (?\\e,F5\e(B . ?\x0385) ;; GREEK DIALYTIKA TONOS
         (?\\e,F6\e(B . ?\x0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS
         (?\\e,F7\e(B . ?\x00B7) ;; MIDDLE DOT
         (?\\e,F8\e(B . ?\x0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS
         (?\\e,F9\e(B . ?\x0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS
         (?\\e,F:\e(B . ?\x038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS
         (?\\e,F;\e(B . ?\x00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
         (?\\e,F<\e(B . ?\x038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS
         (?\\e,F=\e(B . ?\x00BD) ;; VULGAR FRACTION ONE HALF
         (?\\e,F>\e(B . ?\x038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS
         (?\\e,F?\e(B . ?\x038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS
         (?\\e,F@\e(B . ?\x0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
         (?\\e,FA\e(B . ?\x0391) ;; GREEK CAPITAL LETTER ALPHA
         (?\\e,FB\e(B . ?\x0392) ;; GREEK CAPITAL LETTER BETA
         (?\\e,FC\e(B . ?\x0393) ;; GREEK CAPITAL LETTER GAMMA
         (?\\e,FD\e(B . ?\x0394) ;; GREEK CAPITAL LETTER DELTA
         (?\\e,FE\e(B . ?\x0395) ;; GREEK CAPITAL LETTER EPSILON
         (?\\e,FF\e(B . ?\x0396) ;; GREEK CAPITAL LETTER ZETA
         (?\\e,FG\e(B . ?\x0397) ;; GREEK CAPITAL LETTER ETA
         (?\\e,FH\e(B . ?\x0398) ;; GREEK CAPITAL LETTER THETA
         (?\\e,FI\e(B . ?\x0399) ;; GREEK CAPITAL LETTER IOTA
         (?\\e,FJ\e(B . ?\x039A) ;; GREEK CAPITAL LETTER KAPPA
         (?\\e,FK\e(B . ?\x039B) ;; GREEK CAPITAL LETTER LAMDA
         (?\\e,FL\e(B . ?\x039C) ;; GREEK CAPITAL LETTER MU
         (?\\e,FM\e(B . ?\x039D) ;; GREEK CAPITAL LETTER NU
         (?\\e,FN\e(B . ?\x039E) ;; GREEK CAPITAL LETTER XI
         (?\\e,FO\e(B . ?\x039F) ;; GREEK CAPITAL LETTER OMICRON
         (?\\e,FP\e(B . ?\x03A0) ;; GREEK CAPITAL LETTER PI
         (?\\e,FQ\e(B . ?\x03A1) ;; GREEK CAPITAL LETTER RHO
         (?\\e,FS\e(B . ?\x03A3) ;; GREEK CAPITAL LETTER SIGMA
         (?\\e,FT\e(B . ?\x03A4) ;; GREEK CAPITAL LETTER TAU
         (?\\e,FU\e(B . ?\x03A5) ;; GREEK CAPITAL LETTER UPSILON
         (?\\e,FV\e(B . ?\x03A6) ;; GREEK CAPITAL LETTER PHI
         (?\\e,FW\e(B . ?\x03A7) ;; GREEK CAPITAL LETTER CHI
         (?\\e,FX\e(B . ?\x03A8) ;; GREEK CAPITAL LETTER PSI
         (?\\e,FY\e(B . ?\x03A9) ;; GREEK CAPITAL LETTER OMEGA
         (?\\e,FZ\e(B . ?\x03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
         (?\\e,F[\e(B . ?\x03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
         (?\\e,F\\e(B . ?\x03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS
         (?\\e,F]\e(B . ?\x03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS
         (?\\e,F^\e(B . ?\x03AE) ;; GREEK SMALL LETTER ETA WITH TONOS
         (?\\e,F_\e(B . ?\x03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS
         (?\\e,F`\e(B . ?\x03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
         (?\\e,Fa\e(B . ?\x03B1) ;; GREEK SMALL LETTER ALPHA
         (?\\e,Fb\e(B . ?\x03B2) ;; GREEK SMALL LETTER BETA
         (?\\e,Fc\e(B . ?\x03B3) ;; GREEK SMALL LETTER GAMMA
         (?\\e,Fd\e(B . ?\x03B4) ;; GREEK SMALL LETTER DELTA
         (?\\e,Fe\e(B . ?\x03B5) ;; GREEK SMALL LETTER EPSILON
         (?\\e,Ff\e(B . ?\x03B6) ;; GREEK SMALL LETTER ZETA
         (?\\e,Fg\e(B . ?\x03B7) ;; GREEK SMALL LETTER ETA
         (?\\e,Fh\e(B . ?\x03B8) ;; GREEK SMALL LETTER THETA
         (?\\e,Fi\e(B . ?\x03B9) ;; GREEK SMALL LETTER IOTA
         (?\\e,Fj\e(B . ?\x03BA) ;; GREEK SMALL LETTER KAPPA
         (?\\e,Fk\e(B . ?\x03BB) ;; GREEK SMALL LETTER LAMDA
         (?\\e,Fl\e(B . ?\x03BC) ;; GREEK SMALL LETTER MU
         (?\\e,Fm\e(B . ?\x03BD) ;; GREEK SMALL LETTER NU
         (?\\e,Fn\e(B . ?\x03BE) ;; GREEK SMALL LETTER XI
         (?\\e,Fo\e(B . ?\x03BF) ;; GREEK SMALL LETTER OMICRON
         (?\\e,Fp\e(B . ?\x03C0) ;; GREEK SMALL LETTER PI
         (?\\e,Fq\e(B . ?\x03C1) ;; GREEK SMALL LETTER RHO
         (?\\e,Fr\e(B . ?\x03C2) ;; GREEK SMALL LETTER FINAL SIGMA
         (?\\e,Fs\e(B . ?\x03C3) ;; GREEK SMALL LETTER SIGMA
         (?\\e,Ft\e(B . ?\x03C4) ;; GREEK SMALL LETTER TAU
         (?\\e,Fu\e(B . ?\x03C5) ;; GREEK SMALL LETTER UPSILON
         (?\\e,Fv\e(B . ?\x03C6) ;; GREEK SMALL LETTER PHI
         (?\\e,Fw\e(B . ?\x03C7) ;; GREEK SMALL LETTER CHI
         (?\\e,Fx\e(B . ?\x03C8) ;; GREEK SMALL LETTER PSI
         (?\\e,Fy\e(B . ?\x03C9) ;; GREEK SMALL LETTER OMEGA
         (?\\e,Fz\e(B . ?\x03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA
         (?\\e,F{\e(B . ?\x03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA
         (?\\e,F|\e(B . ?\x03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS
         (?\\e,F}\e(B . ?\x03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS
         (?\\e,F~\e(B . ?\x03CE) ;; GREEK SMALL LETTER OMEGA WITH TONOS
         ))

      (ucs-8859-8-alist
       '((?\\e,H \e(B . ?\x00A0) ;; NO-BREAK SPACE
         (?\\e,H"\e(B . ?\x00A2) ;; CENT SIGN
         (?\\e,H#\e(B . ?\x00A3) ;; POUND SIGN
         (?\\e,H$\e(B . ?\x00A4) ;; CURRENCY SIGN
         (?\\e,H%\e(B . ?\x00A5) ;; YEN SIGN
         (?\\e,H&\e(B . ?\x00A6) ;; BROKEN BAR
         (?\\e,H'\e(B . ?\x00A7) ;; SECTION SIGN
         (?\\e,H(\e(B . ?\x00A8) ;; DIAERESIS
         (?\\e,H)\e(B . ?\x00A9) ;; COPYRIGHT SIGN
         (?\\e,H*\e(B . ?\x00D7) ;; MULTIPLICATION SIGN
         (?\\e,H+\e(B . ?\x00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
         (?\\e,H,\e(B . ?\x00AC) ;; NOT SIGN
         (?\\e,H-\e(B . ?\x00AD) ;; SOFT HYPHEN
         (?\\e,H.\e(B . ?\x00AE) ;; REGISTERED SIGN
         (?\\e,H/\e(B . ?\x00AF) ;; MACRON
         (?\\e,H0\e(B . ?\x00B0) ;; DEGREE SIGN
         (?\\e,H1\e(B . ?\x00B1) ;; PLUS-MINUS SIGN
         (?\\e,H2\e(B . ?\x00B2) ;; SUPERSCRIPT TWO
         (?\\e,H3\e(B . ?\x00B3) ;; SUPERSCRIPT THREE
         (?\\e,H4\e(B . ?\x00B4) ;; ACUTE ACCENT
         (?\\e,H5\e(B . ?\x00B5) ;; MICRO SIGN
         (?\\e,H6\e(B . ?\x00B6) ;; PILCROW SIGN
         (?\\e,H7\e(B . ?\x00B7) ;; MIDDLE DOT
         (?\\e,H8\e(B . ?\x00B8) ;; CEDILLA
         (?\\e,H9\e(B . ?\x00B9) ;; SUPERSCRIPT ONE
         (?\\e,H:\e(B . ?\x00F7) ;; DIVISION SIGN
         (?\\e,H;\e(B . ?\x00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
         (?\\e,H<\e(B . ?\x00BC) ;; VULGAR FRACTION ONE QUARTER
         (?\\e,H=\e(B . ?\x00BD) ;; VULGAR FRACTION ONE HALF
         (?\\e,H>\e(B . ?\x00BE) ;; VULGAR FRACTION THREE QUARTERS
         ;; These are commented out since the current 8859-8 standard
         ;; does not yet define these codepoints, although there are
         ;; drafts which do).
;        (?\@ . ?\x05B0) ;; HEBREW POINT SHEVA
;        (?\A . ?\x05B1) ;; HEBREW POINT HATAF SEGOL
;        (?\B . ?\x05B2) ;; HEBREW POINT HATAF PATAH
;        (?\C . ?\x05B3) ;; HEBREW POINT HATAF QAMATS
;        (?\D . ?\x05B4) ;; HEBREW POINT HIRIQ
;        (?\E . ?\x05B5) ;; HEBREW POINT TSERE
;        (?\F . ?\x05B6) ;; HEBREW POINT SEGOL
;        (?\G . ?\x05B7) ;; HEBREW POINT PATAH
;        (?\H . ?\x05B8) ;; HEBREW POINT QAMATS
;        (?\I . ?\x05B9) ;; HEBREW POINT HOLAM
;        (?\K . ?\x05BB) ;; HEBREW POINT QUBUTS
;        (?\L . ?\x05BC) ;; HEBREW POINT DAGESH
;        (?\M . ?\x05BD) ;; HEBREW POINT METEG
;        (?\N . ?\x05BE) ;; HEBREW POINT MAQAF
;        (?\O . ?\x05BF) ;; HEBREW POINT RAFE
;        (?\P . ?\x05C0) ;; HEBREW PUNCTUATION PASEQ
;        (?\Q . ?\x05C1) ;; HEBREW POINT SHIN DOT
;        (?\R . ?\x05C2) ;; HEBREW POINT SIN DOT
;        (?\S . ?\x05C3) ;; HEBREW PUNCTUATION SOF PASUQ
         (?\[ . ?\x202D) ;; LEFT-TO-RIGHT OVERRIDE
         (?\\ . ?\x202E) ;; RIGHT-TO-LEFT OVERRIDE
         (?\] . ?\x202C) ;; POP DIRECTIONAL FORMATTING
         (?\\e,H_\e(B . ?\x2017) ;; DOUBLE LOW LINE
         (?\\e,H`\e(B . ?\x05D0) ;; HEBREW LETTER ALEF
         (?\\e,Ha\e(B . ?\x05D1) ;; HEBREW LETTER BET
         (?\\e,Hb\e(B . ?\x05D2) ;; HEBREW LETTER GIMEL
         (?\\e,Hc\e(B . ?\x05D3) ;; HEBREW LETTER DALET
         (?\\e,Hd\e(B . ?\x05D4) ;; HEBREW LETTER HE
         (?\\e,He\e(B . ?\x05D5) ;; HEBREW LETTER VAV
         (?\\e,Hf\e(B . ?\x05D6) ;; HEBREW LETTER ZAYIN
         (?\\e,Hg\e(B . ?\x05D7) ;; HEBREW LETTER HET
         (?\\e,Hh\e(B . ?\x05D8) ;; HEBREW LETTER TET
         (?\\e,Hi\e(B . ?\x05D9) ;; HEBREW LETTER YOD
         (?\\e,Hj\e(B . ?\x05DA) ;; HEBREW LETTER FINAL KAF
         (?\\e,Hk\e(B . ?\x05DB) ;; HEBREW LETTER KAF
         (?\\e,Hl\e(B . ?\x05DC) ;; HEBREW LETTER LAMED
         (?\\e,Hm\e(B . ?\x05DD) ;; HEBREW LETTER FINAL MEM
         (?\\e,Hn\e(B . ?\x05DE) ;; HEBREW LETTER MEM
         (?\\e,Ho\e(B . ?\x05DF) ;; HEBREW LETTER FINAL NUN
         (?\\e,Hp\e(B . ?\x05E0) ;; HEBREW LETTER NUN
         (?\\e,Hq\e(B . ?\x05E1) ;; HEBREW LETTER SAMEKH
         (?\\e,Hr\e(B . ?\x05E2) ;; HEBREW LETTER AYIN
         (?\\e,Hs\e(B . ?\x05E3) ;; HEBREW LETTER FINAL PE
         (?\\e,Ht\e(B . ?\x05E4) ;; HEBREW LETTER PE
         (?\\e,Hu\e(B . ?\x05E5) ;; HEBREW LETTER FINAL TSADI
         (?\\e,Hv\e(B . ?\x05E6) ;; HEBREW LETTER TSADI
         (?\\e,Hw\e(B . ?\x05E7) ;; HEBREW LETTER QOF
         (?\\e,Hx\e(B . ?\x05E8) ;; HEBREW LETTER RESH
         (?\\e,Hy\e(B . ?\x05E9) ;; HEBREW LETTER SHIN
         (?\\e,Hz\e(B . ?\x05EA) ;; HEBREW LETTER TAV
         (?\{ . ?\x202A) ;; LEFT-TO-RIGHT EMBEDDING
         (?\| . ?\x202B) ;; RIGHT-TO-LEFT EMBEDDING
         (?\\e,H}\e(B . ?\x200E) ;; LEFT-TO-RIGHT MARK
         (?\\e,H~\e(B . ?\x200F) ;; RIGHT-TO-LEFT MARK
         ))

      (ucs-8859-9-alist
       '((?\\e,M \e(B . ?\x00A0) ;; NO-BREAK SPACE
         (?\\e,M!\e(B . ?\x00A1) ;; INVERTED EXCLAMATION MARK
         (?\\e,M"\e(B . ?\x00A2) ;; CENT SIGN
         (?\\e,M#\e(B . ?\x00A3) ;; POUND SIGN
         (?\\e,M$\e(B . ?\x00A4) ;; CURRENCY SIGN
         (?\\e,M%\e(B . ?\x00A5) ;; YEN SIGN
         (?\\e,M&\e(B . ?\x00A6) ;; BROKEN BAR
         (?\\e,M'\e(B . ?\x00A7) ;; SECTION SIGN
         (?\\e,M(\e(B . ?\x00A8) ;; DIAERESIS
         (?\\e,M)\e(B . ?\x00A9) ;; COPYRIGHT SIGN
         (?\\e,M*\e(B . ?\x00AA) ;; FEMININE ORDINAL INDICATOR
         (?\\e,M+\e(B . ?\x00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
         (?\\e,M,\e(B . ?\x00AC) ;; NOT SIGN
         (?\\e,M-\e(B . ?\x00AD) ;; SOFT HYPHEN
         (?\\e,M.\e(B . ?\x00AE) ;; REGISTERED SIGN
         (?\\e,M/\e(B . ?\x00AF) ;; MACRON
         (?\\e,M0\e(B . ?\x00B0) ;; DEGREE SIGN
         (?\\e,M1\e(B . ?\x00B1) ;; PLUS-MINUS SIGN
         (?\\e,M2\e(B . ?\x00B2) ;; SUPERSCRIPT TWO
         (?\\e,M3\e(B . ?\x00B3) ;; SUPERSCRIPT THREE
         (?\\e,M4\e(B . ?\x00B4) ;; ACUTE ACCENT
         (?\\e,M5\e(B . ?\x00B5) ;; MICRO SIGN
         (?\\e,M6\e(B . ?\x00B6) ;; PILCROW SIGN
         (?\\e,M7\e(B . ?\x00B7) ;; MIDDLE DOT
         (?\\e,M8\e(B . ?\x00B8) ;; CEDILLA
         (?\\e,M9\e(B . ?\x00B9) ;; SUPERSCRIPT ONE
         (?\\e,M:\e(B . ?\x00BA) ;; MASCULINE ORDINAL INDICATOR
         (?\\e,M;\e(B . ?\x00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
         (?\\e,M<\e(B . ?\x00BC) ;; VULGAR FRACTION ONE QUARTER
         (?\\e,M=\e(B . ?\x00BD) ;; VULGAR FRACTION ONE HALF
         (?\\e,M>\e(B . ?\x00BE) ;; VULGAR FRACTION THREE QUARTERS
         (?\\e,M?\e(B . ?\x00BF) ;; INVERTED QUESTION MARK
         (?\\e,M@\e(B . ?\x00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
         (?\\e,MA\e(B . ?\x00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
         (?\\e,MB\e(B . ?\x00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
         (?\\e,MC\e(B . ?\x00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
         (?\\e,MD\e(B . ?\x00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
         (?\\e,ME\e(B . ?\x00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
         (?\\e,MF\e(B . ?\x00C6) ;; LATIN CAPITAL LETTER AE
         (?\\e,MG\e(B . ?\x00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
         (?\\e,MH\e(B . ?\x00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
         (?\\e,MI\e(B . ?\x00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
         (?\\e,MJ\e(B . ?\x00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
         (?\\e,MK\e(B . ?\x00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
         (?\\e,ML\e(B . ?\x00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
         (?\\e,MM\e(B . ?\x00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
         (?\\e,MN\e(B . ?\x00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
         (?\\e,MO\e(B . ?\x00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
         (?\\e,MP\e(B . ?\x011E) ;; LATIN CAPITAL LETTER G WITH BREVE
         (?\\e,MQ\e(B . ?\x00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
         (?\\e,MR\e(B . ?\x00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
         (?\\e,MS\e(B . ?\x00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
         (?\\e,MT\e(B . ?\x00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
         (?\\e,MU\e(B . ?\x00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
         (?\\e,MV\e(B . ?\x00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
         (?\\e,MW\e(B . ?\x00D7) ;; MULTIPLICATION SIGN
         (?\\e,MX\e(B . ?\x00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
         (?\\e,MY\e(B . ?\x00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
         (?\\e,MZ\e(B . ?\x00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
         (?\\e,M[\e(B . ?\x00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
         (?\\e,M\\e(B . ?\x00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
         (?\\e,M]\e(B . ?\x0130) ;; LATIN CAPITAL LETTER I WITH DOT ABOVE
         (?\\e,M^\e(B . ?\x015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA
         (?\\e,M_\e(B . ?\x00DF) ;; LATIN SMALL LETTER SHARP S
         (?\\e,M`\e(B . ?\x00E0) ;; LATIN SMALL LETTER A WITH GRAVE
         (?\\e,Ma\e(B . ?\x00E1) ;; LATIN SMALL LETTER A WITH ACUTE
         (?\\e,Mb\e(B . ?\x00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
         (?\\e,Mc\e(B . ?\x00E3) ;; LATIN SMALL LETTER A WITH TILDE
         (?\\e,Md\e(B . ?\x00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
         (?\\e,Me\e(B . ?\x00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
         (?\\e,Mf\e(B . ?\x00E6) ;; LATIN SMALL LETTER AE
         (?\\e,Mg\e(B . ?\x00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
         (?\\e,Mh\e(B . ?\x00E8) ;; LATIN SMALL LETTER E WITH GRAVE
         (?\\e,Mi\e(B . ?\x00E9) ;; LATIN SMALL LETTER E WITH ACUTE
         (?\\e,Mj\e(B . ?\x00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
         (?\\e,Mk\e(B . ?\x00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
         (?\\e,Ml\e(B . ?\x00EC) ;; LATIN SMALL LETTER I WITH GRAVE
         (?\\e,Mm\e(B . ?\x00ED) ;; LATIN SMALL LETTER I WITH ACUTE
         (?\\e,Mn\e(B . ?\x00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
         (?\\e,Mo\e(B . ?\x00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
         (?\\e,Mp\e(B . ?\x011F) ;; LATIN SMALL LETTER G WITH BREVE
         (?\\e,Mq\e(B . ?\x00F1) ;; LATIN SMALL LETTER N WITH TILDE
         (?\\e,Mr\e(B . ?\x00F2) ;; LATIN SMALL LETTER O WITH GRAVE
         (?\\e,Ms\e(B . ?\x00F3) ;; LATIN SMALL LETTER O WITH ACUTE
         (?\\e,Mt\e(B . ?\x00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
         (?\\e,Mu\e(B . ?\x00F5) ;; LATIN SMALL LETTER O WITH TILDE
         (?\\e,Mv\e(B . ?\x00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
         (?\\e,Mw\e(B . ?\x00F7) ;; DIVISION SIGN
         (?\\e,Mx\e(B . ?\x00F8) ;; LATIN SMALL LETTER O WITH STROKE
         (?\\e,My\e(B . ?\x00F9) ;; LATIN SMALL LETTER U WITH GRAVE
         (?\\e,Mz\e(B . ?\x00FA) ;; LATIN SMALL LETTER U WITH ACUTE
         (?\\e,M{\e(B . ?\x00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
         (?\\e,M|\e(B . ?\x00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
         (?\\e,M}\e(B . ?\x0131) ;; LATIN SMALL LETTER DOTLESS I
         (?\\e,M~\e(B . ?\x015F) ;; LATIN SMALL LETTER S WITH CEDILLA
         (?\\e,M\7f\e(B . ?\x00FF) ;; LATIN SMALL LETTER Y WITH DIAERESIS
         ))

      (ucs-8859-14-alist
       '((?\\e,_ \e(B . ?\x00A0) ;; NO-BREAK SPACE
         (?\\e,_!\e(B . ?\x1E02) ;; LATIN CAPITAL LETTER B WITH DOT ABOVE
         (?\\e,_"\e(B . ?\x1E03) ;; LATIN SMALL LETTER B WITH DOT ABOVE
         (?\\e,_#\e(B . ?\x00A3) ;; POUND SIGN
         (?\\e,_$\e(B . ?\x010A) ;; LATIN CAPITAL LETTER C WITH DOT ABOVE
         (?\\e,_%\e(B . ?\x010B) ;; LATIN SMALL LETTER C WITH DOT ABOVE
         (?\\e,_&\e(B . ?\x1E0A) ;; LATIN CAPITAL LETTER D WITH DOT ABOVE
         (?\\e,_'\e(B . ?\x00A7) ;; SECTION SIGN
         (?\\e,_(\e(B . ?\x1E80) ;; LATIN CAPITAL LETTER W WITH GRAVE
         (?\\e,_)\e(B . ?\x00A9) ;; COPYRIGHT SIGN
         (?\\e,_*\e(B . ?\x1E82) ;; LATIN CAPITAL LETTER W WITH ACUTE
         (?\\e,_+\e(B . ?\x1E0B) ;; LATIN SMALL LETTER D WITH DOT ABOVE
         (?\\e,_,\e(B . ?\x1EF2) ;; LATIN CAPITAL LETTER Y WITH GRAVE
         (?\\e,_-\e(B . ?\x00AD) ;; SOFT HYPHEN
         (?\\e,_.\e(B . ?\x00AE) ;; REGISTERED SIGN
         (?\\e,_/\e(B . ?\x0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS
         (?\\e,_0\e(B . ?\x1E1E) ;; LATIN CAPITAL LETTER F WITH DOT ABOVE
         (?\\e,_1\e(B . ?\x1E1F) ;; LATIN SMALL LETTER F WITH DOT ABOVE
         (?\\e,_2\e(B . ?\x0120) ;; LATIN CAPITAL LETTER G WITH DOT ABOVE
         (?\\e,_3\e(B . ?\x0121) ;; LATIN SMALL LETTER G WITH DOT ABOVE
         (?\\e,_4\e(B . ?\x1E40) ;; LATIN CAPITAL LETTER M WITH DOT ABOVE
         (?\\e,_5\e(B . ?\x1E41) ;; LATIN SMALL LETTER M WITH DOT ABOVE
         (?\\e,_6\e(B . ?\x00B6) ;; PILCROW SIGN
         (?\\e,_7\e(B . ?\x1E56) ;; LATIN CAPITAL LETTER P WITH DOT ABOVE
         (?\\e,_8\e(B . ?\x1E81) ;; LATIN SMALL LETTER W WITH GRAVE
         (?\\e,_9\e(B . ?\x1E57) ;; LATIN SMALL LETTER P WITH DOT ABOVE
         (?\\e,_:\e(B . ?\x1E83) ;; LATIN SMALL LETTER W WITH ACUTE
         (?\\e,_;\e(B . ?\x1E60) ;; LATIN CAPITAL LETTER S WITH DOT ABOVE
         (?\\e,_<\e(B . ?\x1EF3) ;; LATIN SMALL LETTER Y WITH GRAVE
         (?\\e,_=\e(B . ?\x1E84) ;; LATIN CAPITAL LETTER W WITH DIAERESIS
         (?\\e,_>\e(B . ?\x1E85) ;; LATIN SMALL LETTER W WITH DIAERESIS
         (?\\e,_?\e(B . ?\x1E61) ;; LATIN SMALL LETTER S WITH DOT ABOVE
         (?\\e,_@\e(B . ?\x00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
         (?\\e,_A\e(B . ?\x00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
         (?\\e,_B\e(B . ?\x00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
         (?\\e,_C\e(B . ?\x00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
         (?\\e,_D\e(B . ?\x00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
         (?\\e,_E\e(B . ?\x00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
         (?\\e,_F\e(B . ?\x00C6) ;; LATIN CAPITAL LETTER AE
         (?\\e,_G\e(B . ?\x00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
         (?\\e,_H\e(B . ?\x00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
         (?\\e,_I\e(B . ?\x00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
         (?\\e,_J\e(B . ?\x00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
         (?\\e,_K\e(B . ?\x00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
         (?\\e,_L\e(B . ?\x00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
         (?\\e,_M\e(B . ?\x00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
         (?\\e,_N\e(B . ?\x00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
         (?\\e,_O\e(B . ?\x00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
         (?\\e,_P\e(B . ?\x0174) ;; LATIN CAPITAL LETTER W WITH CIRCUMFLEX
         (?\\e,_Q\e(B . ?\x00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
         (?\\e,_R\e(B . ?\x00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
         (?\\e,_S\e(B . ?\x00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
         (?\\e,_T\e(B . ?\x00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
         (?\\e,_U\e(B . ?\x00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
         (?\\e,_V\e(B . ?\x00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
         (?\\e,_W\e(B . ?\x1E6A) ;; LATIN CAPITAL LETTER T WITH DOT ABOVE
         (?\\e,_X\e(B . ?\x00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
         (?\\e,_Y\e(B . ?\x00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
         (?\\e,_Z\e(B . ?\x00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
         (?\\e,_[\e(B . ?\x00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
         (?\\e,_\\e(B . ?\x00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
         (?\\e,_]\e(B . ?\x00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE
         (?\\e,_^\e(B . ?\x0176) ;; LATIN CAPITAL LETTER Y WITH CIRCUMFLEX
         (?\\e,__\e(B . ?\x00DF) ;; LATIN SMALL LETTER SHARP S
         (?\\e,_`\e(B . ?\x00E0) ;; LATIN SMALL LETTER A WITH GRAVE
         (?\\e,_a\e(B . ?\x00E1) ;; LATIN SMALL LETTER A WITH ACUTE
         (?\\e,_b\e(B . ?\x00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
         (?\\e,_c\e(B . ?\x00E3) ;; LATIN SMALL LETTER A WITH TILDE
         (?\\e,_d\e(B . ?\x00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
         (?\\e,_e\e(B . ?\x00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
         (?\\e,_f\e(B . ?\x00E6) ;; LATIN SMALL LETTER AE
         (?\\e,_g\e(B . ?\x00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
         (?\\e,_h\e(B . ?\x00E8) ;; LATIN SMALL LETTER E WITH GRAVE
         (?\\e,_i\e(B . ?\x00E9) ;; LATIN SMALL LETTER E WITH ACUTE
         (?\\e,_j\e(B . ?\x00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
         (?\\e,_k\e(B . ?\x00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
         (?\\e,_l\e(B . ?\x00EC) ;; LATIN SMALL LETTER I WITH GRAVE
         (?\\e,_m\e(B . ?\x00ED) ;; LATIN SMALL LETTER I WITH ACUTE
         (?\\e,_n\e(B . ?\x00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
         (?\\e,_o\e(B . ?\x00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
         (?\\e,_p\e(B . ?\x0175) ;; LATIN SMALL LETTER W WITH CIRCUMFLEX
         (?\\e,_q\e(B . ?\x00F1) ;; LATIN SMALL LETTER N WITH TILDE
         (?\\e,_r\e(B . ?\x00F2) ;; LATIN SMALL LETTER O WITH GRAVE
         (?\\e,_s\e(B . ?\x00F3) ;; LATIN SMALL LETTER O WITH ACUTE
         (?\\e,_t\e(B . ?\x00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
         (?\\e,_u\e(B . ?\x00F5) ;; LATIN SMALL LETTER O WITH TILDE
         (?\\e,_v\e(B . ?\x00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
         (?\\e,_w\e(B . ?\x1E6B) ;; LATIN SMALL LETTER T WITH DOT ABOVE
         (?\\e,_x\e(B . ?\x00F8) ;; LATIN SMALL LETTER O WITH STROKE
         (?\\e,_y\e(B . ?\x00F9) ;; LATIN SMALL LETTER U WITH GRAVE
         (?\\e,_z\e(B . ?\x00FA) ;; LATIN SMALL LETTER U WITH ACUTE
         (?\\e,_{\e(B . ?\x00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
         (?\\e,_|\e(B . ?\x00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
         (?\\e,_}\e(B . ?\x00FD) ;; LATIN SMALL LETTER Y WITH ACUTE
         (?\\e,_~\e(B . ?\x0177) ;; LATIN SMALL LETTER Y WITH CIRCUMFLEX
         (?\\e,_\7f\e(B . ?\x00FF) ;; LATIN SMALL LETTER Y WITH DIAERESIS
         ))

      (ucs-8859-15-alist
       '((?\\e,b \e(B . ?\x00A0) ;; NO-BREAK SPACE
         (?\\e,b!\e(B . ?\x00A1) ;; INVERTED EXCLAMATION MARK
         (?\\e,b"\e(B . ?\x00A2) ;; CENT SIGN
         (?\\e,b#\e(B . ?\x00A3) ;; POUND SIGN
         (?\\e,b$\e(B . ?\x20AC) ;; EURO SIGN
         (?\\e,b%\e(B . ?\x00A5) ;; YEN SIGN
         (?\\e,b&\e(B . ?\x0160) ;; LATIN CAPITAL LETTER S WITH CARON
         (?\\e,b'\e(B . ?\x00A7) ;; SECTION SIGN
         (?\\e,b(\e(B . ?\x0161) ;; LATIN SMALL LETTER S WITH CARON
         (?\\e,b)\e(B . ?\x00A9) ;; COPYRIGHT SIGN
         (?\\e,b*\e(B . ?\x00AA) ;; FEMININE ORDINAL INDICATOR
         (?\\e,b+\e(B . ?\x00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
         (?\\e,b,\e(B . ?\x00AC) ;; NOT SIGN
         (?\\e,b-\e(B . ?\x00AD) ;; SOFT HYPHEN
         (?\\e,b.\e(B . ?\x00AE) ;; REGISTERED SIGN
         (?\\e,b/\e(B . ?\x00AF) ;; MACRON
         (?\\e,b0\e(B . ?\x00B0) ;; DEGREE SIGN
         (?\\e,b1\e(B . ?\x00B1) ;; PLUS-MINUS SIGN
         (?\\e,b2\e(B . ?\x00B2) ;; SUPERSCRIPT TWO
         (?\\e,b3\e(B . ?\x00B3) ;; SUPERSCRIPT THREE
         (?\\e,b4\e(B . ?\x017D) ;; LATIN CAPITAL LETTER Z WITH CARON
         (?\\e,b5\e(B . ?\x00B5) ;; MICRO SIGN
         (?\\e,b6\e(B . ?\x00B6) ;; PILCROW SIGN
         (?\\e,b7\e(B . ?\x00B7) ;; MIDDLE DOT
         (?\\e,b8\e(B . ?\x017E) ;; LATIN SMALL LETTER Z WITH CARON
         (?\\e,b9\e(B . ?\x00B9) ;; SUPERSCRIPT ONE
         (?\\e,b:\e(B . ?\x00BA) ;; MASCULINE ORDINAL INDICATOR
         (?\\e,b;\e(B . ?\x00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
         (?\\e,b<\e(B . ?\x0152) ;; LATIN CAPITAL LIGATURE OE
         (?\\e,b=\e(B . ?\x0153) ;; LATIN SMALL LIGATURE OE
         (?\\e,b>\e(B . ?\x0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS
         (?\\e,b?\e(B . ?\x00BF) ;; INVERTED QUESTION MARK
         (?\\e,b@\e(B . ?\x00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
         (?\\e,bA\e(B . ?\x00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
         (?\\e,bB\e(B . ?\x00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
         (?\\e,bC\e(B . ?\x00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
         (?\\e,bD\e(B . ?\x00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
         (?\\e,bE\e(B . ?\x00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
         (?\\e,bF\e(B . ?\x00C6) ;; LATIN CAPITAL LETTER AE
         (?\\e,bG\e(B . ?\x00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
         (?\\e,bH\e(B . ?\x00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
         (?\\e,bI\e(B . ?\x00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
         (?\\e,bJ\e(B . ?\x00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
         (?\\e,bK\e(B . ?\x00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
         (?\\e,bL\e(B . ?\x00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
         (?\\e,bM\e(B . ?\x00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
         (?\\e,bN\e(B . ?\x00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
         (?\\e,bO\e(B . ?\x00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
         (?\\e,bP\e(B . ?\x00D0) ;; LATIN CAPITAL LETTER ETH
         (?\\e,bQ\e(B . ?\x00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
         (?\\e,bR\e(B . ?\x00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
         (?\\e,bS\e(B . ?\x00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
         (?\\e,bT\e(B . ?\x00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
         (?\\e,bU\e(B . ?\x00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
         (?\\e,bV\e(B . ?\x00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
         (?\\e,bW\e(B . ?\x00D7) ;; MULTIPLICATION SIGN
         (?\\e,bX\e(B . ?\x00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
         (?\\e,bY\e(B . ?\x00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
         (?\\e,bZ\e(B . ?\x00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
         (?\\e,b[\e(B . ?\x00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
         (?\\e,b\\e(B . ?\x00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
         (?\\e,b]\e(B . ?\x00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE
         (?\\e,b^\e(B . ?\x00DE) ;; LATIN CAPITAL LETTER THORN
         (?\\e,b_\e(B . ?\x00DF) ;; LATIN SMALL LETTER SHARP S
         (?\\e,b`\e(B . ?\x00E0) ;; LATIN SMALL LETTER A WITH GRAVE
         (?\\e,ba\e(B . ?\x00E1) ;; LATIN SMALL LETTER A WITH ACUTE
         (?\\e,bb\e(B . ?\x00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
         (?\\e,bc\e(B . ?\x00E3) ;; LATIN SMALL LETTER A WITH TILDE
         (?\\e,bd\e(B . ?\x00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
         (?\\e,be\e(B . ?\x00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
         (?\\e,bf\e(B . ?\x00E6) ;; LATIN SMALL LETTER AE
         (?\\e,bg\e(B . ?\x00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
         (?\\e,bh\e(B . ?\x00E8) ;; LATIN SMALL LETTER E WITH GRAVE
         (?\\e,bi\e(B . ?\x00E9) ;; LATIN SMALL LETTER E WITH ACUTE
         (?\\e,bj\e(B . ?\x00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
         (?\\e,bk\e(B . ?\x00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
         (?\\e,bl\e(B . ?\x00EC) ;; LATIN SMALL LETTER I WITH GRAVE
         (?\\e,bm\e(B . ?\x00ED) ;; LATIN SMALL LETTER I WITH ACUTE
         (?\\e,bn\e(B . ?\x00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
         (?\\e,bo\e(B . ?\x00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
         (?\\e,bp\e(B . ?\x00F0) ;; LATIN SMALL LETTER ETH
         (?\\e,bq\e(B . ?\x00F1) ;; LATIN SMALL LETTER N WITH TILDE
         (?\\e,br\e(B . ?\x00F2) ;; LATIN SMALL LETTER O WITH GRAVE
         (?\\e,bs\e(B . ?\x00F3) ;; LATIN SMALL LETTER O WITH ACUTE
         (?\\e,bt\e(B . ?\x00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
         (?\\e,bu\e(B . ?\x00F5) ;; LATIN SMALL LETTER O WITH TILDE
         (?\\e,bv\e(B . ?\x00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
         (?\\e,bw\e(B . ?\x00F7) ;; DIVISION SIGN
         (?\\e,bx\e(B . ?\x00F8) ;; LATIN SMALL LETTER O WITH STROKE
         (?\\e,by\e(B . ?\x00F9) ;; LATIN SMALL LETTER U WITH GRAVE
         (?\\e,bz\e(B . ?\x00FA) ;; LATIN SMALL LETTER U WITH ACUTE
         (?\\e,b{\e(B . ?\x00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
         (?\\e,b|\e(B . ?\x00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
         (?\\e,b}\e(B . ?\x00FD) ;; LATIN SMALL LETTER Y WITH ACUTE
         (?\\e,b~\e(B . ?\x00FE) ;; LATIN SMALL LETTER THORN
         (?\\e,b\7f\e(B . ?\x00FF) ;; LATIN SMALL LETTER Y WITH DIAERESIS
         ))

      (ucs-8859-1-alist
       (let ((i 160)
             l)
         (while (< i 256)
           (push (cons (make-char 'latin-iso8859-1 (- i 128)) i)
                 l)
           (setq i (1+ i)))
         (nreverse l)))
      
;;       (case-table (standard-case-table))
;;       (syntax-table (standard-syntax-table))
      )

  ;; Convert the lists to the basic char tables.
  (dolist (n (list 15 14 9 8 7 5 4 3 2 1))
    (let ((alist (symbol-value (intern (format "ucs-8859-%d-alist" n)))))
      (dolist (pair alist)
        (let ((mule (car pair))
              (uc (cdr pair))
              (mu (decode-char 'ucs (cdr pair))))
          (aset ucs-mule-8859-to-ucs-table mule uc)
          ;;      (aset ucs-ucs-to-mule-8859-table uc mule)
          ;;      (aset ucs-mule-unicode-to-mule-8859 mu mule)
          (aset ucs-mule-8859-to-mule-unicode mule mu)
          (aset ucs-mule-to-mule-unicode mule mu)))
;; I think this is actually done OK in characters.el.
;; Probably things like accents shouldn't have word syntax, but the
;; Latin-N syntax tables currently aren't consistent for such
;; characters anyhow.
;;      ;; Make the mule-unicode characters inherit syntax and case info
;;      ;; if they don't already have it.
;;      (dolist (pair alist)
;;      (let ((mule (car pair))
;;            (uc (cdr pair))
;;            (mu (decode-char 'ucs (cdr pair))))
;;        (let ((syntax (aref syntax-table mule)))
;;          (if (eq mule (downcase mule))
;;              (if (eq mule (upcase mule)) ; non-letter or uncased letter
;;                  (progn
;;                    (if (= 4 (car syntax)) ; left delim
;;                        (progn
;;                          (aset syntax-table
;;                                mu
;;                                (cons 4 (aref ucs-mule-8859-to-mule-unicode
;;                                              (cdr syntax))))
;;                          (aset syntax-table
;;                                (aref ucs-mule-8859-to-mule-unicode
;;                                      (cdr syntax))
;;                                (cons 5 mu)))
;;                      (aset syntax-table mu syntax))
;;                    (aset case-table mu mu)))
;;            ;; Upper case letter
;;            (let ((lower (aref ucs-mule-8859-to-mule-unicode
;;                               (aref case-table mule))))
;;              (aset case-table mu lower)
;;              (aset case-table lower lower)
;;              (modify-syntax-entry lower "w   " syntax-table)
;;              (modify-syntax-entry mu "w   " syntax-table))))))
      ))
  ;; Derive tables that can be used as per-coding-system
  ;; `translation-table-for-encode's.
  (dolist (n (list 15 14 9 8 7 5 4 3 2 1))
    (let* ((alist (symbol-value (intern (format "ucs-8859-%d-alist" n))))
           (encode-translator (set (intern (format "ucs-8859-%d-encode-table"
                                                   n))
                                   (make-translation-table)))
           elt)
      ;; Start with the mule-unicode component.
      (dolist (pair alist)
        (let ((mule (car pair))
              (mu (decode-char 'ucs (cdr pair))))
          (aset encode-translator mu mule)))
      ;; Find characters from other 8859 sets which map to the same
      ;; unicode as some character in this set.
      (map-char-table (lambda (k v)
                        (if (and (setq elt (rassq v alist))
                                 (not (assq k alist)))
                            (aset encode-translator k (car elt))))
                      ucs-mule-8859-to-ucs-table))))

;; Register for use in CCL.
(define-translation-table 'ucs-mule-8859-to-mule-unicode
  ucs-mule-8859-to-mule-unicode)

;; Fixme: Make this reversible, which means frobbing
;; `char-coding-system-table' directly to remove what we added -- see
;; codepages.el.  Also make it a user option.
(defun ucs-unify-8859 (&optional encode-only)
  "Set up translation tables for unifying characters from ISO 8859.

On decoding, non-ASCII characters are mapped into the `iso-latin-1'
and `mule-unicode-0100-24ff' charsets.  On encoding, these are mapped
back appropriate for the coding system.

With prefix arg, do unification on encoding only, i.e. don't unify
everything on input operations."
  (interactive "P")
  (unless encode-only
    ;; Unify 8859 on decoding.  (Non-CCL coding systems only.)
    (set-char-table-parent standard-translation-table-for-decode
                           ucs-mule-8859-to-mule-unicode))
  ;; Adjust the 8859 coding systems to fragment the unified characters
  ;; on encoding.
  (dolist (n '(1 2 3 4 5 7 8 9 14 15))
    (let* ((coding-system
            (coding-system-base (intern (format "iso-8859-%d" n))))
           (table (symbol-value
                   (intern (format "ucs-8859-%d-encode-table" n))))
           (safe (coding-system-get coding-system 'safe-chars)))
      ;; Actually, the coding system's safe-chars are not normally
      ;; used after they've been registered, but we might as well
      ;; record them.  Setting the parent here is a convenience.
      (set-char-table-parent safe table)
      ;; Update the table of what encodes to what.
      (register-char-codings coding-system table)
      (coding-system-put coding-system 'translation-table-for-encode table)))

;;; The following works for the bundled coding systems, but it's
;;; better to use the Unicode-based ones and make it irrelevant.

;;;   ;; Update the Cyrillic special cases.
;;;   ;; `translation-table-for-encode' doesn't work for CCL coding
;;;   ;; systems, and `standard-translation-table-for-decode' isn't
;;;   ;; applied.
;;;   (let ((table (get 'cyrillic-koi8-r-encode-table 'translation-table)))
;;;     (map-char-table
;;;      (lambda (k v)
;;;        (aset table
;;;          (or (aref ucs-8859-5-encode-table k)
;;;              k)
;;;          v))
;;;      table)
;;;     (register-char-codings 'cyrillic-koi8 table))
;;;   (let ((table (get 'cyrillic-koi8-r-nonascii-translation-table
;;;                 'translation-table)))
;;;     (map-char-table
;;;      (lambda (k v)
;;;        (if v (aset table k (or (aref ucs-mule-8859-to-mule-unicode v)
;;;                            v))))
;;;      table))
;;;   ;; Redefine this, since the orginal only translated 8859-5.
;;;   (define-ccl-program ccl-encode-koi8
;;;     `(1
;;;       ((loop
;;;     (read-multibyte-character r0 r1)
;;;     (translate-character cyrillic-koi8-r-encode-table r0 r1)
;;;     (write-repeat r1))))
;;;     "CCL program to encode KOI8.")
;;;   (let ((table (get 'cyrillic-alternativnyj-encode-table 'translation-table)))
;;;     (map-char-table
;;;      (lambda (k v)
;;;        (aset table
;;;          (or (aref ucs-8859-5-encode-table k)
;;;              k)
;;;          v))
;;;      table)
;;;     (register-char-codings 'cyrillic-alternativnyj table))
;;;   (let ((table (get 'cyrillic-alternativnyj-nonascii-translation-table
;;;                 'translation-table)))
;;;     (map-char-table
;;;      (lambda (k v)
;;;        (if v (aset table
;;;                k
;;;                (or (aref ucs-mule-8859-to-mule-unicode v)
;;;                    v))))
;;;      table))
  )

(defun ucs-fragment-8859 (&optional encode-only)
  "Undo the unification done by `ucs-unify-8859'.
With prefix arg, undo unification on encoding only, i.e. don't undo
unification on input operations."
  (interactive "P")
  ;; Maybe fix decoding.
  (unless encode-only
    ;; Unify 8859 on decoding.  (Non-CCL coding systems only.)
    (set-char-table-parent standard-translation-table-for-decode nil))
  ;; Fix encoding.  For each charset, remove the entries in
  ;; `char-coding-system-table' added to its safe-chars table (as its
  ;; parent).
  (dolist (n '(1 2 3 4 5 7 8 9 14 15))
    (let* ((coding-system
            (coding-system-base (intern (format "iso-8859-%d" n))))
           (table (symbol-value
                   (intern (format "ucs-8859-%d-encode-table" n))))
           (safe (coding-system-get coding-system 'safe-chars)))
      (map-char-table
       (lambda (key val)
         (if (and (>= key 128) val)
             (let ((codings (aref char-coding-system-table key)))
               (aset char-coding-system-table key
                     (delq coding-system codings)))))
       (char-table-parent safe))
      (set-char-table-parent safe nil)
      (coding-system-put coding-system 'translation-table-for-encode nil))))

;;;###autoload
(define-minor-mode unify-8859-on-encoding-mode
  "Set up translation tables for unifying ISO 8859 characters on encoding.

The ISO 8859 characters sets overlap, e.g. 8859-1 (Latin-1) and
8859-15 (Latin-9) differ only in a few characters.  Emacs normally
distinguishes equivalent characters from those ISO-8859 character sets
which are built in to Emacs.  This behaviour is essentially inherited
from the European-originated international standards.  Treating them
equivalently, by translating to and from a single representation is
called `unification'.  (The `utf-8' coding system treats the
characters of European scripts in a unified manner.)

In this mode, on encoding -- i.e. output operations -- non-ASCII
characters from the built-in ISO 8859 and `mule-unicode-0100-24ff'
charsets are handled automatically by the coding system used if it can
represent them.  Thus, say, an e-acute from the Latin-1 charset (the
unified representation) in a buffer saved as Latin-9 will be encoded
directly to a byte value 233.  By default, in contrast, you would be
prompted for a general coding system to use for saving the file, which
can cope with separate Latin-1 and Latin-9 representations of e-acute.

See also command `unify-8859-on-decoding-mode'."
  :group 'mule
  :global t
  :version 21.3                         ; who knows...?
  :init-value nil
  (if unify-8859-on-encoding-mode
      (ucs-unify-8859 t)
    (ucs-fragment-8859 t)))

;;;###autoload
(define-minor-mode unify-8859-on-decoding-mode
  "Set up translation table for unifying ISO 8859 characters on decoding.
On decoding -- i.e. input operations -- non-ASCII characters from the
built-in ISO 8859 charsets are unified by mapping them into the
`iso-latin-1' and `mule-unicode-0100-24ff' charsets.

This sets the parent of `standard-translation-table-for-decode'.

See also command `unify-8859-on-encoding-mode'."
  :group 'mule
  :global t
  :version 21.3                         ; who knows...?
  :init-value nil
  (if unify-8859-on-decoding-mode
      (set-char-table-parent standard-translation-table-for-decode
                             ucs-mule-8859-to-mule-unicode)
    (set-char-table-parent standard-translation-table-for-decode nil)))

(defun ucs-insert (arg)
  "Insert the Emacs character representation of the given Unicode.
Interactively, prompts for a hex string giving the code."
  (interactive "sUnicode (hex): ")
  (insert (decode-char 'ucs (if (integerp arg)
                                arg
                              (string-to-number arg 16)))))

;;; Dealing with non-8859 character sets.

;; We only set up translation on encoding to utf-8.  Also translation
;; tables ucs-CS-encode-table are constructed for some coding systems
;; CS which could be used as `translation-table-for-encode', currently
;; for indian-is13194, lao, thai, tibetan-iso-8bit and
;; vietnamese-viscii.

;; The alists here cover both coding systems (external charsets), like
;; VISCII, and individual Emacs charsets, like `ipa'.
(let ((vietnamese-viscii
       '((?\e,1!\e(B . ?\e$,1o/\e(B)
         (?\e,1"\e(B . ?\e$,1o1\e(B)
         (?\e,1#\e(B . ?\e$,1o7\e(B)
         (?\e,1$\e(B . ?\e$,1o%\e(B)
         (?\e,1%\e(B . ?\e$,1o'\e(B)
         (?\e,1&\e(B . ?\e$,1o)\e(B)
         (?\e,1'\e(B . ?\e$,1o-\e(B)
         (?\e,1(\e(B . ?\e$,1o=\e(B)
         (?\e,1)\e(B . ?\e$,1o9\e(B)
         (?\e,1*\e(B . ?\e$,1o?\e(B)
         (?\e,1+\e(B . ?\e$,1oA\e(B)
         (?\e,1,\e(B . ?\e$,1oC\e(B)
         (?\e,1-\e(B . ?\e$,1oE\e(B)
         (?\e,1.\e(B . ?\e$,1oG\e(B)
         (?\e,1/\e(B . ?\e$,1oQ\e(B)
         (?\e,10\e(B . ?\e$,1oS\e(B)
         (?\e,11\e(B . ?\e$,1oU\e(B)
         (?\e,12\e(B . ?\e$,1oW\e(B)
         (?\e,15\e(B . ?\e$,1oY\e(B)
         (?\e,16\e(B . ?\e$,1o]\e(B)
         (?\e,17\e(B . ?\e$,1o_\e(B)
         (?\e,18\e(B . ?\e$,1oK\e(B)
         (?\e,1=\e(B . ?\e$,1!a\e(B)
         (?\e,1>\e(B . ?\e$,1o[\e(B)
         (?\e,1F\e(B . ?\e$,1o3\e(B)
         (?\e,1G\e(B . ?\e$,1o5\e(B)
         (?\e,1O\e(B . ?\e$,1os\e(B)
         (?\e,1Q\e(B . ?\e$,1oi\e(B)
         (?\e,1U\e(B . ?\e$,1o!\e(B)
         (?\e,1V\e(B . ?\e$,1ow\e(B)
         (?\e,1W\e(B . ?\e$,1ok\e(B)
         (?\e,1X\e(B . ?\e$,1om\e(B)
         (?\e,1[\e(B . ?\e$,1oy\e(B)
         (?\e,1\\e(B . ?\e$,1ou\e(B)
         (?\e,1^\e(B . ?\e$,1oa\e(B)
         (?\e,1_\e(B . ?\e$,1!p\e(B)
         (?\e,1`\e(B . ?\e,A`\e(B)
         (?\e,1a\e(B . ?\e,Aa\e(B)
         (?\e,1b\e(B . ?\e,Ab\e(B)
         (?\e,1c\e(B . ?\e,Ac\e(B)
         (?\e,1d\e(B . ?\e$,1o#\e(B)
         (?\e,1e\e(B . ?\e$,1 #\e(B)
         (?\e,1f\e(B . ?\e$,1oo\e(B)
         (?\e,1g\e(B . ?\e$,1o+\e(B)
         (?\e,1h\e(B . ?\e,Ah\e(B)
         (?\e,1i\e(B . ?\e,Ai\e(B)
         (?\e,1j\e(B . ?\e,Aj\e(B)
         (?\e,1k\e(B . ?\e$,1o;\e(B)
         (?\e,1l\e(B . ?\e,Al\e(B)
         (?\e,1m\e(B . ?\e,Am\e(B)
         (?\e,1n\e(B . ?\e$,1 I\e(B)
         (?\e,1o\e(B . ?\e$,1oI\e(B)
         (?\e,1p\e(B . ?\e$,1 1\e(B)
         (?\e,1q\e(B . ?\e$,1oq\e(B)
         (?\e,1r\e(B . ?\e,Ar\e(B)
         (?\e,1s\e(B . ?\e,As\e(B)
         (?\e,1t\e(B . ?\e,At\e(B)
         (?\e,1u\e(B . ?\e,Au\e(B)
         (?\e,1v\e(B . ?\e$,1oO\e(B)
         (?\e,1w\e(B . ?\e$,1oM\e(B)
         (?\e,1x\e(B . ?\e$,1oe\e(B)
         (?\e,1y\e(B . ?\e,Ay\e(B)
         (?\e,1z\e(B . ?\e,Az\e(B)
         (?\e,1{\e(B . ?\e$,1!)\e(B)
         (?\e,1|\e(B . ?\e$,1og\e(B)
         (?\e,1}\e(B . ?\e,A}\e(B)
         (?\e,1~\e(B . ?\e$,1oc\e(B)

         (?\e,2!\e(B . ?\e$,1o.\e(B)
         (?\e,2"\e(B . ?\e$,1o0\e(B)
         (?\e,2#\e(B . ?\e$,1o6\e(B)
         (?\e,2$\e(B . ?\e$,1o$\e(B)
         (?\e,2%\e(B . ?\e$,1o&\e(B)
         (?\e,2&\e(B . ?\e$,1o(\e(B)
         (?\e,2'\e(B . ?\e$,1o,\e(B)
         (?\e,2(\e(B . ?\e$,1o<\e(B)
         (?\e,2)\e(B . ?\e$,1o8\e(B)
         (?\e,2*\e(B . ?\e$,1o>\e(B)
         (?\e,2+\e(B . ?\e$,1o@\e(B)
         (?\e,2,\e(B . ?\e$,1oB\e(B)
         (?\e,2-\e(B . ?\e$,1oD\e(B)
         (?\e,2.\e(B . ?\e$,1oF\e(B)
         (?\e,2/\e(B . ?\e$,1oP\e(B)
         (?\e,20\e(B . ?\e$,1oR\e(B)
         (?\e,21\e(B . ?\e$,1oT\e(B)
         (?\e,22\e(B . ?\e$,1oV\e(B)
         (?\e,25\e(B . ?\e$,1oX\e(B)
         (?\e,26\e(B . ?\e$,1o\\e(B)
         (?\e,27\e(B . ?\e$,1o^\e(B)
         (?\e,28\e(B . ?\e$,1oJ\e(B)
         (?\e,2=\e(B . ?\e$,1!`\e(B)
         (?\e,2>\e(B . ?\e$,1oZ\e(B)
         (?\e,2F\e(B . ?\e$,1o2\e(B)
         (?\e,2G\e(B . ?\e$,1o4\e(B)
         (?\e,2O\e(B . ?\e$,1or\e(B)
         (?\e,2Q\e(B . ?\e$,1oh\e(B)
         (?\e,2U\e(B . ?\e$,1o \e(B)
         (?\e,2V\e(B . ?\e$,1ov\e(B)
         (?\e,2W\e(B . ?\e$,1oj\e(B)
         (?\e,2X\e(B . ?\e$,1ol\e(B)
         (?\e,2[\e(B . ?\e$,1ox\e(B)
         (?\e,2\\e(B . ?\e$,1ot\e(B)
         (?\e,2^\e(B . ?\e$,1o`\e(B)
         (?\e,2_\e(B . ?\e$,1!o\e(B)
         (?\e,2`\e(B . ?\e,A@\e(B)
         (?\e,2a\e(B . ?\e,AA\e(B)
         (?\e,2b\e(B . ?\e,AB\e(B)
         (?\e,2c\e(B . ?\e,AC\e(B)
         (?\e,2d\e(B . ?\e$,1o"\e(B)
         (?\e,2e\e(B . ?\e$,1 "\e(B)
         (?\e,2f\e(B . ?\e$,1on\e(B)
         (?\e,2g\e(B . ?\e$,1o*\e(B)
         (?\e,2h\e(B . ?\e,AH\e(B)
         (?\e,2i\e(B . ?\e,AI\e(B)
         (?\e,2j\e(B . ?\e,AJ\e(B)
         (?\e,2k\e(B . ?\e$,1o:\e(B)
         (?\e,2l\e(B . ?\e,AL\e(B)
         (?\e,2m\e(B . ?\e,AM\e(B)
         (?\e,2n\e(B . ?\e$,1 H\e(B)
         (?\e,2o\e(B . ?\e$,1oH\e(B)
         (?\e,2p\e(B . ?\e$,1 0\e(B)
         (?\e,2q\e(B . ?\e$,1op\e(B)
         (?\e,2r\e(B . ?\e,AR\e(B)
         (?\e,2s\e(B . ?\e,AS\e(B)
         (?\e,2t\e(B . ?\e,AT\e(B)
         (?\e,2u\e(B . ?\e,AU\e(B)
         (?\e,2v\e(B . ?\e$,1oN\e(B)
         (?\e,2w\e(B . ?\e$,1oL\e(B)
         (?\e,2x\e(B . ?\e$,1od\e(B)
         (?\e,2y\e(B . ?\e,AY\e(B)
         (?\e,2z\e(B . ?\e,AZ\e(B)
         (?\e,2{\e(B . ?\e$,1!(\e(B)
         (?\e,2|\e(B . ?\e$,1of\e(B)
         (?\e,2}\e(B . ?\e,A]\e(B)
         (?\e,2~\e(B . ?\e$,1ob\e(B)))

      (thai-tis620
       '((?\e,T!\e(B . ?\e$,1Ba\e(B)
         (?\e,T"\e(B . ?\e$,1Bb\e(B)
         (?\e,T#\e(B . ?\e$,1Bc\e(B)
         (?\e,T$\e(B . ?\e$,1Bd\e(B)
         (?\e,T%\e(B . ?\e$,1Be\e(B)
         (?\e,T&\e(B . ?\e$,1Bf\e(B)
         (?\e,T'\e(B . ?\e$,1Bg\e(B)
         (?\e,T(\e(B . ?\e$,1Bh\e(B)
         (?\e,T)\e(B . ?\e$,1Bi\e(B)
         (?\e,T*\e(B . ?\e$,1Bj\e(B)
         (?\e,T+\e(B . ?\e$,1Bk\e(B)
         (?\e,T,\e(B . ?\e$,1Bl\e(B)
         (?\e,T-\e(B . ?\e$,1Bm\e(B)
         (?\e,T.\e(B . ?\e$,1Bn\e(B)
         (?\e,T/\e(B . ?\e$,1Bo\e(B)
         (?\e,T0\e(B . ?\e$,1Bp\e(B)
         (?\e,T1\e(B . ?\e$,1Bq\e(B)
         (?\e,T2\e(B . ?\e$,1Br\e(B)
         (?\e,T3\e(B . ?\e$,1Bs\e(B)
         (?\e,T4\e(B . ?\e$,1Bt\e(B)
         (?\e,T5\e(B . ?\e$,1Bu\e(B)
         (?\e,T6\e(B . ?\e$,1Bv\e(B)
         (?\e,T7\e(B . ?\e$,1Bw\e(B)
         (?\e,T8\e(B . ?\e$,1Bx\e(B)
         (?\e,T9\e(B . ?\e$,1By\e(B)
         (?\e,T:\e(B . ?\e$,1Bz\e(B)
         (?\e,T;\e(B . ?\e$,1B{\e(B)
         (?\e,T<\e(B . ?\e$,1B|\e(B)
         (?\e,T=\e(B . ?\e$,1B}\e(B)
         (?\e,T>\e(B . ?\e$,1B~\e(B)
         (?\e,T?\e(B . ?\e$,1B\7f\e(B)
         (?\e,T@\e(B . ?\e$,1C \e(B)
         (?\e,TA\e(B . ?\e$,1C!\e(B)
         (?\e,TB\e(B . ?\e$,1C"\e(B)
         (?\e,TC\e(B . ?\e$,1C#\e(B)
         (?\e,TD\e(B . ?\e$,1C$\e(B)
         (?\e,TE\e(B . ?\e$,1C%\e(B)
         (?\e,TF\e(B . ?\e$,1C&\e(B)
         (?\e,TG\e(B . ?\e$,1C'\e(B)
         (?\e,TH\e(B . ?\e$,1C(\e(B)
         (?\e,TI\e(B . ?\e$,1C)\e(B)
         (?\e,TJ\e(B . ?\e$,1C*\e(B)
         (?\e,TK\e(B . ?\e$,1C+\e(B)
         (?\e,TL\e(B . ?\e$,1C,\e(B)
         (?\e,TM\e(B . ?\e$,1C-\e(B)
         (?\e,TN\e(B . ?\e$,1C.\e(B)
         (?\e,TO\e(B . ?\e$,1C/\e(B)
         (?\e,TP\e(B . ?\e$,1C0\e(B)
         (?\e,TQ\e(B . ?\e$,1C1\e(B)
         (?\e,TR\e(B . ?\e$,1C2\e(B)
         (?\e,TS\e(B . ?\e$,1C3\e(B)
         (?\e,TT\e(B . ?\e$,1C4\e(B)
         (?\e,TU\e(B . ?\e$,1C5\e(B)
         (?\e,TV\e(B . ?\e$,1C6\e(B)
         (?\e,TW\e(B . ?\e$,1C7\e(B)
         (?\e,TX\e(B . ?\e$,1C8\e(B)
         (?\e,TY\e(B . ?\e$,1C9\e(B)
         (?\e,TZ\e(B . ?\e$,1C:\e(B)
         (?\e,T_\e(B . ?\e$,1C?\e(B)
         (?\e,T`\e(B . ?\e$,1C@\e(B)
         (?\e,Ta\e(B . ?\e$,1CA\e(B)
         (?\e,Tb\e(B . ?\e$,1CB\e(B)
         (?\e,Tc\e(B . ?\e$,1CC\e(B)
         (?\e,Td\e(B . ?\e$,1CD\e(B)
         (?\e,Te\e(B . ?\e$,1CE\e(B)
         (?\e,Tf\e(B . ?\e$,1CF\e(B)
         (?\e,Tg\e(B . ?\e$,1CG\e(B)
         (?\e,Th\e(B . ?\e$,1CH\e(B)
         (?\e,Ti\e(B . ?\e$,1CI\e(B)
         (?\e,Tj\e(B . ?\e$,1CJ\e(B)
         (?\e,Tk\e(B . ?\e$,1CK\e(B)
         (?\e,Tl\e(B . ?\e$,1CL\e(B)
         (?\e,Tm\e(B . ?\e$,1CM\e(B)
         (?\e,Tn\e(B . ?\e$,1CN\e(B)
         (?\e,To\e(B . ?\e$,1CO\e(B)
         (?\e,Tp\e(B . ?\e$,1CP\e(B)
         (?\e,Tq\e(B . ?\e$,1CQ\e(B)
         (?\e,Tr\e(B . ?\e$,1CR\e(B)
         (?\e,Ts\e(B . ?\e$,1CS\e(B)
         (?\e,Tt\e(B . ?\e$,1CT\e(B)
         (?\e,Tu\e(B . ?\e$,1CU\e(B)
         (?\e,Tv\e(B . ?\e$,1CV\e(B)
         (?\e,Tw\e(B . ?\e$,1CW\e(B)
         (?\e,Tx\e(B . ?\e$,1CX\e(B)
         (?\e,Ty\e(B . ?\e$,1CY\e(B)
         (?\e,Tz\e(B . ?\e$,1CZ\e(B)
         (?\e,T{\e(B . ?\e$,1C[\e(B)))

      (tibetan-iso-8bit
       '((?\e$(7!0\e(B . ?\e$,1E@\e(B)
         (?\e$(7!1\e(B . ?\e$,1EA\e(B)
         (?\e$(7!2\e(B . ?\e$,1EB\e(B)
         (?\e$(7!3\e(B . ?\e$,1EC\e(B)
         (?\e$(7!4\e(B . ?\e$,1ED\e(B)
         (?\e$(7!5\e(B . ?\e$,1EE\e(B)
         (?\e$(7!6\e(B . ?\e$,1EF\e(B)
         (?\e$(7!7\e(B . ?\e$,1EG\e(B)
         (?\e$(7!8\e(B . ?\e$,1EH\e(B)
         (?\e$(7!9\e(B . ?\e$,1EI\e(B)
         (?\e$(7!:\e(B . ?\e$,1EJ\e(B)
         (?\e$(7!;\e(B . ?\e$,1EK\e(B)
         (?\e$(7!<\e(B . ?\e$,1EL\e(B)
         (?\e$(7!=\e(B . ?\e$,1EM\e(B)
         (?\e$(7!>\e(B . ?\e$,1EN\e(B)
         (?\e$(7!?\e(B . ?\e$,1EO\e(B)
         (?\e$(7!@\e(B . ?\e$,1EP\e(B)
         (?\e$(7!A\e(B . ?\e$,1EQ\e(B)
         (?\e$(7!B\e(B . ?\e$,1ER\e(B)
         (?\e$(7!C\e(B . ?\e$,1ES\e(B)
         (?\e$(7!D\e(B . ?\e$,1ET\e(B)
         (?\e$(7!E\e(B . ?\e$,1EU\e(B)
         (?\e$(7!F\e(B . ?\e$,1EV\e(B)
         (?\e$(7!G\e(B . ?\e$,1EW\e(B)
         (?\e$(7!H\e(B . ?\e$,1EX\e(B)
         (?\e$(7!I\e(B . ?\e$,1EY\e(B)
         (?\e$(7!J\e(B . ?\e$,1EZ\e(B)
         (?\e$(7!K\e(B . ?\e$,1E[\e(B)
         (?\e$(7!L\e(B . ?\e$,1E\\e(B)
         (?\e$(7!M\e(B . ?\e$,1E]\e(B)
         (?\e$(7!N\e(B . ?\e$,1E^\e(B)
         (?\e$(7!O\e(B . ?\e$,1E_\e(B)
         (?\e$(7!P\e(B . ?\e$,1E`\e(B)
         (?\e$(7!Q\e(B . ?\e$,1Ea\e(B)
         (?\e$(7!R\e(B . ?\e$,1Eb\e(B)
         (?\e$(7!S\e(B . ?\e$,1Ec\e(B)
         (?\e$(7!T\e(B . ?\e$,1Ed\e(B)
         (?\e$(7!U\e(B . ?\e$,1Ee\e(B)
         (?\e$(7!V\e(B . ?\e$,1Ef\e(B)
         (?\e$(7!W\e(B . ?\e$,1Eg\e(B)
         (?\e$(7!X\e(B . ?\e$,1Eh\e(B)
         (?\e$(7!Y\e(B . ?\e$,1Ei\e(B)
         (?\e$(7!Z\e(B . ?\e$,1Ej\e(B)
         (?\e$(7![\e(B . ?\e$,1Ek\e(B)
         (?\e$(7!\\e(B . ?\e$,1El\e(B)
         (?\e$(7!]\e(B . ?\e$,1Em\e(B)
         (?\e$(7!^\e(B . ?\e$,1En\e(B)
         (?\e$(7!_\e(B . ?\e$,1Eo\e(B)
         (?\e$(7!`\e(B . ?\e$,1Ep\e(B)
         (?\e$(7!a\e(B . ?\e$,1Eq\e(B)
         (?\e$(7!b\e(B . ?\e$,1Er\e(B)
         (?\e$(7!c\e(B . ?\e$,1Es\e(B)
         (?\e$(7!d\e(B . ?\e$,1Et\e(B)
         (?\e$(7!e\e(B . ?\e$,1Eu\e(B)
         (?\e$(7!f\e(B . ?\e$,1Ev\e(B)
         (?\e$(7!g\e(B . ?\e$,1Ew\e(B)
         (?\e$(7!h\e(B . ?\e$,1Ex\e(B)
         (?\e$(7!i\e(B . ?\e$,1Ey\e(B)
         (?\e$(7!j\e(B . ?\e$,1Ez\e(B)
         (?\e$(7!k\e(B . ?\e$,1E{\e(B)
         (?\e$(7!l\e(B . ?\e$,1E|\e(B)
         (?\e$(7!m\e(B . ?\e$,1E}\e(B)
         (?\e$(7!n\e(B . ?\e$,1E~\e(B)
         (?\e$(7!o\e(B . ?\e$,1E\7f\e(B)
         (?\e$(7"!\e(B . ?\e$,1F \e(B)
         (?\e$(7""\e(B . ?\e$,1F!\e(B)
         (?\e$(7"#\e(B . ?\e$,1F"\e(B)
         (?\e$(7"$\e(B . ?\e$,1F#\e(B)
         (?\e$(7"%\e(B . ?\e$,1F$\e(B)
         (?\e$(7"&\e(B . ?\e$,1F%\e(B)
         (?\e$(7"'\e(B . ?\e$,1F&\e(B)
         (?\e$(7"(\e(B . ?\e$,1F'\e(B)
         (?\e$(7"*\e(B . ?\e$,1F)\e(B)
         (?\e$(7"+\e(B . ?\e$,1F*\e(B)
         (?\e$(7",\e(B . ?\e$,1F+\e(B)
         (?\e$(7"-\e(B . ?\e$,1F,\e(B)
         (?\e$(7".\e(B . ?\e$,1F-\e(B)
         (?\e$(7"/\e(B . ?\e$,1F.\e(B)
         (?\e$(7"0\e(B . ?\e$,1F/\e(B)
         (?\e$(7"1\e(B . ?\e$,1F0\e(B)
         (?\e$(7"2\e(B . ?\e$,1F1\e(B)
         (?\e$(7"3\e(B . ?\e$,1F2\e(B)
         (?\e$(7"4\e(B . ?\e$,1F3\e(B)
         (?\e$(7"5\e(B . ?\e$,1F4\e(B)
         (?\e$(7"6\e(B . ?\e$,1F5\e(B)
         (?\e$(7"7\e(B . ?\e$,1F6\e(B)
         (?\e$(7"8\e(B . ?\e$,1F7\e(B)
         (?\e$(7"9\e(B . ?\e$,1F8\e(B)
         (?\e$(7":\e(B . ?\e$,1F9\e(B)
         (?\e$(7";\e(B . ?\e$,1F:\e(B)
         (?\e$(7"<\e(B . ?\e$,1F;\e(B)
         (?\e$(7"=\e(B . ?\e$,1F<\e(B)
         (?\e$(7">\e(B . ?\e$,1F=\e(B)
         (?\e$(7"?\e(B . ?\e$,1F>\e(B)
         (?\e$(7"@\e(B . ?\e$,1F?\e(B)
         (?\e$(7"A\e(B . ?\e$,1F@\e(B)
         (?\e$(7"B\e(B . ?\e$,1FA\e(B)
         (?\e$(7"C\e(B . ?\e$,1FB\e(B)
         (?\e$(7"D\e(B . ?\e$,1FC\e(B)
         (?\e$(7"E\e(B . ?\e$,1FD\e(B)
         (?\e$(7"F\e(B . ?\e$,1FE\e(B)
         (?\e$(7"G\e(B . ?\e$,1FF\e(B)
         (?\e$(7"H\e(B . ?\e$,1FG\e(B)
         (?\e$(7"I\e(B . ?\e$,1FH\e(B)
         (?\e$(7"J\e(B . ?\e$,1FI\e(B)
         (?\e$(7"K\e(B . ?\e$,1FJ\e(B)
         (?\e$(7"R\e(B . ?\e$,1FQ\e(B)
         (?\e$(7"S\e(B . ?\e$,1FR\e(B)
         (?\e$(7"T\e(B . ?\e$,1FS\e(B)
         (?\e$(7"U\e(B . ?\e$,1FT\e(B)
         (?\e$(7"V\e(B . ?\e$,1FU\e(B)
         (?\e$(7"W\e(B . ?\e$,1FV\e(B)
         (?\e$(7"X\e(B . ?\e$,1FW\e(B)
         (?\e$(7"Y\e(B . ?\e$,1FX\e(B)
         (?\e$(7"Z\e(B . ?\e$,1FY\e(B)
         (?\e$(7"[\e(B . ?\e$,1FZ\e(B)
         (?\e$(7"\\e(B . ?\e$,1F[\e(B)
         (?\e$(7"]\e(B . ?\e$,1F\\e(B)
         (?\e$(7"^\e(B . ?\e$,1F]\e(B)
         (?\e$(7"_\e(B . ?\e$,1F^\e(B)
         (?\e$(7"`\e(B . ?\e$,1F_\e(B)
         (?\e$(7"a\e(B . ?\e$,1F`\e(B)
         (?\e$(7"b\e(B . ?\e$,1Fa\e(B)
         (?\e$(7"c\e(B . ?\e$,1Fb\e(B)
         (?\e$(7"d\e(B . ?\e$,1Fc\e(B)
         (?\e$(7"e\e(B . ?\e$,1Fd\e(B)
         (?\e$(7"f\e(B . ?\e$,1Fe\e(B)
         (?\e$(7"g\e(B . ?\e$,1Ff\e(B)
         (?\e$(7"h\e(B . ?\e$,1Fg\e(B)
         (?\e$(7"i\e(B . ?\e$,1Fh\e(B)
         (?\e$(7"j\e(B . ?\e$,1Fi\e(B)
         (?\e$(7"k\e(B . ?\e$,1Fj\e(B)
         (?\e$(7"l\e(B . ?\e$,1Fk\e(B)
         (?\e$(7#!\e(B . ?\e$,1Fp\e(B)
         (?\e$(7#"\e(B . ?\e$,1Fq\e(B)
         (?\e$(7##\e(B . ?\e$,1Fr\e(B)
         (?\e$(7#$\e(B . ?\e$,1Fs\e(B)
         (?\e$(7#%\e(B . ?\e$,1Ft\e(B)
         (?\e$(7#&\e(B . ?\e$,1Fu\e(B)
         (?\e$(7#'\e(B . ?\e$,1Fv\e(B)
         (?\e$(7#(\e(B . ?\e$,1Fw\e(B)
         (?\e$(7#*\e(B . ?\e$,1Fy\e(B)
         (?\e$(7#+\e(B . ?\e$,1Fz\e(B)
         (?\e$(7#,\e(B . ?\e$,1F{\e(B)
         (?\e$(7#-\e(B . ?\e$,1F|\e(B)
         (?\e$(7#.\e(B . ?\e$,1F}\e(B)
         (?\e$(7#/\e(B . ?\e$,1F~\e(B)
         (?\e$(7#0\e(B . ?\e$,1F\7f\e(B)
         (?\e$(7#1\e(B . ?\e$,1G \e(B)
         (?\e$(7#2\e(B . ?\e$,1G!\e(B)
         (?\e$(7#3\e(B . ?\e$,1G"\e(B)
         (?\e$(7#4\e(B . ?\e$,1G#\e(B)
         (?\e$(7#5\e(B . ?\e$,1G$\e(B)
         (?\e$(7#6\e(B . ?\e$,1G%\e(B)
         (?\e$(7#7\e(B . ?\e$,1G&\e(B)
         (?\e$(7#8\e(B . ?\e$,1G'\e(B)
         (?\e$(7#9\e(B . ?\e$,1G(\e(B)
         (?\e$(7#:\e(B . ?\e$,1G)\e(B)
         (?\e$(7#;\e(B . ?\e$,1G*\e(B)
         (?\e$(7#<\e(B . ?\e$,1G+\e(B)
         (?\e$(7#=\e(B . ?\e$,1G,\e(B)
         (?\e$(7#>\e(B . ?\e$,1G-\e(B)
         (?\e$(7#?\e(B . ?\e$,1G.\e(B)
         (?\e$(7#@\e(B . ?\e$,1G/\e(B)
         (?\e$(7#A\e(B . ?\e$,1G0\e(B)
         (?\e$(7#B\e(B . ?\e$,1G1\e(B)
         (?\e$(7#C\e(B . ?\e$,1G2\e(B)
         (?\e$(7#D\e(B . ?\e$,1G3\e(B)
         (?\e$(7#E\e(B . ?\e$,1G4\e(B)
         (?\e$(7#F\e(B . ?\e$,1G5\e(B)
         (?\e$(7#G\e(B . ?\e$,1G6\e(B)
         (?\e$(7#H\e(B . ?\e$,1G7\e(B)
         (?\e$(7#I\e(B . ?\e$,1G8\e(B)
         (?\e$(7#J\e(B . ?\e$,1G9\e(B)
         (?\e$(7#K\e(B . ?\e$,1G:\e(B)
         (?\e$(7#L\e(B . ?\e$,1G;\e(B)
         (?\e$(7#M\e(B . ?\e$,1G<\e(B)
         (?\e$(7#O\e(B . ?\e$,1G>\e(B)
         (?\e$(7#P\e(B . ?\e$,1G?\e(B)
         (?\e$(7#Q\e(B . ?\e$,1G@\e(B)
         (?\e$(7#R\e(B . ?\e$,1GA\e(B)
         (?\e$(7#S\e(B . ?\e$,1GB\e(B)
         (?\e$(7#T\e(B . ?\e$,1GC\e(B)
         (?\e$(7#U\e(B . ?\e$,1GD\e(B)
         (?\e$(7#V\e(B . ?\e$,1GE\e(B)
         (?\e$(7#W\e(B . ?\e$,1GF\e(B)
         (?\e$(7#X\e(B . ?\e$,1GG\e(B)
         (?\e$(7#Y\e(B . ?\e$,1GH\e(B)
         (?\e$(7#Z\e(B . ?\e$,1GI\e(B)
         (?\e$(7#[\e(B . ?\e$,1GJ\e(B)
         (?\e$(7#\\e(B . ?\e$,1GK\e(B)
         (?\e$(7#]\e(B . ?\e$,1GL\e(B)
         (?\e$(7#`\e(B . ?\e$,1GO\e(B)))

      (ipa
       '((?i . ?i)
         (?\e,0!\e(B . ?\e$,1#j\e(B)
         (?e . ?e)
         (?\e,0#\e(B . ?\e$,1#[\e(B)
         (?\e,0$\e(B . ?\e,Af\e(B)
         (?a . ?a)
         (?\e,0&\e(B . ?\e$,1#h\e(B)
         (?\e,0'\e(B . ?\e$,1#Y\e(B)
         (?\e,0(\e(B . ?\e$,1#P\e(B)
         (?\e,0)\e(B . ?\e$,1#o\e(B)
         (?\e,0*\e(B . ?\e$,1#d\e(B)
         (?\e,0+\e(B . ?\e$,1$,\e(B)
         (?\e,0,\e(B . ?\e$,1#Q\e(B)
         (?y . ?y)
         (?\e,0.\e(B . ?\e$,1$/\e(B)
         (?\e,0/\e(B . ?\e,Ax\e(B)
         (?\e,00\e(B . ?\e$,1 s\e(B)
         (?\e,01\e(B . ?\e$,1#v\e(B)
         (?\e,02\e(B . ?\e$,1$)\e(B)
         (?\e,03\e(B . ?\e$,1#u\e(B)
         (?u . ?u)
         (?\e,05\e(B . ?\e$,1$*\e(B)
         (?o . ?o)
         (?\e,07\e(B . ?\e$,1#T\e(B)
         (?\e,08\e(B . ?\e$,1#R\e(B)
         (?\e,0:\e(B . ?\e$,1#Z\e(B)
         (?p . ?p)
         (?b . ?b)
         (?t . ?t)
         (?d . ?d)
         (?k . ?k)
         (?g . ?g)
         (?f . ?f)
         (?v . ?v)
         (?\e,0H\e(B . ?\e$,1'8\e(B)
         (?\e,0I\e(B . ?\e,Ap\e(B)
         (?s . ?s)
         (?z . ?z)
         (?\e,0L\e(B . ?\e$,1$#\e(B)
         (?\e,0M\e(B . ?\e$,1$2\e(B)
         (?\e,0N\e(B . ?\e,Ag\e(B)
         (?x . ?x)
         (?\e,0P\e(B . ?\e$,1$!\e(B)
         (?h . ?h)
         (?m . ?m)
         (?n . ?n)
         (?\e,0T\e(B . ?\e$,1#r\e(B)
         (?\e,0U\e(B . ?\e$,1 k\e(B)
         (?r . ?r)
         (?\e,0W\e(B . ?\e$,1$ \e(B)
         (?\e,0X\e(B . ?\e$,1#y\e(B)
         (?j . ?j)
         (?l . ?l)
         (?\e,0[\e(B . ?\e$,1$.\e(B)
         (?\e,0\\e(B . ?\e$,1$?\e(B)
         (?\e,0]\e(B . ?\e$,1#e\e(B)
         (?w . ?w)
         (?\e,0_\e(B . ?\e$,1$-\e(B)
         (?\e,0p\e(B . ?\e$,1$h\e(B)
         (?\e,0q\e(B . ?\e$,1$l\e(B)
         (?\e,0r\e(B . ?\e$,1$p\e(B)))

      (ethiopic
       '((?\e$(3!!\e(B . ?\e$,1M@\e(B)
         (?\e$(3!"\e(B . ?\e$,1MA\e(B)
         (?\e$(3!#\e(B . ?\e$,1MB\e(B)
         (?\e$(3!$\e(B . ?\e$,1MC\e(B)
         (?\e$(3!%\e(B . ?\e$,1MD\e(B)
         (?\e$(3!&\e(B . ?\e$,1ME\e(B)
         (?\e$(3!'\e(B . ?\e$,1MF\e(B)
         (?\e$(3!)\e(B . ?\e$,1MH\e(B)
         (?\e$(3!*\e(B . ?\e$,1MI\e(B)
         (?\e$(3!+\e(B . ?\e$,1MJ\e(B)
         (?\e$(3!,\e(B . ?\e$,1MK\e(B)
         (?\e$(3!-\e(B . ?\e$,1ML\e(B)
         (?\e$(3!.\e(B . ?\e$,1MM\e(B)
         (?\e$(3!/\e(B . ?\e$,1MN\e(B)
         (?\e$(3!0\e(B . ?\e$,1MO\e(B)
         (?\e$(3!1\e(B . ?\e$,1MP\e(B)
         (?\e$(3!2\e(B . ?\e$,1MQ\e(B)
         (?\e$(3!3\e(B . ?\e$,1MR\e(B)
         (?\e$(3!4\e(B . ?\e$,1MS\e(B)
         (?\e$(3!5\e(B . ?\e$,1MT\e(B)
         (?\e$(3!6\e(B . ?\e$,1MU\e(B)
         (?\e$(3!7\e(B . ?\e$,1MV\e(B)
         (?\e$(3!8\e(B . ?\e$,1MW\e(B)
         (?\e$(3!9\e(B . ?\e$,1MX\e(B)
         (?\e$(3!:\e(B . ?\e$,1MY\e(B)
         (?\e$(3!;\e(B . ?\e$,1MZ\e(B)
         (?\e$(3!<\e(B . ?\e$,1M[\e(B)
         (?\e$(3!=\e(B . ?\e$,1M\\e(B)
         (?\e$(3!>\e(B . ?\e$,1M]\e(B)
         (?\e$(3!?\e(B . ?\e$,1M^\e(B)
         (?\e$(3!@\e(B . ?\e$,1M_\e(B)
         (?\e$(3!A\e(B . ?\e$,1M`\e(B)
         (?\e$(3!B\e(B . ?\e$,1Ma\e(B)
         (?\e$(3!C\e(B . ?\e$,1Mb\e(B)
         (?\e$(3!D\e(B . ?\e$,1Mc\e(B)
         (?\e$(3!E\e(B . ?\e$,1Md\e(B)
         (?\e$(3!F\e(B . ?\e$,1Me\e(B)
         (?\e$(3!G\e(B . ?\e$,1Mf\e(B)
         (?\e$(3!H\e(B . ?\e$,1Mg\e(B)
         (?\e$(3!I\e(B . ?\e$,1Mh\e(B)
         (?\e$(3!J\e(B . ?\e$,1Mi\e(B)
         (?\e$(3!K\e(B . ?\e$,1Mj\e(B)
         (?\e$(3!L\e(B . ?\e$,1Mk\e(B)
         (?\e$(3!M\e(B . ?\e$,1Ml\e(B)
         (?\e$(3!N\e(B . ?\e$,1Mm\e(B)
         (?\e$(3!O\e(B . ?\e$,1Mn\e(B)
         (?\e$(3!P\e(B . ?\e$,1Mo\e(B)
         (?\e$(3!Q\e(B . ?\e$,1Mp\e(B)
         (?\e$(3!R\e(B . ?\e$,1Mq\e(B)
         (?\e$(3!S\e(B . ?\e$,1Mr\e(B)
         (?\e$(3!T\e(B . ?\e$,1Ms\e(B)
         (?\e$(3!U\e(B . ?\e$,1Mt\e(B)
         (?\e$(3!V\e(B . ?\e$,1Mu\e(B)
         (?\e$(3!W\e(B . ?\e$,1Mv\e(B)
         (?\e$(3!X\e(B . ?\e$,1Mw\e(B)
         (?\e$(3!Y\e(B . ?\e$,1Mx\e(B)
         (?\e$(3!Z\e(B . ?\e$,1My\e(B)
         (?\e$(3![\e(B . ?\e$,1Mz\e(B)
         (?\e$(3!\\e(B . ?\e$,1M{\e(B)
         (?\e$(3!]\e(B . ?\e$,1M|\e(B)
         (?\e$(3!^\e(B . ?\e$,1M}\e(B)
         (?\e$(3!_\e(B . ?\e$,1M~\e(B)
         (?\e$(3!`\e(B . ?\e$,1M\7f\e(B)
         (?\e$(3!a\e(B . ?\e$,1N \e(B)
         (?\e$(3!b\e(B . ?\e$,1N!\e(B)
         (?\e$(3!c\e(B . ?\e$,1N"\e(B)
         (?\e$(3!d\e(B . ?\e$,1N#\e(B)
         (?\e$(3!e\e(B . ?\e$,1N$\e(B)
         (?\e$(3!f\e(B . ?\e$,1N%\e(B)
         (?\e$(3!g\e(B . ?\e$,1N&\e(B)
         (?\e$(3!i\e(B . ?\e$,1N(\e(B)
         (?\e$(3!k\e(B . ?\e$,1N*\e(B)
         (?\e$(3!l\e(B . ?\e$,1N+\e(B)
         (?\e$(3!m\e(B . ?\e$,1N,\e(B)
         (?\e$(3!n\e(B . ?\e$,1N-\e(B)
         (?\e$(3!q\e(B . ?\e$,1N0\e(B)
         (?\e$(3!r\e(B . ?\e$,1N1\e(B)
         (?\e$(3!s\e(B . ?\e$,1N2\e(B)
         (?\e$(3!t\e(B . ?\e$,1N3\e(B)
         (?\e$(3!u\e(B . ?\e$,1N4\e(B)
         (?\e$(3!v\e(B . ?\e$,1N5\e(B)
         (?\e$(3!w\e(B . ?\e$,1N6\e(B)
         (?\e$(3!y\e(B . ?\e$,1N8\e(B)
         (?\e$(3!{\e(B . ?\e$,1N:\e(B)
         (?\e$(3!|\e(B . ?\e$,1N;\e(B)
         (?\e$(3!}\e(B . ?\e$,1N<\e(B)
         (?\e$(3!~\e(B . ?\e$,1N=\e(B)
         (?\e$(3"#\e(B . ?\e$,1N@\e(B)
         (?\e$(3"$\e(B . ?\e$,1NA\e(B)
         (?\e$(3"%\e(B . ?\e$,1NB\e(B)
         (?\e$(3"&\e(B . ?\e$,1NC\e(B)
         (?\e$(3"'\e(B . ?\e$,1ND\e(B)
         (?\e$(3"(\e(B . ?\e$,1NE\e(B)
         (?\e$(3")\e(B . ?\e$,1NF\e(B)
         (?\e$(3"*\e(B . ?\e$,1NG\e(B)
         (?\e$(3"+\e(B . ?\e$,1NH\e(B)
         (?\e$(3",\e(B . ?\e$,1NI\e(B)
         (?\e$(3"-\e(B . ?\e$,1NJ\e(B)
         (?\e$(3".\e(B . ?\e$,1NK\e(B)
         (?\e$(3"/\e(B . ?\e$,1NL\e(B)
         (?\e$(3"0\e(B . ?\e$,1NM\e(B)
         (?\e$(3"1\e(B . ?\e$,1NN\e(B)
         (?\e$(3"2\e(B . ?\e$,1NO\e(B)
         (?\e$(3"3\e(B . ?\e$,1NP\e(B)
         (?\e$(3"4\e(B . ?\e$,1NQ\e(B)
         (?\e$(3"5\e(B . ?\e$,1NR\e(B)
         (?\e$(3"6\e(B . ?\e$,1NS\e(B)
         (?\e$(3"7\e(B . ?\e$,1NT\e(B)
         (?\e$(3"8\e(B . ?\e$,1NU\e(B)
         (?\e$(3"9\e(B . ?\e$,1NV\e(B)
         (?\e$(3":\e(B . ?\e$,1NW\e(B)
         (?\e$(3";\e(B . ?\e$,1NX\e(B)
         (?\e$(3"<\e(B . ?\e$,1NY\e(B)
         (?\e$(3"=\e(B . ?\e$,1NZ\e(B)
         (?\e$(3">\e(B . ?\e$,1N[\e(B)
         (?\e$(3"?\e(B . ?\e$,1N\\e(B)
         (?\e$(3"@\e(B . ?\e$,1N]\e(B)
         (?\e$(3"A\e(B . ?\e$,1N^\e(B)
         (?\e$(3"B\e(B . ?\e$,1N_\e(B)
         (?\e$(3"C\e(B . ?\e$,1N`\e(B)
         (?\e$(3"D\e(B . ?\e$,1Na\e(B)
         (?\e$(3"E\e(B . ?\e$,1Nb\e(B)
         (?\e$(3"F\e(B . ?\e$,1Nc\e(B)
         (?\e$(3"G\e(B . ?\e$,1Nd\e(B)
         (?\e$(3"H\e(B . ?\e$,1Ne\e(B)
         (?\e$(3"I\e(B . ?\e$,1Nf\e(B)
         (?\e$(3"K\e(B . ?\e$,1Nh\e(B)
         (?\e$(3"M\e(B . ?\e$,1Nj\e(B)
         (?\e$(3"N\e(B . ?\e$,1Nk\e(B)
         (?\e$(3"O\e(B . ?\e$,1Nl\e(B)
         (?\e$(3"P\e(B . ?\e$,1Nm\e(B)
         (?\e$(3"S\e(B . ?\e$,1Np\e(B)
         (?\e$(3"T\e(B . ?\e$,1Nq\e(B)
         (?\e$(3"U\e(B . ?\e$,1Nr\e(B)
         (?\e$(3"V\e(B . ?\e$,1Ns\e(B)
         (?\e$(3"W\e(B . ?\e$,1Nt\e(B)
         (?\e$(3"X\e(B . ?\e$,1Nu\e(B)
         (?\e$(3"Y\e(B . ?\e$,1Nv\e(B)
         (?\e$(3"Z\e(B . ?\e$,1Nw\e(B)
         (?\e$(3"[\e(B . ?\e$,1Nx\e(B)
         (?\e$(3"\\e(B . ?\e$,1Ny\e(B)
         (?\e$(3"]\e(B . ?\e$,1Nz\e(B)
         (?\e$(3"^\e(B . ?\e$,1N{\e(B)
         (?\e$(3"_\e(B . ?\e$,1N|\e(B)
         (?\e$(3"`\e(B . ?\e$,1N}\e(B)
         (?\e$(3"a\e(B . ?\e$,1N~\e(B)
         (?\e$(3"b\e(B . ?\e$,1N\7f\e(B)
         (?\e$(3"c\e(B . ?\e$,1O \e(B)
         (?\e$(3"d\e(B . ?\e$,1O!\e(B)
         (?\e$(3"e\e(B . ?\e$,1O"\e(B)
         (?\e$(3"f\e(B . ?\e$,1O#\e(B)
         (?\e$(3"g\e(B . ?\e$,1O$\e(B)
         (?\e$(3"h\e(B . ?\e$,1O%\e(B)
         (?\e$(3"i\e(B . ?\e$,1O&\e(B)
         (?\e$(3"j\e(B . ?\e$,1O'\e(B)
         (?\e$(3"k\e(B . ?\e$,1O(\e(B)
         (?\e$(3"l\e(B . ?\e$,1O)\e(B)
         (?\e$(3"m\e(B . ?\e$,1O*\e(B)
         (?\e$(3"n\e(B . ?\e$,1O+\e(B)
         (?\e$(3"o\e(B . ?\e$,1O,\e(B)
         (?\e$(3"p\e(B . ?\e$,1O-\e(B)
         (?\e$(3"q\e(B . ?\e$,1O.\e(B)
         (?\e$(3"s\e(B . ?\e$,1O0\e(B)
         (?\e$(3"u\e(B . ?\e$,1O2\e(B)
         (?\e$(3"v\e(B . ?\e$,1O3\e(B)
         (?\e$(3"w\e(B . ?\e$,1O4\e(B)
         (?\e$(3"x\e(B . ?\e$,1O5\e(B)
         (?\e$(3"{\e(B . ?\e$,1O8\e(B)
         (?\e$(3"|\e(B . ?\e$,1O9\e(B)
         (?\e$(3"}\e(B . ?\e$,1O:\e(B)
         (?\e$(3"~\e(B . ?\e$,1O;\e(B)
         (?\e$(3#!\e(B . ?\e$,1O<\e(B)
         (?\e$(3#"\e(B . ?\e$,1O=\e(B)
         (?\e$(3##\e(B . ?\e$,1O>\e(B)
         (?\e$(3#%\e(B . ?\e$,1O@\e(B)
         (?\e$(3#'\e(B . ?\e$,1OB\e(B)
         (?\e$(3#(\e(B . ?\e$,1OC\e(B)
         (?\e$(3#)\e(B . ?\e$,1OD\e(B)
         (?\e$(3#*\e(B . ?\e$,1OE\e(B)
         (?\e$(3#-\e(B . ?\e$,1OH\e(B)
         (?\e$(3#.\e(B . ?\e$,1OI\e(B)
         (?\e$(3#/\e(B . ?\e$,1OJ\e(B)
         (?\e$(3#0\e(B . ?\e$,1OK\e(B)
         (?\e$(3#1\e(B . ?\e$,1OL\e(B)
         (?\e$(3#2\e(B . ?\e$,1OM\e(B)
         (?\e$(3#3\e(B . ?\e$,1ON\e(B)
         (?\e$(3#5\e(B . ?\e$,1OP\e(B)
         (?\e$(3#6\e(B . ?\e$,1OQ\e(B)
         (?\e$(3#7\e(B . ?\e$,1OR\e(B)
         (?\e$(3#8\e(B . ?\e$,1OS\e(B)
         (?\e$(3#9\e(B . ?\e$,1OT\e(B)
         (?\e$(3#:\e(B . ?\e$,1OU\e(B)
         (?\e$(3#;\e(B . ?\e$,1OV\e(B)
         (?\e$(3#=\e(B . ?\e$,1OX\e(B)
         (?\e$(3#>\e(B . ?\e$,1OY\e(B)
         (?\e$(3#?\e(B . ?\e$,1OZ\e(B)
         (?\e$(3#@\e(B . ?\e$,1O[\e(B)
         (?\e$(3#A\e(B . ?\e$,1O\\e(B)
         (?\e$(3#B\e(B . ?\e$,1O]\e(B)
         (?\e$(3#C\e(B . ?\e$,1O^\e(B)
         (?\e$(3#D\e(B . ?\e$,1O_\e(B)
         (?\e$(3#E\e(B . ?\e$,1O`\e(B)
         (?\e$(3#F\e(B . ?\e$,1Oa\e(B)
         (?\e$(3#G\e(B . ?\e$,1Ob\e(B)
         (?\e$(3#H\e(B . ?\e$,1Oc\e(B)
         (?\e$(3#I\e(B . ?\e$,1Od\e(B)
         (?\e$(3#J\e(B . ?\e$,1Oe\e(B)
         (?\e$(3#K\e(B . ?\e$,1Of\e(B)
         (?\e$(3#L\e(B . ?\e$,1Og\e(B)
         (?\e$(3#M\e(B . ?\e$,1Oh\e(B)
         (?\e$(3#N\e(B . ?\e$,1Oi\e(B)
         (?\e$(3#O\e(B . ?\e$,1Oj\e(B)
         (?\e$(3#P\e(B . ?\e$,1Ok\e(B)
         (?\e$(3#Q\e(B . ?\e$,1Ol\e(B)
         (?\e$(3#R\e(B . ?\e$,1Om\e(B)
         (?\e$(3#S\e(B . ?\e$,1On\e(B)
         (?\e$(3#U\e(B . ?\e$,1Op\e(B)
         (?\e$(3#V\e(B . ?\e$,1Oq\e(B)
         (?\e$(3#W\e(B . ?\e$,1Or\e(B)
         (?\e$(3#X\e(B . ?\e$,1Os\e(B)
         (?\e$(3#Y\e(B . ?\e$,1Ot\e(B)
         (?\e$(3#Z\e(B . ?\e$,1Ou\e(B)
         (?\e$(3#[\e(B . ?\e$,1Ov\e(B)
         (?\e$(3#\\e(B . ?\e$,1Ow\e(B)
         (?\e$(3#]\e(B . ?\e$,1Ox\e(B)
         (?\e$(3#^\e(B . ?\e$,1Oy\e(B)
         (?\e$(3#_\e(B . ?\e$,1Oz\e(B)
         (?\e$(3#`\e(B . ?\e$,1O{\e(B)
         (?\e$(3#a\e(B . ?\e$,1O|\e(B)
         (?\e$(3#b\e(B . ?\e$,1O}\e(B)
         (?\e$(3#c\e(B . ?\e$,1O~\e(B)
         (?\e$(3#d\e(B . ?\e$,1O\7f\e(B)
         (?\e$(3#e\e(B . ?\e$,1P \e(B)
         (?\e$(3#f\e(B . ?\e$,1P!\e(B)
         (?\e$(3#g\e(B . ?\e$,1P"\e(B)
         (?\e$(3#h\e(B . ?\e$,1P#\e(B)
         (?\e$(3#i\e(B . ?\e$,1P$\e(B)
         (?\e$(3#j\e(B . ?\e$,1P%\e(B)
         (?\e$(3#k\e(B . ?\e$,1P&\e(B)
         (?\e$(3#l\e(B . ?\e$,1P'\e(B)
         (?\e$(3#m\e(B . ?\e$,1P(\e(B)
         (?\e$(3#n\e(B . ?\e$,1P)\e(B)
         (?\e$(3#o\e(B . ?\e$,1P*\e(B)
         (?\e$(3#p\e(B . ?\e$,1P+\e(B)
         (?\e$(3#q\e(B . ?\e$,1P,\e(B)
         (?\e$(3#r\e(B . ?\e$,1P-\e(B)
         (?\e$(3#s\e(B . ?\e$,1P.\e(B)
         (?\e$(3#u\e(B . ?\e$,1P0\e(B)
         (?\e$(3#w\e(B . ?\e$,1P2\e(B)
         (?\e$(3#x\e(B . ?\e$,1P3\e(B)
         (?\e$(3#y\e(B . ?\e$,1P4\e(B)
         (?\e$(3#z\e(B . ?\e$,1P5\e(B)
         (?\e$(3#}\e(B . ?\e$,1P8\e(B)
         (?\e$(3#~\e(B . ?\e$,1P9\e(B)
         (?\e$(3$!\e(B . ?\e$,1P:\e(B)
         (?\e$(3$"\e(B . ?\e$,1P;\e(B)
         (?\e$(3$#\e(B . ?\e$,1P<\e(B)
         (?\e$(3$$\e(B . ?\e$,1P=\e(B)
         (?\e$(3$%\e(B . ?\e$,1P>\e(B)
         (?\e$(3$'\e(B . ?\e$,1P@\e(B)
         (?\e$(3$(\e(B . ?\e$,1PA\e(B)
         (?\e$(3$)\e(B . ?\e$,1PB\e(B)
         (?\e$(3$*\e(B . ?\e$,1PC\e(B)
         (?\e$(3$+\e(B . ?\e$,1PD\e(B)
         (?\e$(3$,\e(B . ?\e$,1PE\e(B)
         (?\e$(3$-\e(B . ?\e$,1PF\e(B)
         (?\e$(3$.\e(B . ?\e$,1PG\e(B)
         (?\e$(3$/\e(B . ?\e$,1PH\e(B)
         (?\e$(3$0\e(B . ?\e$,1PI\e(B)
         (?\e$(3$1\e(B . ?\e$,1PJ\e(B)
         (?\e$(3$2\e(B . ?\e$,1PK\e(B)
         (?\e$(3$3\e(B . ?\e$,1PL\e(B)
         (?\e$(3$4\e(B . ?\e$,1PM\e(B)
         (?\e$(3$5\e(B . ?\e$,1PN\e(B)
         (?\e$(3$6\e(B . ?\e$,1PO\e(B)
         (?\e$(3$7\e(B . ?\e$,1PP\e(B)
         (?\e$(3$8\e(B . ?\e$,1PQ\e(B)
         (?\e$(3$9\e(B . ?\e$,1PR\e(B)
         (?\e$(3$:\e(B . ?\e$,1PS\e(B)
         (?\e$(3$;\e(B . ?\e$,1PT\e(B)
         (?\e$(3$<\e(B . ?\e$,1PU\e(B)
         (?\e$(3$=\e(B . ?\e$,1PV\e(B)
         (?\e$(3$>\e(B . ?\e$,1PW\e(B)
         (?\e$(3$?\e(B . ?\e$,1PX\e(B)
         (?\e$(3$@\e(B . ?\e$,1PY\e(B)
         (?\e$(3$A\e(B . ?\e$,1PZ\e(B)
         (?\e$(3$B\e(B . ?\e$,1P[\e(B)
         (?\e$(3$C\e(B . ?\e$,1P\\e(B)
         (?\e$(3$D\e(B . ?\e$,1P]\e(B)
         (?\e$(3$E\e(B . ?\e$,1P^\e(B)
         (?\e$(3$F\e(B . ?\e$,1P_\e(B)
         (?\e$(3$G\e(B . ?\e$,1P`\e(B)
         (?\e$(3$H\e(B . ?\e$,1Pa\e(B)
         (?\e$(3$I\e(B . ?\e$,1Pb\e(B)
         (?\e$(3$J\e(B . ?\e$,1Pc\e(B)
         (?\e$(3$K\e(B . ?\e$,1Pd\e(B)
         (?\e$(3$L\e(B . ?\e$,1Pe\e(B)
         (?\e$(3$M\e(B . ?\e$,1Pf\e(B)
         (?\e$(3$O\e(B . ?\e$,1Ph\e(B)
         (?\e$(3$P\e(B . ?\e$,1Pi\e(B)
         (?\e$(3$Q\e(B . ?\e$,1Pj\e(B)
         (?\e$(3$R\e(B . ?\e$,1Pk\e(B)
         (?\e$(3$S\e(B . ?\e$,1Pl\e(B)
         (?\e$(3$T\e(B . ?\e$,1Pm\e(B)
         (?\e$(3$U\e(B . ?\e$,1Pn\e(B)
         (?\e$(3$V\e(B . ?\e$,1Po\e(B)
         (?\e$(3$W\e(B . ?\e$,1Pp\e(B)
         (?\e$(3$X\e(B . ?\e$,1Pq\e(B)
         (?\e$(3$Y\e(B . ?\e$,1Pr\e(B)
         (?\e$(3$Z\e(B . ?\e$,1Ps\e(B)
         (?\e$(3$[\e(B . ?\e$,1Pt\e(B)
         (?\e$(3$\\e(B . ?\e$,1Pu\e(B)
         (?\e$(3$]\e(B . ?\e$,1Pv\e(B)
         (?\e$(3$^\e(B . ?\e$,1Pw\e(B)
         (?\e$(3$_\e(B . ?\e$,1Px\e(B)
         (?\e$(3$`\e(B . ?\e$,1Py\e(B)
         (?\e$(3$a\e(B . ?\e$,1Pz\e(B)
         (?\e$(3$h\e(B . ?\e$,1Q!\e(B)
         (?\e$(3$i\e(B . ?\e$,1Q"\e(B)
         (?\e$(3$j\e(B . ?\e$,1Q#\e(B)
         (?\e$(3$k\e(B . ?\e$,1Q$\e(B)
         (?\e$(3$l\e(B . ?\e$,1Q%\e(B)
         (?\e$(3$m\e(B . ?\e$,1Q&\e(B)
         (?\e$(3$n\e(B . ?\e$,1Q'\e(B)
         (?\e$(3$o\e(B . ?\e$,1Q(\e(B)
         (?\e$(3$p\e(B . ?\e$,1Q)\e(B)
         (?\e$(3$q\e(B . ?\e$,1Q*\e(B)
         (?\e$(3$r\e(B . ?\e$,1Q+\e(B)
         (?\e$(3$s\e(B . ?\e$,1Q,\e(B)
         (?\e$(3$t\e(B . ?\e$,1Q-\e(B)
         (?\e$(3$u\e(B . ?\e$,1Q.\e(B)
         (?\e$(3$v\e(B . ?\e$,1Q/\e(B)
         (?\e$(3$w\e(B . ?\e$,1Q0\e(B)
         (?\e$(3$x\e(B . ?\e$,1Q1\e(B)
         (?\e$(3$y\e(B . ?\e$,1Q2\e(B)
         (?\e$(3$z\e(B . ?\e$,1Q3\e(B)
         (?\e$(3${\e(B . ?\e$,1Q4\e(B)
         (?\e$(3$|\e(B . ?\e$,1Q5\e(B)
         (?\e$(3$}\e(B . ?\e$,1Q6\e(B)
         (?\e$(3$~\e(B . ?\e$,1Q7\e(B)
         (?\e$(3%!\e(B . ?\e$,1Q8\e(B)
         (?\e$(3%"\e(B . ?\e$,1Q9\e(B)
         (?\e$(3%#\e(B . ?\e$,1Q:\e(B)
         (?\e$(3%$\e(B . ?\e$,1Q;\e(B)
         (?\e$(3%%\e(B . ?\e$,1Q<\e(B)))

      (indian-is13194
       '((?\e(5!\e(B . ?\e$,15A\e(B)
         (?\e(5"\e(B . ?\e$,15B\e(B)
         (?\e(5#\e(B . ?\e$,15C\e(B)
         (?\e(5$\e(B . ?\e$,15E\e(B)
         (?\e(5%\e(B . ?\e$,15F\e(B)
         (?\e(5&\e(B . ?\e$,15G\e(B)
         (?\e(5'\e(B . ?\e$,15H\e(B)
         (?\e(5(\e(B . ?\e$,15I\e(B)
         (?\e(5)\e(B . ?\e$,15J\e(B)
         (?\e(5*\e(B . ?\e$,15K\e(B)
         (?\e(5+\e(B . ?\e$,15N\e(B)
         (?\e(5,\e(B . ?\e$,15O\e(B)
         (?\e(5-\e(B . ?\e$,15P\e(B)
         (?\e(5.\e(B . ?\e$,15M\e(B)
         (?\e(5/\e(B . ?\e$,15R\e(B)
         (?\e(50\e(B . ?\e$,15S\e(B)
         (?\e(51\e(B . ?\e$,15T\e(B)
         (?\e(52\e(B . ?\e$,15M\e(B)
         (?\e(53\e(B . ?\e$,15U\e(B)
         (?\e(54\e(B . ?\e$,15V\e(B)
         (?\e(55\e(B . ?\e$,15W\e(B)
         (?\e(56\e(B . ?\e$,15X\e(B)
         (?\e(57\e(B . ?\e$,15Y\e(B)
         (?\e(58\e(B . ?\e$,15Z\e(B)
         (?\e(59\e(B . ?\e$,15[\e(B)
         (?\e(5:\e(B . ?\e$,15\\e(B)
         (?\e(5;\e(B . ?\e$,15]\e(B)
         (?\e(5<\e(B . ?\e$,15^\e(B)
         (?\e(5=\e(B . ?\e$,15_\e(B)
         (?\e(5>\e(B . ?\e$,15`\e(B)
         (?\e(5?\e(B . ?\e$,15a\e(B)
         (?\e(5@\e(B . ?\e$,15b\e(B)
         (?\e(5A\e(B . ?\e$,15c\e(B)
         (?\e(5B\e(B . ?\e$,15d\e(B)
         (?\e(5C\e(B . ?\e$,15e\e(B)
         (?\e(5D\e(B . ?\e$,15f\e(B)
         (?\e(5E\e(B . ?\e$,15g\e(B)
         (?\e(5F\e(B . ?\e$,15h\e(B)
         (?\e(5G\e(B . ?\e$,15i\e(B)
         (?\e(5H\e(B . ?\e$,15j\e(B)
         (?\e(5I\e(B . ?\e$,15k\e(B)
         (?\e(5J\e(B . ?\e$,15l\e(B)
         (?\e(5K\e(B . ?\e$,15m\e(B)
         (?\e(5L\e(B . ?\e$,15n\e(B)
         (?\e(5M\e(B . ?\e$,15o\e(B)
         (?\e(5N\e(B . ?\e$,16?\e(B)
         (?\e(5O\e(B . ?\e$,15p\e(B)
         (?\e(5P\e(B . ?\e$,15q\e(B)
         (?\e(5Q\e(B . ?\e$,15r\e(B)
         (?\e(5R\e(B . ?\e$,15s\e(B)
         (?\e(5S\e(B . ?\e$,15t\e(B)
         (?\e(5T\e(B . ?\e$,15u\e(B)
         (?\e(5U\e(B . ?\e$,15v\e(B)
         (?\e(5V\e(B . ?\e$,15w\e(B)
         (?\e(5W\e(B . ?\e$,15x\e(B)
         (?\e(5X\e(B . ?\e$,15y\e(B)
         (?\e(5Z\e(B . ?\e$,15~\e(B)
         (?\e(5[\e(B . ?\e$,15\7f\e(B)
         (?\e(5\\e(B . ?\e$,16 \e(B)
         (?\e(5]\e(B . ?\e$,16!\e(B)
         (?\e(5^\e(B . ?\e$,16"\e(B)
         (?\e(5_\e(B . ?\e$,16#\e(B)
         (?\e(5`\e(B . ?\e$,16&\e(B)
         (?\e(5a\e(B . ?\e$,16'\e(B)
         (?\e(5b\e(B . ?\e$,16(\e(B)
         (?\e(5c\e(B . ?\e$,16%\e(B)
         (?\e(5d\e(B . ?\e$,16*\e(B)
         (?\e(5e\e(B . ?\e$,16+\e(B)
         (?\e(5f\e(B . ?\e$,16,\e(B)
         (?\e(5g\e(B . ?\e$,16)\e(B)
         (?\e(5h\e(B . ?\e$,16-\e(B)
         (?\e(5i\e(B . ?\e$,15|\e(B)
         (?\e(5j\e(B . ?\e$,16D\e(B)
         (?\e(5q\e(B . ?\e$,16F\e(B)
         (?\e(5r\e(B . ?\e$,16G\e(B)
         (?\e(5s\e(B . ?\e$,16H\e(B)
         (?\e(5t\e(B . ?\e$,16I\e(B)
         (?\e(5u\e(B . ?\e$,16J\e(B)
         (?\e(5v\e(B . ?\e$,16K\e(B)
         (?\e(5w\e(B . ?\e$,16L\e(B)
         (?\e(5x\e(B . ?\e$,16M\e(B)
         (?\e(5y\e(B . ?\e$,16N\e(B)
         (?\e(5z\e(B . ?\e$,16O\e(B)))

      (katakana-jisx0201
       '((?\e(I!\e(B . ?\e$,3sa\e(B)
         (?\\e(I"\e(B . ?\\e$,3sb\e(B)
         (?\\e(I#\e(B . ?\\e$,3sc\e(B)
         (?\e(I$\e(B . ?\e$,3sd\e(B)
         (?\e(I%\e(B . ?\e$,3se\e(B)
         (?\e(I&\e(B . ?\e$,3sf\e(B)
         (?\e(I'\e(B . ?\e$,3sg\e(B)
         (?\e(I(\e(B . ?\e$,3sh\e(B)
         (?\e(I)\e(B . ?\e$,3si\e(B)
         (?\e(I*\e(B . ?\e$,3sj\e(B)
         (?\e(I+\e(B . ?\e$,3sk\e(B)
         (?\e(I,\e(B . ?\e$,3sl\e(B)
         (?\e(I-\e(B . ?\e$,3sm\e(B)
         (?\e(I.\e(B . ?\e$,3sn\e(B)
         (?\e(I/\e(B . ?\e$,3so\e(B)
         (?\e(I0\e(B . ?\e$,3sp\e(B)
         (?\e(I1\e(B . ?\e$,3sq\e(B)
         (?\e(I2\e(B . ?\e$,3sr\e(B)
         (?\e(I3\e(B . ?\e$,3ss\e(B)
         (?\e(I4\e(B . ?\e$,3st\e(B)
         (?\e(I5\e(B . ?\e$,3su\e(B)
         (?\e(I6\e(B . ?\e$,3sv\e(B)
         (?\e(I7\e(B . ?\e$,3sw\e(B)
         (?\e(I8\e(B . ?\e$,3sx\e(B)
         (?\e(I9\e(B . ?\e$,3sy\e(B)
         (?\e(I:\e(B . ?\e$,3sz\e(B)
         (?\e(I;\e(B . ?\e$,3s{\e(B)
         (?\e(I<\e(B . ?\e$,3s|\e(B)
         (?\e(I=\e(B . ?\e$,3s}\e(B)
         (?\e(I>\e(B . ?\e$,3s~\e(B)
         (?\e(I?\e(B . ?\e$,3s\7f\e(B)
         (?\e(I@\e(B . ?\e$,3t \e(B)
         (?\e(IA\e(B . ?\e$,3t!\e(B)
         (?\e(IB\e(B . ?\e$,3t"\e(B)
         (?\e(IC\e(B . ?\e$,3t#\e(B)
         (?\e(ID\e(B . ?\e$,3t$\e(B)
         (?\e(IE\e(B . ?\e$,3t%\e(B)
         (?\e(IF\e(B . ?\e$,3t&\e(B)
         (?\e(IG\e(B . ?\e$,3t'\e(B)
         (?\e(IH\e(B . ?\e$,3t(\e(B)
         (?\e(II\e(B . ?\e$,3t)\e(B)
         (?\e(IJ\e(B . ?\e$,3t*\e(B)
         (?\e(IK\e(B . ?\e$,3t+\e(B)
         (?\e(IL\e(B . ?\e$,3t,\e(B)
         (?\e(IM\e(B . ?\e$,3t-\e(B)
         (?\e(IN\e(B . ?\e$,3t.\e(B)
         (?\e(IO\e(B . ?\e$,3t/\e(B)
         (?\e(IP\e(B . ?\e$,3t0\e(B)
         (?\e(IQ\e(B . ?\e$,3t1\e(B)
         (?\e(IR\e(B . ?\e$,3t2\e(B)
         (?\e(IS\e(B . ?\e$,3t3\e(B)
         (?\e(IT\e(B . ?\e$,3t4\e(B)
         (?\e(IU\e(B . ?\e$,3t5\e(B)
         (?\e(IV\e(B . ?\e$,3t6\e(B)
         (?\e(IW\e(B . ?\e$,3t7\e(B)
         (?\e(IX\e(B . ?\e$,3t8\e(B)
         (?\e(IY\e(B . ?\e$,3t9\e(B)
         (?\e(IZ\e(B . ?\e$,3t:\e(B)
         (?\e(I[\e(B . ?\e$,3t;\e(B)
         (?\e(I\\e(B . ?\e$,3t<\e(B)
         (?\e(I]\e(B . ?\e$,3t=\e(B)
         (?\e(I^\e(B . ?\e$,3t>\e(B)
         (?\e(I_\e(B . ?\e$,3t?\e(B)))

      (chinese-sisheng
       '((?\e(0!\e(B . ?\e$,1 !\e(B)
         (?\e(0"\e(B . ?\e,Aa\e(B)
         (?\e(0#\e(B . ?\e$,1".\e(B)
         (?\e(0$\e(B . ?\e,A`\e(B)
         (?\e(0%\e(B . ?\e$,1 3\e(B)
         (?\e(0&\e(B . ?\e,Ai\e(B)
         (?\e(0'\e(B . ?\e$,1 ;\e(B)
         (?\e(0(\e(B . ?\e,Ah\e(B)
         (?\e(0)\e(B . ?\e$,1 K\e(B)
         (?\e(0*\e(B . ?\e,Am\e(B)
         (?\e(0+\e(B . ?\e$,1"0\e(B)
         (?\e(0,\e(B . ?\e,Al\e(B)
         (?\e(0-\e(B . ?\e$,1 m\e(B)
         (?\e(0.\e(B . ?\e,As\e(B)
         (?\e(0/\e(B . ?\e$,1"2\e(B)
         (?\e(00\e(B . ?\e,Ar\e(B)
         (?\e(01\e(B . ?\e$,1!+\e(B)
         (?\e(02\e(B . ?\e,Az\e(B)
         (?\e(03\e(B . ?\e$,1"4\e(B)
         (?\e(04\e(B . ?\e,Ay\e(B)
         (?\e(05\e(B . ?\e$,1"6\e(B)
         (?\e(06\e(B . ?\e$,1"8\e(B)
         (?\e(07\e(B . ?\e$,1":\e(B)
         (?\e(08\e(B . ?\e$,1"<\e(B)
         (?\e(09\e(B . ?\e,A|\e(B)
         (?\e(0:\e(B . ?\e,Aj\e(B)
         (?\e(0<\e(B . ?\e$,1m\7f\e(B)
         (?\e(0=\e(B . ?\e$,1 d\e(B)
         (?\e(0>\e(B . ?\e$,1 h\e(B)
         (?\e(0?\e(B . ?\e$,1"Y\e(B)
         (?\e(0A\e(B . ?\e$,1$i\e(B)
         (?\e(0B\e(B . ?\e$,1$j\e(B)
         (?\e(0C\e(B . ?\e$,1$g\e(B)
         (?\e(0D\e(B . ?\e$,1$k\e(B)
         (?\e(0E\e(B . ?\e$,2@%\e(B)
         (?\e(0F\e(B . ?\e$,2@&\e(B)
         (?\e(0G\e(B . ?\e$,2@'\e(B)
         (?\e(0H\e(B . ?\e$,2@(\e(B)
         (?\e(0I\e(B . ?\e$,2@)\e(B)
         (?\e(0J\e(B . ?\e$,2@*\e(B)
         (?\e(0K\e(B . ?\e$,2@+\e(B)
         (?\e(0L\e(B . ?\e$,2@,\e(B)
         (?\e(0M\e(B . ?\e$,2@-\e(B)
         (?\e(0N\e(B . ?\e$,2@.\e(B)
         (?\e(0O\e(B . ?\e$,2@/\e(B)
         (?\e(0P\e(B . ?\e$,2@0\e(B)
         (?\e(0Q\e(B . ?\e$,2@1\e(B)
         (?\e(0R\e(B . ?\e$,2@2\e(B)
         (?\e(0S\e(B . ?\e$,2@3\e(B)
         (?\e(0T\e(B . ?\e$,2@4\e(B)
         (?\e(0U\e(B . ?\e$,2@5\e(B)
         (?\e(0V\e(B . ?\e$,2@6\e(B)
         (?\e(0W\e(B . ?\e$,2@7\e(B)
         (?\e(0X\e(B . ?\e$,2@8\e(B)
         (?\e(0Y\e(B . ?\e$,2@9\e(B)
         (?\e(0Z\e(B . ?\e$,2@:\e(B)
         (?\e(0[\e(B . ?\e$,2@;\e(B)
         (?\e(0\\e(B . ?\e$,2@<\e(B)
         (?\e(0]\e(B . ?\e$,2@=\e(B)
         (?\e(0^\e(B . ?\e$,2@>\e(B)
         (?\e(0_\e(B . ?\e$,2@?\e(B)
         (?\e(0`\e(B . ?\e$,2@@\e(B)
         (?\e(0a\e(B . ?\e$,2@A\e(B)
         (?\e(0b\e(B . ?\e$,2@B\e(B)
         (?\e(0c\e(B . ?\e$,2@C\e(B)
         (?\e(0d\e(B . ?\e$,2@D\e(B)
         (?\e(0e\e(B . ?\e$,2@E\e(B)
         (?\e(0f\e(B . ?\e$,2@F\e(B)
         (?\e(0g\e(B . ?\e$,2@G\e(B)
         (?\e(0h\e(B . ?\e$,2@H\e(B)
         (?\e(0i\e(B . ?\e$,2@I\e(B)))

      (lao
       '((?\e(1!\e(B . ?\e$,1D!\e(B)
         (?\e(1"\e(B . ?\e$,1D"\e(B)
         (?\e(1$\e(B . ?\e$,1D$\e(B)
         (?\e(1'\e(B . ?\e$,1D'\e(B)
         (?\e(1(\e(B . ?\e$,1D(\e(B)
         (?\e(1*\e(B . ?\e$,1D*\e(B)
         (?\e(1-\e(B . ?\e$,1D-\e(B)
         (?\e(14\e(B . ?\e$,1D4\e(B)
         (?\e(15\e(B . ?\e$,1D5\e(B)
         (?\e(16\e(B . ?\e$,1D6\e(B)
         (?\e(17\e(B . ?\e$,1D7\e(B)
         (?\e(19\e(B . ?\e$,1D9\e(B)
         (?\e(1:\e(B . ?\e$,1D:\e(B)
         (?\e(1;\e(B . ?\e$,1D;\e(B)
         (?\e(1<\e(B . ?\e$,1D<\e(B)
         (?\e(1=\e(B . ?\e$,1D=\e(B)
         (?\e(1>\e(B . ?\e$,1D>\e(B)
         (?\e(1?\e(B . ?\e$,1D?\e(B)
         (?\e(1A\e(B . ?\e$,1DA\e(B)
         (?\e(1B\e(B . ?\e$,1DB\e(B)
         (?\e(1C\e(B . ?\e$,1DC\e(B)
         (?\e(1E\e(B . ?\e$,1DE\e(B)
         (?\e(1G\e(B . ?\e$,1DG\e(B)
         (?\e(1J\e(B . ?\e$,1DJ\e(B)
         (?\e(1K\e(B . ?\e$,1DK\e(B)
         (?\e(1M\e(B . ?\e$,1DM\e(B)
         (?\e(1N\e(B . ?\e$,1DN\e(B)
         (?\e(1O\e(B . ?\e$,1DO\e(B)
         (?\e(1P\e(B . ?\e$,1DP\e(B)
         (?\e(1Q\e(B . ?\e$,1DQ\e(B)
         (?\e(1R\e(B . ?\e$,1DR\e(B)
         (?\e(1S\e(B . ?\e$,1DS\e(B)
         (?\e(1T\e(B . ?\e$,1DT\e(B)
         (?\e(1U\e(B . ?\e$,1DU\e(B)
         (?\e(1V\e(B . ?\e$,1DV\e(B)
         (?\e(1W\e(B . ?\e$,1DW\e(B)
         (?\e(1X\e(B . ?\e$,1DX\e(B)
         (?\e(1Y\e(B . ?\e$,1DY\e(B)
         (?\e(1[\e(B . ?\e$,1D[\e(B)
         (?\e(1\\e(B . ?\e$,1D\\e(B)
         (?\e(1]\e(B . ?\e$,1D]\e(B)
         (?\e(1`\e(B . ?\e$,1D`\e(B)
         (?\e(1a\e(B . ?\e$,1Da\e(B)
         (?\e(1b\e(B . ?\e$,1Db\e(B)
         (?\e(1c\e(B . ?\e$,1Dc\e(B)
         (?\e(1d\e(B . ?\e$,1Dd\e(B)
         (?\e(1f\e(B . ?\e$,1Df\e(B)
         (?\e(1h\e(B . ?\e$,1Dh\e(B)
         (?\e(1i\e(B . ?\e$,1Di\e(B)
         (?\e(1j\e(B . ?\e$,1Dj\e(B)
         (?\e(1k\e(B . ?\e$,1Dk\e(B)
         (?\e(1l\e(B . ?\e$,1Dl\e(B)
         (?\e(1m\e(B . ?\e$,1Dm\e(B)
         (?\e(1p\e(B . ?\e$,1Dp\e(B)
         (?\e(1q\e(B . ?\e$,1Dq\e(B)
         (?\e(1r\e(B . ?\e$,1Dr\e(B)
         (?\e(1s\e(B . ?\e$,1Ds\e(B)
         (?\e(1t\e(B . ?\e$,1Dt\e(B)
         (?\e(1u\e(B . ?\e$,1Du\e(B)
         (?\e(1v\e(B . ?\e$,1Dv\e(B)
         (?\e(1w\e(B . ?\e$,1Dw\e(B)
         (?\e(1x\e(B . ?\e$,1Dx\e(B)
         (?\e(1y\e(B . ?\e$,1Dy\e(B)
         (?\e(1|\e(B . ?\e$,1D|\e(B)
         (?\e(1}\e(B . ?\e$,1D}\e(B))))
  (let ((table (make-char-table 'safe-chars))
        safe-charsets)
    (dolist (cs '(vietnamese-viscii lao chinese-sisheng ipa
                  katakana-jisx0201 thai-tis620 tibetan-iso-8bit
                  indian-is13194 ethiopic))
      ;; These tables could be used as translation-table-for-encode by
      ;; the relevant coding systems.
      (let ((encode-translator
             (if (coding-system-p cs)
                 (set (intern (format "ucs-%s-encode-table" cs))
                      (make-translation-table)))))
        (dolist (pair (symbol-value cs))
          (aset ucs-mule-to-mule-unicode (car pair) (cdr pair))
          (if encode-translator
              (aset encode-translator (cdr pair) (car pair))))
        (if (charsetp cs)
            (push cs safe-charsets)
          (setq safe-charsets
                (append (delq 'ascii (coding-system-get cs 'safe-charsets))
                        safe-charsets)))))
    (dolist (c safe-charsets)
      (aset table (make-char c) t))
    (coding-system-put 'mule-utf-8 'safe-charsets
                       (append (coding-system-get 'mule-utf-8 'safe-charsets)
                               safe-charsets))
    (register-char-codings 'mule-utf-8 table)))

(provide 'ucs-tables)

;;; arch-tag: b497e22b-7fe1-486a-9352-e2d7f7d76a76
;;; ucs-tables.el ends here