--- /dev/null
+;;; 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 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 2, 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., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; This file provides tables mapping between Unicode numbers and
+;; emacs-mule characters from the iso8859 charsets. These are used to
+;; construct other mappings between the Mule iso8859 charsets and the
+;; emacs-unicode charsets and also a table that unifies iso8859
+;; characters using a single charset as far as possible. These tables
+;; can be 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 into Latin-1 on encoding.
+
+;;; Code:
+
+(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-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-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-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-latin-1-unification-table (make-translation-table)
+ "Translation table from other ISO-8859 characters to Latin-1.
+This maps Emacs characters from the non-Latin-1
+...-iso8859-... charsets to their equivalent Latin-1 characters, when
+they have an equivalent. E.g. capital A with diaresis is code point
+0xC4 in both Latin-1 and Latin-2, so this table maps Emacs character
+0x944 to 0x8c4. This is a many-to-one mapping.")
+
+(defcustom ucs-preferred-8859-set 'latin-iso8859-1
+ "Preferred charset to use for the `ucs-latin-1-unification-table'
+target. Only a Latin-N set makes sense. You might want to change
+this from the default latin-iso8859-1 to match your preferred coding
+system in a non-Latin-1 environment."
+ :type '(choice (const latin-iso8859-15)
+ (const latin-iso8859-14)
+ (const latin-iso8859-9)
+ (const latin-iso8859-5)
+ (const latin-iso8859-4)
+ (const latin-iso8859-3)
+ (const latin-iso8859-2)
+ (const latin-iso8859-1)))
+
+;; 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
+ (?\\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
+ (?\\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
+ (?\\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
+ (?\\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)))
+ )
+
+ (dolist (cs (list ucs-8859-15-alist ucs-8859-14-alist
+ ucs-8859-9-alist ucs-8859-8-alist ucs-8859-7-alist
+ ucs-8859-6-alist ucs-8859-5-alist ucs-8859-4-alist
+ ucs-8859-3-alist ucs-8859-2-alist
+ (or (cdr-safe
+ (assq ucs-preferred-8859-set
+ '((latin-iso8859-15 . ucs-8859-15-alist)
+ (latin-iso8859-14 . ucs-8859-14-alist)
+ (latin-iso8859-9 . ucs-8859-9-alist)
+ (latin-iso8859-5 . ucs-8859-5-alist)
+ (latin-iso8859-4 . ucs-8859-4-alist)
+ (latin-iso8859-3 . ucs-8859-3-alist)
+ (latin-iso8859-2 . ucs-8859-2-alist))))
+ ucs-8859-1-alist)))
+ (dolist (pair cs)
+ (aset ucs-mule-8859-to-ucs-table (car pair) (cdr pair))
+ (aset ucs-ucs-to-mule-8859-table (cdr pair) (car pair))
+ (aset ucs-mule-8859-to-mule-unicode
+ (car pair) (decode-char 'ucs (cdr pair)))
+ (aset ucs-mule-unicode-to-mule-8859
+ (decode-char 'ucs (cdr pair)) (car pair))))
+
+ (map-char-table
+ (lambda (c cu)
+ (when (and cu (< cu 256))
+ (aset ucs-latin-1-unification-table
+ c (make-char 'latin-iso8859-1 (- cu 128)))))
+ ucs-mule-8859-to-ucs-table)
+ )
+
+;; Register them for use in CCL.
+(define-translation-table 'ucs-mule-8859-to-mule-unicode
+ ucs-mule-8859-to-mule-unicode)
+(define-translation-table 'ucs-latin-1-unification-table
+ ucs-latin-1-unification-table)
+
+(defun ucs-translate-region (beg end table)
+ (save-restriction
+ (narrow-to-region beg end)
+ (goto-char (point-min))
+ (while (not (eobp))
+ (let* ((c (char-after))
+ (c2 (aref table c)))
+ (if c2
+ (progn
+ (delete-char 1)
+ (insert c2))
+ (forward-char))))))
+
+(defun ucs-unify-to-latin-1 (&optional arg)
+ "Re-set up the Latin-1 coding system to encode unified characters.
+When this is done, text encoded using the `iso-latin-1' coding system
+is first translated using the translation table
+`ucs-latin-1-unification-table'. This converts ISO-8859-N (N>1)
+characters to their Latin-1 equivalents when such equivalents exist.
+Thus a buffer which contains a Latin-2 \"small y with acute\" (code
+point 253) will be safely encoded to that code point since it occurs
+there in Latin-1. On the other hand, \"small t with cedilla\" does
+not occur in Latin-1 and so can't be safely encoded when this
+unification is done.
+
+With optional ARG, turn off such unification."
+ (if arg
+ (make-coding-system
+ 'iso-latin-1 2 ?1
+ "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)"
+ '(ascii latin-iso8859-1 nil nil
+ nil nil nil nil nil nil nil nil nil nil nil nil t)
+ `((safe-charsets ascii latin-iso8859-1)
+ (mime-charset . iso-8859-1)
+ (safe-chars . ucs-latin-1-unification-table)
+ (translation-table-for-encode . ,ucs-latin-1-unification-table)))
+ (make-coding-system
+ 'iso-latin-1 2 ?1
+ "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)"
+ '(ascii latin-iso8859-1 nil nil
+ nil nil nil nil nil nil nil nil nil nil nil nil t)
+ '((safe-charsets ascii latin-iso8859-1)
+ (mime-charset . iso-8859-1)))))
+
+(provide 'ucs-tables)
+
+;;; ucs-tables.el ends here
projects / emacs.git / commitdiff