diff lisp/mule/latin.el @ 4690:257b468bf2ca

Move the #'query-coding-region implementation to C. This is necessary because there is no reasonable way to access the corresponding mswindows-multibyte functionality from Lisp, and we need such functionality if we're going to have a reliable and portable #'query-coding-region implementation. However, this change doesn't yet provide #'query-coding-region for the mswindow-multibyte coding systems, there should be no functional differences between an XEmacs with this change and one without it. src/ChangeLog addition: 2009-09-19 Aidan Kehoe <kehoea@parhasard.net> Move the #'query-coding-region implementation to C. This is necessary because there is no reasonable way to access the corresponding mswindows-multibyte functionality from Lisp, and we need such functionality if we're going to have a reliable and portable #'query-coding-region implementation. However, this change doesn't yet provide #'query-coding-region for the mswindow-multibyte coding systems, there should be no functional differences between an XEmacs with this change and one without it. * mule-coding.c (struct fixed_width_coding_system): Add a new coding system type, fixed_width, and implement it. It uses the CCL infrastructure but has a much simpler creation API, and its own query_method, formerly in lisp/mule/mule-coding.el. * unicode.c: Move the Unicode query method implementation here from unicode.el. * lisp.h: Declare Fmake_coding_system_internal, Fcopy_range_table here. * intl-win32.c (complex_vars_of_intl_win32): Use Fmake_coding_system_internal, not Fmake_coding_system. * general-slots.h: Add Qsucceeded, Qunencodable, Qinvalid_sequence here. * file-coding.h (enum coding_system_variant): Add fixed_width_coding_system here. (struct coding_system_methods): Add query_method and query_lstream_method to the coding system methods. Provide flags for the query methods. Declare the default query method; initialise it correctly in INITIALIZE_CODING_SYSTEM_TYPE. * file-coding.c (default_query_method): New function, the default query method for coding systems that do not set it. Moved from coding.el. (make_coding_system_1): Accept new elements in PROPS in #'make-coding-system; aliases, a list of aliases; safe-chars and safe-charsets (these were previously accepted but not saved); and category. (Fmake_coding_system_internal): New function, what used to be #'make-coding-system--on Mule builds, we've now moved some of the functionality of this to Lisp. (Fcoding_system_canonical_name_p): Move this earlier in the file, since it's now called from within make_coding_system_1. (Fquery_coding_region): Move the implementation of this here, from coding.el. (complex_vars_of_file_coding): Call Fmake_coding_system_internal, not Fmake_coding_system; specify safe-charsets properties when we're a mule build. * extents.h (mouse_highlight_priority, Fset_extent_priority, Fset_extent_face, Fmap_extents): Make these available to other C files. lisp/ChangeLog addition: 2009-09-19 Aidan Kehoe <kehoea@parhasard.net> Move the #'query-coding-region implementation to C. * coding.el: Consolidate code that depends on the presence or absence of Mule at the end of this file. (default-query-coding-region, query-coding-region): Move these functions to C. (default-query-coding-region-safe-charset-skip-chars-map): Remove this variable, the corresponding C variable is Vdefault_query_coding_region_chartab_cache in file-coding.c. (query-coding-string): Update docstring to reflect actual multiple values, be more careful about not modifying a range table that we're currently mapping over. (encode-coding-char): Make the implementation of this simpler. (featurep 'mule): Autoload #'make-coding-system from mule/make-coding-system.el if we're a mule build; provide an appropriate compiler macro. Do various non-mule compatibility things if we're not a mule build. * update-elc.el (additional-dump-dependencies): Add mule/make-coding-system as a dump time dependency if we're a mule build. * unicode.el (ccl-encode-to-ucs-2): (decode-char): (encode-char): Move these earlier in the file, for the sake of some byte compile warnings. (unicode-query-coding-region): Move this to unicode.c * mule/make-coding-system.el: New file, not dumped. Contains the functionality to rework the arguments necessary for fixed-width coding systems, and contains the implementation of #'make-coding-system, which now calls #'make-coding-system-internal. * mule/vietnamese.el (viscii): * mule/latin.el (iso-8859-2): (windows-1250): (iso-8859-3): (iso-8859-4): (iso-8859-14): (iso-8859-15): (iso-8859-16): (iso-8859-9): (macintosh): (windows-1252): * mule/hebrew.el (iso-8859-8): * mule/greek.el (iso-8859-7): (windows-1253): * mule/cyrillic.el (iso-8859-5): (koi8-r): (koi8-u): (windows-1251): (alternativnyj): (koi8-ru): (koi8-t): (koi8-c): (koi8-o): * mule/arabic.el (iso-8859-6): (windows-1256): Move all these coding systems to being of type fixed-width, not of type CCL. This allows the distinct query-coding-region for them to be in C, something which will eventually allow us to implement query-coding-region for the mswindows-multibyte coding systems. * mule/general-late.el (posix-charset-to-coding-system-hash): Document why we're pre-emptively persuading the byte compiler that the ELC for this file needs to be written using escape-quoted. Call #'set-unicode-query-skip-chars-args, now the Unicode query-coding-region implementation is in C. * mule/thai-xtis.el (tis-620): Don't bother checking whether we're XEmacs or not here. * mule/mule-coding.el: Move the eight bit fixed-width functionality from this file to make-coding-system.el. tests/ChangeLog addition: 2009-09-19 Aidan Kehoe <kehoea@parhasard.net> * automated/mule-tests.el: Check a coding system's type, not an 8-bit-fixed property, for whether that coding system should be treated as a fixed-width coding system. * automated/query-coding-tests.el: Don't test the query coding functionality for mswindows-multibyte coding systems, it's not yet implemented.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 19 Sep 2009 22:53:13 +0100
parents ad2d2f4848f5
children 3889ef128488 308d34e9f07d
line wrap: on
line diff
--- a/lisp/mule/latin.el	Sat Sep 19 17:56:23 2009 +0200
+++ b/lisp/mule/latin.el	Sat Sep 19 22:53:13 2009 +0100
@@ -124,270 +124,273 @@
    (#xDD #xFD) ;; Y WITH ACUTE
    (#xDE #xFE))) ;; T WITH CEDILLA
 
-(make-8-bit-coding-system
- 'iso-8859-2
- '((#x80 ?\u0080) ;; <control>
-   (#x81 ?\u0081) ;; <control>
-   (#x82 ?\u0082) ;; <control>
-   (#x83 ?\u0083) ;; <control>
-   (#x84 ?\u0084) ;; <control>
-   (#x85 ?\u0085) ;; <control>
-   (#x86 ?\u0086) ;; <control>
-   (#x87 ?\u0087) ;; <control>
-   (#x88 ?\u0088) ;; <control>
-   (#x89 ?\u0089) ;; <control>
-   (#x8A ?\u008A) ;; <control>
-   (#x8B ?\u008B) ;; <control>
-   (#x8C ?\u008C) ;; <control>
-   (#x8D ?\u008D) ;; <control>
-   (#x8E ?\u008E) ;; <control>
-   (#x8F ?\u008F) ;; <control>
-   (#x90 ?\u0090) ;; <control>
-   (#x91 ?\u0091) ;; <control>
-   (#x92 ?\u0092) ;; <control>
-   (#x93 ?\u0093) ;; <control>
-   (#x94 ?\u0094) ;; <control>
-   (#x95 ?\u0095) ;; <control>
-   (#x96 ?\u0096) ;; <control>
-   (#x97 ?\u0097) ;; <control>
-   (#x98 ?\u0098) ;; <control>
-   (#x99 ?\u0099) ;; <control>
-   (#x9A ?\u009A) ;; <control>
-   (#x9B ?\u009B) ;; <control>
-   (#x9C ?\u009C) ;; <control>
-   (#x9D ?\u009D) ;; <control>
-   (#x9E ?\u009E) ;; <control>
-   (#x9F ?\u009F) ;; <control>
-   (#xA0 ?\u00A0) ;; NO-BREAK SPACE
-   (#xA1 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK
-   (#xA2 ?\u02D8) ;; BREVE
-   (#xA3 ?\u0141) ;; LATIN CAPITAL LETTER L WITH STROKE
-   (#xA4 ?\u00A4) ;; CURRENCY SIGN
-   (#xA5 ?\u013D) ;; LATIN CAPITAL LETTER L WITH CARON
-   (#xA6 ?\u015A) ;; LATIN CAPITAL LETTER S WITH ACUTE
-   (#xA7 ?\u00A7) ;; SECTION SIGN
-   (#xA8 ?\u00A8) ;; DIAERESIS
-   (#xA9 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
-   (#xAA ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA
-   (#xAB ?\u0164) ;; LATIN CAPITAL LETTER T WITH CARON
-   (#xAC ?\u0179) ;; LATIN CAPITAL LETTER Z WITH ACUTE
-   (#xAD ?\u00AD) ;; SOFT HYPHEN
-   (#xAE ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
-   (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE
-   (#xB0 ?\u00B0) ;; DEGREE SIGN
-   (#xB1 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK
-   (#xB2 ?\u02DB) ;; OGONEK
-   (#xB3 ?\u0142) ;; LATIN SMALL LETTER L WITH STROKE
-   (#xB4 ?\u00B4) ;; ACUTE ACCENT
-   (#xB5 ?\u013E) ;; LATIN SMALL LETTER L WITH CARON
-   (#xB6 ?\u015B) ;; LATIN SMALL LETTER S WITH ACUTE
-   (#xB7 ?\u02C7) ;; CARON
-   (#xB8 ?\u00B8) ;; CEDILLA
-   (#xB9 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
-   (#xBA ?\u015F) ;; LATIN SMALL LETTER S WITH CEDILLA
-   (#xBB ?\u0165) ;; LATIN SMALL LETTER T WITH CARON
-   (#xBC ?\u017A) ;; LATIN SMALL LETTER Z WITH ACUTE
-   (#xBD ?\u02DD) ;; DOUBLE ACUTE ACCENT
-   (#xBE ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
-   (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE
-   (#xC0 ?\u0154) ;; LATIN CAPITAL LETTER R WITH ACUTE
-   (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
-   (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-   (#xC3 ?\u0102) ;; LATIN CAPITAL LETTER A WITH BREVE
-   (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
-   (#xC5 ?\u0139) ;; LATIN CAPITAL LETTER L WITH ACUTE
-   (#xC6 ?\u0106) ;; LATIN CAPITAL LETTER C WITH ACUTE
-   (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
-   (#xC8 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON
-   (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
-   (#xCA ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK
-   (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
-   (#xCC ?\u011A) ;; LATIN CAPITAL LETTER E WITH CARON
-   (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
-   (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-   (#xCF ?\u010E) ;; LATIN CAPITAL LETTER D WITH CARON
-   (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE
-   (#xD1 ?\u0143) ;; LATIN CAPITAL LETTER N WITH ACUTE
-   (#xD2 ?\u0147) ;; LATIN CAPITAL LETTER N WITH CARON
-   (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
-   (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-   (#xD5 ?\u0150) ;; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
-   (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
-   (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN
-   (#xD8 ?\u0158) ;; LATIN CAPITAL LETTER R WITH CARON
-   (#xD9 ?\u016E) ;; LATIN CAPITAL LETTER U WITH RING ABOVE
-   (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
-   (#xDB ?\u0170) ;; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
-   (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
-   (#xDD ?\u00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE
-   (#xDE ?\u0162) ;; LATIN CAPITAL LETTER T WITH CEDILLA
-   (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
-   (#xE0 ?\u0155) ;; LATIN SMALL LETTER R WITH ACUTE
-   (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
-   (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
-   (#xE3 ?\u0103) ;; LATIN SMALL LETTER A WITH BREVE
-   (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
-   (#xE5 ?\u013A) ;; LATIN SMALL LETTER L WITH ACUTE
-   (#xE6 ?\u0107) ;; LATIN SMALL LETTER C WITH ACUTE
-   (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
-   (#xE8 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON
-   (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
-   (#xEA ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK
-   (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
-   (#xEC ?\u011B) ;; LATIN SMALL LETTER E WITH CARON
-   (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
-   (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
-   (#xEF ?\u010F) ;; LATIN SMALL LETTER D WITH CARON
-   (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE
-   (#xF1 ?\u0144) ;; LATIN SMALL LETTER N WITH ACUTE
-   (#xF2 ?\u0148) ;; LATIN SMALL LETTER N WITH CARON
-   (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
-   (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
-   (#xF5 ?\u0151) ;; LATIN SMALL LETTER O WITH DOUBLE ACUTE
-   (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
-   (#xF7 ?\u00F7) ;; DIVISION SIGN
-   (#xF8 ?\u0159) ;; LATIN SMALL LETTER R WITH CARON
-   (#xF9 ?\u016F) ;; LATIN SMALL LETTER U WITH RING ABOVE
-   (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
-   (#xFB ?\u0171) ;; LATIN SMALL LETTER U WITH DOUBLE ACUTE
-   (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
-   (#xFD ?\u00FD) ;; LATIN SMALL LETTER Y WITH ACUTE
-   (#xFE ?\u0163) ;; LATIN SMALL LETTER T WITH CEDILLA
-   (#xFF ?\u02D9)) ;; DOT ABOVE
-  "ISO-8859-2 (Latin-2) for Central Europe.
+(make-coding-system
+ 'iso-8859-2 'fixed-width "ISO-8859-2 (Latin-2)"
+ '(unicode-map
+   ((#x80 ?\u0080) ;; <control>
+    (#x81 ?\u0081) ;; <control>
+    (#x82 ?\u0082) ;; <control>
+    (#x83 ?\u0083) ;; <control>
+    (#x84 ?\u0084) ;; <control>
+    (#x85 ?\u0085) ;; <control>
+    (#x86 ?\u0086) ;; <control>
+    (#x87 ?\u0087) ;; <control>
+    (#x88 ?\u0088) ;; <control>
+    (#x89 ?\u0089) ;; <control>
+    (#x8A ?\u008A) ;; <control>
+    (#x8B ?\u008B) ;; <control>
+    (#x8C ?\u008C) ;; <control>
+    (#x8D ?\u008D) ;; <control>
+    (#x8E ?\u008E) ;; <control>
+    (#x8F ?\u008F) ;; <control>
+    (#x90 ?\u0090) ;; <control>
+    (#x91 ?\u0091) ;; <control>
+    (#x92 ?\u0092) ;; <control>
+    (#x93 ?\u0093) ;; <control>
+    (#x94 ?\u0094) ;; <control>
+    (#x95 ?\u0095) ;; <control>
+    (#x96 ?\u0096) ;; <control>
+    (#x97 ?\u0097) ;; <control>
+    (#x98 ?\u0098) ;; <control>
+    (#x99 ?\u0099) ;; <control>
+    (#x9A ?\u009A) ;; <control>
+    (#x9B ?\u009B) ;; <control>
+    (#x9C ?\u009C) ;; <control>
+    (#x9D ?\u009D) ;; <control>
+    (#x9E ?\u009E) ;; <control>
+    (#x9F ?\u009F) ;; <control>
+    (#xA0 ?\u00A0) ;; NO-BREAK SPACE
+    (#xA1 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK
+    (#xA2 ?\u02D8) ;; BREVE
+    (#xA3 ?\u0141) ;; LATIN CAPITAL LETTER L WITH STROKE
+    (#xA4 ?\u00A4) ;; CURRENCY SIGN
+    (#xA5 ?\u013D) ;; LATIN CAPITAL LETTER L WITH CARON
+    (#xA6 ?\u015A) ;; LATIN CAPITAL LETTER S WITH ACUTE
+    (#xA7 ?\u00A7) ;; SECTION SIGN
+    (#xA8 ?\u00A8) ;; DIAERESIS
+    (#xA9 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
+    (#xAA ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA
+    (#xAB ?\u0164) ;; LATIN CAPITAL LETTER T WITH CARON
+    (#xAC ?\u0179) ;; LATIN CAPITAL LETTER Z WITH ACUTE
+    (#xAD ?\u00AD) ;; SOFT HYPHEN
+    (#xAE ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
+    (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE
+    (#xB0 ?\u00B0) ;; DEGREE SIGN
+    (#xB1 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK
+    (#xB2 ?\u02DB) ;; OGONEK
+    (#xB3 ?\u0142) ;; LATIN SMALL LETTER L WITH STROKE
+    (#xB4 ?\u00B4) ;; ACUTE ACCENT
+    (#xB5 ?\u013E) ;; LATIN SMALL LETTER L WITH CARON
+    (#xB6 ?\u015B) ;; LATIN SMALL LETTER S WITH ACUTE
+    (#xB7 ?\u02C7) ;; CARON
+    (#xB8 ?\u00B8) ;; CEDILLA
+    (#xB9 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
+    (#xBA ?\u015F) ;; LATIN SMALL LETTER S WITH CEDILLA
+    (#xBB ?\u0165) ;; LATIN SMALL LETTER T WITH CARON
+    (#xBC ?\u017A) ;; LATIN SMALL LETTER Z WITH ACUTE
+    (#xBD ?\u02DD) ;; DOUBLE ACUTE ACCENT
+    (#xBE ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
+    (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE
+    (#xC0 ?\u0154) ;; LATIN CAPITAL LETTER R WITH ACUTE
+    (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
+    (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+    (#xC3 ?\u0102) ;; LATIN CAPITAL LETTER A WITH BREVE
+    (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
+    (#xC5 ?\u0139) ;; LATIN CAPITAL LETTER L WITH ACUTE
+    (#xC6 ?\u0106) ;; LATIN CAPITAL LETTER C WITH ACUTE
+    (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
+    (#xC8 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON
+    (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
+    (#xCA ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK
+    (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
+    (#xCC ?\u011A) ;; LATIN CAPITAL LETTER E WITH CARON
+    (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
+    (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+    (#xCF ?\u010E) ;; LATIN CAPITAL LETTER D WITH CARON
+    (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE
+    (#xD1 ?\u0143) ;; LATIN CAPITAL LETTER N WITH ACUTE
+    (#xD2 ?\u0147) ;; LATIN CAPITAL LETTER N WITH CARON
+    (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
+    (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+    (#xD5 ?\u0150) ;; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+    (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
+    (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN
+    (#xD8 ?\u0158) ;; LATIN CAPITAL LETTER R WITH CARON
+    (#xD9 ?\u016E) ;; LATIN CAPITAL LETTER U WITH RING ABOVE
+    (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
+    (#xDB ?\u0170) ;; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+    (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
+    (#xDD ?\u00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE
+    (#xDE ?\u0162) ;; LATIN CAPITAL LETTER T WITH CEDILLA
+    (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
+    (#xE0 ?\u0155) ;; LATIN SMALL LETTER R WITH ACUTE
+    (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
+    (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
+    (#xE3 ?\u0103) ;; LATIN SMALL LETTER A WITH BREVE
+    (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
+    (#xE5 ?\u013A) ;; LATIN SMALL LETTER L WITH ACUTE
+    (#xE6 ?\u0107) ;; LATIN SMALL LETTER C WITH ACUTE
+    (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
+    (#xE8 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON
+    (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
+    (#xEA ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK
+    (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
+    (#xEC ?\u011B) ;; LATIN SMALL LETTER E WITH CARON
+    (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
+    (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
+    (#xEF ?\u010F) ;; LATIN SMALL LETTER D WITH CARON
+    (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE
+    (#xF1 ?\u0144) ;; LATIN SMALL LETTER N WITH ACUTE
+    (#xF2 ?\u0148) ;; LATIN SMALL LETTER N WITH CARON
+    (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
+    (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
+    (#xF5 ?\u0151) ;; LATIN SMALL LETTER O WITH DOUBLE ACUTE
+    (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
+    (#xF7 ?\u00F7) ;; DIVISION SIGN
+    (#xF8 ?\u0159) ;; LATIN SMALL LETTER R WITH CARON
+    (#xF9 ?\u016F) ;; LATIN SMALL LETTER U WITH RING ABOVE
+    (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
+    (#xFB ?\u0171) ;; LATIN SMALL LETTER U WITH DOUBLE ACUTE
+    (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
+    (#xFD ?\u00FD) ;; LATIN SMALL LETTER Y WITH ACUTE
+    (#xFE ?\u0163) ;; LATIN SMALL LETTER T WITH CEDILLA
+    (#xFF ?\u02D9)) ;; DOT ABOVE
+   documentation "ISO-8859-2 (Latin-2) for Central Europe.
 See also `windows-1250', and `iso-8859-1', which is compatible with Latin 2
 when used to write German (or English, of course).  "
- '(mnemonic "Latin 2"
+   mnemonic "Latin 2"
    aliases (iso-latin-2 latin-2)))
 
-(make-8-bit-coding-system
- 'windows-1250
- '((#x80 ?\u20AC) ;; EURO SIGN
-   (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK
-   (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK
-   (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS
-   (#x86 ?\u2020) ;; DAGGER
-   (#x87 ?\u2021) ;; DOUBLE DAGGER
-   (#x89 ?\u2030) ;; PER MILLE SIGN
-   (#x8A ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
-   (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK
-   (#x8C ?\u015A) ;; LATIN CAPITAL LETTER S WITH ACUTE
-   (#x8D ?\u0164) ;; LATIN CAPITAL LETTER T WITH CARON
-   (#x8E ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
-   (#x8F ?\u0179) ;; LATIN CAPITAL LETTER Z WITH ACUTE
-   (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK
-   (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK
-   (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK
-   (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK
-   (#x95 ?\u2022) ;; BULLET
-   (#x96 ?\u2013) ;; EN DASH
-   (#x97 ?\u2014) ;; EM DASH
-   (#x99 ?\u2122) ;; TRADE MARK SIGN
-   (#x9A ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
-   (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
-   (#x9C ?\u015B) ;; LATIN SMALL LETTER S WITH ACUTE
-   (#x9D ?\u0165) ;; LATIN SMALL LETTER T WITH CARON
-   (#x9E ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
-   (#x9F ?\u017A) ;; LATIN SMALL LETTER Z WITH ACUTE
-   (#xA0 ?\u00A0) ;; NO-BREAK SPACE
-   (#xA1 ?\u02C7) ;; CARON
-   (#xA2 ?\u02D8) ;; BREVE
-   (#xA3 ?\u0141) ;; LATIN CAPITAL LETTER L WITH STROKE
-   (#xA4 ?\u00A4) ;; CURRENCY SIGN
-   (#xA5 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK
-   (#xA6 ?\u00A6) ;; BROKEN BAR
-   (#xA7 ?\u00A7) ;; SECTION SIGN
-   (#xA8 ?\u00A8) ;; DIAERESIS
-   (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
-   (#xAA ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA
-   (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-   (#xAC ?\u00AC) ;; NOT SIGN
-   (#xAD ?\u00AD) ;; SOFT HYPHEN
-   (#xAE ?\u00AE) ;; REGISTERED SIGN
-   (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE
-   (#xB0 ?\u00B0) ;; DEGREE SIGN
-   (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
-   (#xB2 ?\u02DB) ;; OGONEK
-   (#xB3 ?\u0142) ;; LATIN SMALL LETTER L WITH STROKE
-   (#xB4 ?\u00B4) ;; ACUTE ACCENT
-   (#xB5 ?\u00B5) ;; MICRO SIGN
-   (#xB6 ?\u00B6) ;; PILCROW SIGN
-   (#xB7 ?\u00B7) ;; MIDDLE DOT
-   (#xB8 ?\u00B8) ;; CEDILLA
-   (#xB9 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK
-   (#xBA ?\u015F) ;; LATIN SMALL LETTER S WITH CEDILLA
-   (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-   (#xBC ?\u013D) ;; LATIN CAPITAL LETTER L WITH CARON
-   (#xBD ?\u02DD) ;; DOUBLE ACUTE ACCENT
-   (#xBE ?\u013E) ;; LATIN SMALL LETTER L WITH CARON
-   (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE
-   (#xC0 ?\u0154) ;; LATIN CAPITAL LETTER R WITH ACUTE
-   (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
-   (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-   (#xC3 ?\u0102) ;; LATIN CAPITAL LETTER A WITH BREVE
-   (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
-   (#xC5 ?\u0139) ;; LATIN CAPITAL LETTER L WITH ACUTE
-   (#xC6 ?\u0106) ;; LATIN CAPITAL LETTER C WITH ACUTE
-   (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
-   (#xC8 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON
-   (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
-   (#xCA ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK
-   (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
-   (#xCC ?\u011A) ;; LATIN CAPITAL LETTER E WITH CARON
-   (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
-   (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-   (#xCF ?\u010E) ;; LATIN CAPITAL LETTER D WITH CARON
-   (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE
-   (#xD1 ?\u0143) ;; LATIN CAPITAL LETTER N WITH ACUTE
-   (#xD2 ?\u0147) ;; LATIN CAPITAL LETTER N WITH CARON
-   (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
-   (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-   (#xD5 ?\u0150) ;; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
-   (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
-   (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN
-   (#xD8 ?\u0158) ;; LATIN CAPITAL LETTER R WITH CARON
-   (#xD9 ?\u016E) ;; LATIN CAPITAL LETTER U WITH RING ABOVE
-   (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
-   (#xDB ?\u0170) ;; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
-   (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
-   (#xDD ?\u00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE
-   (#xDE ?\u0162) ;; LATIN CAPITAL LETTER T WITH CEDILLA
-   (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
-   (#xE0 ?\u0155) ;; LATIN SMALL LETTER R WITH ACUTE
-   (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
-   (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
-   (#xE3 ?\u0103) ;; LATIN SMALL LETTER A WITH BREVE
-   (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
-   (#xE5 ?\u013A) ;; LATIN SMALL LETTER L WITH ACUTE
-   (#xE6 ?\u0107) ;; LATIN SMALL LETTER C WITH ACUTE
-   (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
-   (#xE8 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON
-   (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
-   (#xEA ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK
-   (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
-   (#xEC ?\u011B) ;; LATIN SMALL LETTER E WITH CARON
-   (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
-   (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
-   (#xEF ?\u010F) ;; LATIN SMALL LETTER D WITH CARON
-   (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE
-   (#xF1 ?\u0144) ;; LATIN SMALL LETTER N WITH ACUTE
-   (#xF2 ?\u0148) ;; LATIN SMALL LETTER N WITH CARON
-   (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
-   (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
-   (#xF5 ?\u0151) ;; LATIN SMALL LETTER O WITH DOUBLE ACUTE
-   (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
-   (#xF7 ?\u00F7) ;; DIVISION SIGN
-   (#xF8 ?\u0159) ;; LATIN SMALL LETTER R WITH CARON
-   (#xF9 ?\u016F) ;; LATIN SMALL LETTER U WITH RING ABOVE
-   (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
-   (#xFB ?\u0171) ;; LATIN SMALL LETTER U WITH DOUBLE ACUTE
-   (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
-   (#xFD ?\u00FD) ;; LATIN SMALL LETTER Y WITH ACUTE
-   (#xFE ?\u0163) ;; LATIN SMALL LETTER T WITH CEDILLA
-   (#xFF ?\u02D9)) ;; DOT ABOVE
- "CP 1250, Microsoft's encoding for Central Europe. 
+(make-coding-system
+ 'windows-1250 'fixed-width "Microsoft's CP1250"
+ '(unicode-map
+   ((#x80 ?\u20AC) ;; EURO SIGN
+    (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK
+    (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK
+    (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS
+    (#x86 ?\u2020) ;; DAGGER
+    (#x87 ?\u2021) ;; DOUBLE DAGGER
+    (#x89 ?\u2030) ;; PER MILLE SIGN
+    (#x8A ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
+    (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+    (#x8C ?\u015A) ;; LATIN CAPITAL LETTER S WITH ACUTE
+    (#x8D ?\u0164) ;; LATIN CAPITAL LETTER T WITH CARON
+    (#x8E ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
+    (#x8F ?\u0179) ;; LATIN CAPITAL LETTER Z WITH ACUTE
+    (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK
+    (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK
+    (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK
+    (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK
+    (#x95 ?\u2022) ;; BULLET
+    (#x96 ?\u2013) ;; EN DASH
+    (#x97 ?\u2014) ;; EM DASH
+    (#x99 ?\u2122) ;; TRADE MARK SIGN
+    (#x9A ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
+    (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+    (#x9C ?\u015B) ;; LATIN SMALL LETTER S WITH ACUTE
+    (#x9D ?\u0165) ;; LATIN SMALL LETTER T WITH CARON
+    (#x9E ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
+    (#x9F ?\u017A) ;; LATIN SMALL LETTER Z WITH ACUTE
+    (#xA0 ?\u00A0) ;; NO-BREAK SPACE
+    (#xA1 ?\u02C7) ;; CARON
+    (#xA2 ?\u02D8) ;; BREVE
+    (#xA3 ?\u0141) ;; LATIN CAPITAL LETTER L WITH STROKE
+    (#xA4 ?\u00A4) ;; CURRENCY SIGN
+    (#xA5 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK
+    (#xA6 ?\u00A6) ;; BROKEN BAR
+    (#xA7 ?\u00A7) ;; SECTION SIGN
+    (#xA8 ?\u00A8) ;; DIAERESIS
+    (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
+    (#xAA ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA
+    (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+    (#xAC ?\u00AC) ;; NOT SIGN
+    (#xAD ?\u00AD) ;; SOFT HYPHEN
+    (#xAE ?\u00AE) ;; REGISTERED SIGN
+    (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE
+    (#xB0 ?\u00B0) ;; DEGREE SIGN
+    (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
+    (#xB2 ?\u02DB) ;; OGONEK
+    (#xB3 ?\u0142) ;; LATIN SMALL LETTER L WITH STROKE
+    (#xB4 ?\u00B4) ;; ACUTE ACCENT
+    (#xB5 ?\u00B5) ;; MICRO SIGN
+    (#xB6 ?\u00B6) ;; PILCROW SIGN
+    (#xB7 ?\u00B7) ;; MIDDLE DOT
+    (#xB8 ?\u00B8) ;; CEDILLA
+    (#xB9 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK
+    (#xBA ?\u015F) ;; LATIN SMALL LETTER S WITH CEDILLA
+    (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+    (#xBC ?\u013D) ;; LATIN CAPITAL LETTER L WITH CARON
+    (#xBD ?\u02DD) ;; DOUBLE ACUTE ACCENT
+    (#xBE ?\u013E) ;; LATIN SMALL LETTER L WITH CARON
+    (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE
+    (#xC0 ?\u0154) ;; LATIN CAPITAL LETTER R WITH ACUTE
+    (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
+    (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+    (#xC3 ?\u0102) ;; LATIN CAPITAL LETTER A WITH BREVE
+    (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
+    (#xC5 ?\u0139) ;; LATIN CAPITAL LETTER L WITH ACUTE
+    (#xC6 ?\u0106) ;; LATIN CAPITAL LETTER C WITH ACUTE
+    (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
+    (#xC8 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON
+    (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
+    (#xCA ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK
+    (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
+    (#xCC ?\u011A) ;; LATIN CAPITAL LETTER E WITH CARON
+    (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
+    (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+    (#xCF ?\u010E) ;; LATIN CAPITAL LETTER D WITH CARON
+    (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE
+    (#xD1 ?\u0143) ;; LATIN CAPITAL LETTER N WITH ACUTE
+    (#xD2 ?\u0147) ;; LATIN CAPITAL LETTER N WITH CARON
+    (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
+    (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+    (#xD5 ?\u0150) ;; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+    (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
+    (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN
+    (#xD8 ?\u0158) ;; LATIN CAPITAL LETTER R WITH CARON
+    (#xD9 ?\u016E) ;; LATIN CAPITAL LETTER U WITH RING ABOVE
+    (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
+    (#xDB ?\u0170) ;; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+    (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
+    (#xDD ?\u00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE
+    (#xDE ?\u0162) ;; LATIN CAPITAL LETTER T WITH CEDILLA
+    (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
+    (#xE0 ?\u0155) ;; LATIN SMALL LETTER R WITH ACUTE
+    (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
+    (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
+    (#xE3 ?\u0103) ;; LATIN SMALL LETTER A WITH BREVE
+    (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
+    (#xE5 ?\u013A) ;; LATIN SMALL LETTER L WITH ACUTE
+    (#xE6 ?\u0107) ;; LATIN SMALL LETTER C WITH ACUTE
+    (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
+    (#xE8 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON
+    (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
+    (#xEA ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK
+    (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
+    (#xEC ?\u011B) ;; LATIN SMALL LETTER E WITH CARON
+    (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
+    (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
+    (#xEF ?\u010F) ;; LATIN SMALL LETTER D WITH CARON
+    (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE
+    (#xF1 ?\u0144) ;; LATIN SMALL LETTER N WITH ACUTE
+    (#xF2 ?\u0148) ;; LATIN SMALL LETTER N WITH CARON
+    (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
+    (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
+    (#xF5 ?\u0151) ;; LATIN SMALL LETTER O WITH DOUBLE ACUTE
+    (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
+    (#xF7 ?\u00F7) ;; DIVISION SIGN
+    (#xF8 ?\u0159) ;; LATIN SMALL LETTER R WITH CARON
+    (#xF9 ?\u016F) ;; LATIN SMALL LETTER U WITH RING ABOVE
+    (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
+    (#xFB ?\u0171) ;; LATIN SMALL LETTER U WITH DOUBLE ACUTE
+    (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
+    (#xFD ?\u00FD) ;; LATIN SMALL LETTER Y WITH ACUTE
+    (#xFE ?\u0163) ;; LATIN SMALL LETTER T WITH CEDILLA
+    (#xFF ?\u02D9)) ;; DOT ABOVE
+   documentation
+   "CP 1250, Microsoft's encoding for Central Europe. 
 See also `iso-8859-2' and `window-1252' for Western Europe.  "
- '(mnemonic "CP1250"
+   mnemonic "CP1250"
    aliases (cp1250)))
 
 
@@ -460,131 +463,131 @@
    (#xDD #xFD) ;; U WITH BREVE
    (#xDE #xFE))) ;; S WITH CIRCUMFLEX
 
-(make-8-bit-coding-system
- 'iso-8859-3
- '((#x80 ?\u0080) ;; <control>
-   (#x81 ?\u0081) ;; <control>
-   (#x82 ?\u0082) ;; <control>
-   (#x83 ?\u0083) ;; <control>
-   (#x84 ?\u0084) ;; <control>
-   (#x85 ?\u0085) ;; <control>
-   (#x86 ?\u0086) ;; <control>
-   (#x87 ?\u0087) ;; <control>
-   (#x88 ?\u0088) ;; <control>
-   (#x89 ?\u0089) ;; <control>
-   (#x8A ?\u008A) ;; <control>
-   (#x8B ?\u008B) ;; <control>
-   (#x8C ?\u008C) ;; <control>
-   (#x8D ?\u008D) ;; <control>
-   (#x8E ?\u008E) ;; <control>
-   (#x8F ?\u008F) ;; <control>
-   (#x90 ?\u0090) ;; <control>
-   (#x91 ?\u0091) ;; <control>
-   (#x92 ?\u0092) ;; <control>
-   (#x93 ?\u0093) ;; <control>
-   (#x94 ?\u0094) ;; <control>
-   (#x95 ?\u0095) ;; <control>
-   (#x96 ?\u0096) ;; <control>
-   (#x97 ?\u0097) ;; <control>
-   (#x98 ?\u0098) ;; <control>
-   (#x99 ?\u0099) ;; <control>
-   (#x9A ?\u009A) ;; <control>
-   (#x9B ?\u009B) ;; <control>
-   (#x9C ?\u009C) ;; <control>
-   (#x9D ?\u009D) ;; <control>
-   (#x9E ?\u009E) ;; <control>
-   (#x9F ?\u009F) ;; <control>
-   (#xA0 ?\u00A0) ;; NO-BREAK SPACE
-   (#xA1 ?\u0126) ;; LATIN CAPITAL LETTER H WITH STROKE
-   (#xA2 ?\u02D8) ;; BREVE
-   (#xA3 ?\u00A3) ;; POUND SIGN
-   (#xA4 ?\u00A4) ;; CURRENCY SIGN
-   (#xA6 ?\u0124) ;; LATIN CAPITAL LETTER H WITH CIRCUMFLEX
-   (#xA7 ?\u00A7) ;; SECTION SIGN
-   (#xA8 ?\u00A8) ;; DIAERESIS
-   (#xA9 ?\u0130) ;; LATIN CAPITAL LETTER I WITH DOT ABOVE
-   (#xAA ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA
-   (#xAB ?\u011E) ;; LATIN CAPITAL LETTER G WITH BREVE
-   (#xAC ?\u0134) ;; LATIN CAPITAL LETTER J WITH CIRCUMFLEX
-   (#xAD ?\u00AD) ;; SOFT HYPHEN
-   (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE
-   (#xB0 ?\u00B0) ;; DEGREE SIGN
-   (#xB1 ?\u0127) ;; LATIN SMALL LETTER H WITH STROKE
-   (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO
-   (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE
-   (#xB4 ?\u00B4) ;; ACUTE ACCENT
-   (#xB5 ?\u00B5) ;; MICRO SIGN
-   (#xB6 ?\u0125) ;; LATIN SMALL LETTER H WITH CIRCUMFLEX
-   (#xB7 ?\u00B7) ;; MIDDLE DOT
-   (#xB8 ?\u00B8) ;; CEDILLA
-   (#xB9 ?\u0131) ;; LATIN SMALL LETTER DOTLESS I
-   (#xBA ?\u015F) ;; LATIN SMALL LETTER S WITH CEDILLA
-   (#xBB ?\u011F) ;; LATIN SMALL LETTER G WITH BREVE
-   (#xBC ?\u0135) ;; LATIN SMALL LETTER J WITH CIRCUMFLEX
-   (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF
-   (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE
-   (#xC0 ?\u00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
-   (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
-   (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-   (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
-   (#xC5 ?\u010A) ;; LATIN CAPITAL LETTER C WITH DOT ABOVE
-   (#xC6 ?\u0108) ;; LATIN CAPITAL LETTER C WITH CIRCUMFLEX
-   (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
-   (#xC8 ?\u00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
-   (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
-   (#xCA ?\u00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-   (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
-   (#xCC ?\u00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
-   (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
-   (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-   (#xCF ?\u00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
-   (#xD1 ?\u00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
-   (#xD2 ?\u00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
-   (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
-   (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-   (#xD5 ?\u0120) ;; LATIN CAPITAL LETTER G WITH DOT ABOVE
-   (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
-   (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN
-   (#xD8 ?\u011C) ;; LATIN CAPITAL LETTER G WITH CIRCUMFLEX
-   (#xD9 ?\u00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
-   (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
-   (#xDB ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-   (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
-   (#xDD ?\u016C) ;; LATIN CAPITAL LETTER U WITH BREVE
-   (#xDE ?\u015C) ;; LATIN CAPITAL LETTER S WITH CIRCUMFLEX
-   (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
-   (#xE0 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE
-   (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
-   (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
-   (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
-   (#xE5 ?\u010B) ;; LATIN SMALL LETTER C WITH DOT ABOVE
-   (#xE6 ?\u0109) ;; LATIN SMALL LETTER C WITH CIRCUMFLEX
-   (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
-   (#xE8 ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE
-   (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
-   (#xEA ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
-   (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
-   (#xEC ?\u00EC) ;; LATIN SMALL LETTER I WITH GRAVE
-   (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
-   (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
-   (#xEF ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
-   (#xF1 ?\u00F1) ;; LATIN SMALL LETTER N WITH TILDE
-   (#xF2 ?\u00F2) ;; LATIN SMALL LETTER O WITH GRAVE
-   (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
-   (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
-   (#xF5 ?\u0121) ;; LATIN SMALL LETTER G WITH DOT ABOVE
-   (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
-   (#xF7 ?\u00F7) ;; DIVISION SIGN
-   (#xF8 ?\u011D) ;; LATIN SMALL LETTER G WITH CIRCUMFLEX
-   (#xF9 ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE
-   (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
-   (#xFB ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
-   (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
-   (#xFD ?\u016D) ;; LATIN SMALL LETTER U WITH BREVE
-   (#xFE ?\u015D) ;; LATIN SMALL LETTER S WITH CIRCUMFLEX
-   (#xFF ?\u02D9)) ;; DOT ABOVE
- "ISO-8859-3 (Latin-3)"
- '(mnemonic "Latin 3"
+(make-coding-system
+ 'iso-8859-3 'fixed-width "ISO-8859-3 (Latin-3)"
+ '(unicode-map
+   ((#x80 ?\u0080) ;; <control>
+    (#x81 ?\u0081) ;; <control>
+    (#x82 ?\u0082) ;; <control>
+    (#x83 ?\u0083) ;; <control>
+    (#x84 ?\u0084) ;; <control>
+    (#x85 ?\u0085) ;; <control>
+    (#x86 ?\u0086) ;; <control>
+    (#x87 ?\u0087) ;; <control>
+    (#x88 ?\u0088) ;; <control>
+    (#x89 ?\u0089) ;; <control>
+    (#x8A ?\u008A) ;; <control>
+    (#x8B ?\u008B) ;; <control>
+    (#x8C ?\u008C) ;; <control>
+    (#x8D ?\u008D) ;; <control>
+    (#x8E ?\u008E) ;; <control>
+    (#x8F ?\u008F) ;; <control>
+    (#x90 ?\u0090) ;; <control>
+    (#x91 ?\u0091) ;; <control>
+    (#x92 ?\u0092) ;; <control>
+    (#x93 ?\u0093) ;; <control>
+    (#x94 ?\u0094) ;; <control>
+    (#x95 ?\u0095) ;; <control>
+    (#x96 ?\u0096) ;; <control>
+    (#x97 ?\u0097) ;; <control>
+    (#x98 ?\u0098) ;; <control>
+    (#x99 ?\u0099) ;; <control>
+    (#x9A ?\u009A) ;; <control>
+    (#x9B ?\u009B) ;; <control>
+    (#x9C ?\u009C) ;; <control>
+    (#x9D ?\u009D) ;; <control>
+    (#x9E ?\u009E) ;; <control>
+    (#x9F ?\u009F) ;; <control>
+    (#xA0 ?\u00A0) ;; NO-BREAK SPACE
+    (#xA1 ?\u0126) ;; LATIN CAPITAL LETTER H WITH STROKE
+    (#xA2 ?\u02D8) ;; BREVE
+    (#xA3 ?\u00A3) ;; POUND SIGN
+    (#xA4 ?\u00A4) ;; CURRENCY SIGN
+    (#xA6 ?\u0124) ;; LATIN CAPITAL LETTER H WITH CIRCUMFLEX
+    (#xA7 ?\u00A7) ;; SECTION SIGN
+    (#xA8 ?\u00A8) ;; DIAERESIS
+    (#xA9 ?\u0130) ;; LATIN CAPITAL LETTER I WITH DOT ABOVE
+    (#xAA ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA
+    (#xAB ?\u011E) ;; LATIN CAPITAL LETTER G WITH BREVE
+    (#xAC ?\u0134) ;; LATIN CAPITAL LETTER J WITH CIRCUMFLEX
+    (#xAD ?\u00AD) ;; SOFT HYPHEN
+    (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE
+    (#xB0 ?\u00B0) ;; DEGREE SIGN
+    (#xB1 ?\u0127) ;; LATIN SMALL LETTER H WITH STROKE
+    (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO
+    (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE
+    (#xB4 ?\u00B4) ;; ACUTE ACCENT
+    (#xB5 ?\u00B5) ;; MICRO SIGN
+    (#xB6 ?\u0125) ;; LATIN SMALL LETTER H WITH CIRCUMFLEX
+    (#xB7 ?\u00B7) ;; MIDDLE DOT
+    (#xB8 ?\u00B8) ;; CEDILLA
+    (#xB9 ?\u0131) ;; LATIN SMALL LETTER DOTLESS I
+    (#xBA ?\u015F) ;; LATIN SMALL LETTER S WITH CEDILLA
+    (#xBB ?\u011F) ;; LATIN SMALL LETTER G WITH BREVE
+    (#xBC ?\u0135) ;; LATIN SMALL LETTER J WITH CIRCUMFLEX
+    (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF
+    (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE
+    (#xC0 ?\u00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
+    (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
+    (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+    (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
+    (#xC5 ?\u010A) ;; LATIN CAPITAL LETTER C WITH DOT ABOVE
+    (#xC6 ?\u0108) ;; LATIN CAPITAL LETTER C WITH CIRCUMFLEX
+    (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
+    (#xC8 ?\u00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
+    (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
+    (#xCA ?\u00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+    (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
+    (#xCC ?\u00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
+    (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
+    (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+    (#xCF ?\u00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
+    (#xD1 ?\u00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
+    (#xD2 ?\u00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
+    (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
+    (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+    (#xD5 ?\u0120) ;; LATIN CAPITAL LETTER G WITH DOT ABOVE
+    (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
+    (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN
+    (#xD8 ?\u011C) ;; LATIN CAPITAL LETTER G WITH CIRCUMFLEX
+    (#xD9 ?\u00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
+    (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
+    (#xDB ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+    (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
+    (#xDD ?\u016C) ;; LATIN CAPITAL LETTER U WITH BREVE
+    (#xDE ?\u015C) ;; LATIN CAPITAL LETTER S WITH CIRCUMFLEX
+    (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
+    (#xE0 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE
+    (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
+    (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
+    (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
+    (#xE5 ?\u010B) ;; LATIN SMALL LETTER C WITH DOT ABOVE
+    (#xE6 ?\u0109) ;; LATIN SMALL LETTER C WITH CIRCUMFLEX
+    (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
+    (#xE8 ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE
+    (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
+    (#xEA ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
+    (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
+    (#xEC ?\u00EC) ;; LATIN SMALL LETTER I WITH GRAVE
+    (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
+    (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
+    (#xEF ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
+    (#xF1 ?\u00F1) ;; LATIN SMALL LETTER N WITH TILDE
+    (#xF2 ?\u00F2) ;; LATIN SMALL LETTER O WITH GRAVE
+    (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
+    (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
+    (#xF5 ?\u0121) ;; LATIN SMALL LETTER G WITH DOT ABOVE
+    (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
+    (#xF7 ?\u00F7) ;; DIVISION SIGN
+    (#xF8 ?\u011D) ;; LATIN SMALL LETTER G WITH CIRCUMFLEX
+    (#xF9 ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE
+    (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
+    (#xFB ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
+    (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
+    (#xFD ?\u016D) ;; LATIN SMALL LETTER U WITH BREVE
+    (#xFE ?\u015D) ;; LATIN SMALL LETTER S WITH CIRCUMFLEX
+    (#xFF ?\u02D9)) ;; DOT ABOVE
+   mnemonic "Latin 3"
    documentation "Aimed at Turkish, Maltese and Esperanto.  "
    aliases (iso-latin-3 latin-3)))
 
@@ -660,138 +663,138 @@
    (#xDD #xFD) ;; U WITH TILDE
    (#xDE #xFE))) ;; U WITH MACRON
 
-(make-8-bit-coding-system
- 'iso-8859-4
- '((#x80 ?\u0080) ;; <control>
-   (#x81 ?\u0081) ;; <control>
-   (#x82 ?\u0082) ;; <control>
-   (#x83 ?\u0083) ;; <control>
-   (#x84 ?\u0084) ;; <control>
-   (#x85 ?\u0085) ;; <control>
-   (#x86 ?\u0086) ;; <control>
-   (#x87 ?\u0087) ;; <control>
-   (#x88 ?\u0088) ;; <control>
-   (#x89 ?\u0089) ;; <control>
-   (#x8A ?\u008A) ;; <control>
-   (#x8B ?\u008B) ;; <control>
-   (#x8C ?\u008C) ;; <control>
-   (#x8D ?\u008D) ;; <control>
-   (#x8E ?\u008E) ;; <control>
-   (#x8F ?\u008F) ;; <control>
-   (#x90 ?\u0090) ;; <control>
-   (#x91 ?\u0091) ;; <control>
-   (#x92 ?\u0092) ;; <control>
-   (#x93 ?\u0093) ;; <control>
-   (#x94 ?\u0094) ;; <control>
-   (#x95 ?\u0095) ;; <control>
-   (#x96 ?\u0096) ;; <control>
-   (#x97 ?\u0097) ;; <control>
-   (#x98 ?\u0098) ;; <control>
-   (#x99 ?\u0099) ;; <control>
-   (#x9A ?\u009A) ;; <control>
-   (#x9B ?\u009B) ;; <control>
-   (#x9C ?\u009C) ;; <control>
-   (#x9D ?\u009D) ;; <control>
-   (#x9E ?\u009E) ;; <control>
-   (#x9F ?\u009F) ;; <control>
-   (#xA0 ?\u00A0) ;; NO-BREAK SPACE
-   (#xA1 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK
-   (#xA2 ?\u0138) ;; LATIN SMALL LETTER KRA
-   (#xA3 ?\u0156) ;; LATIN CAPITAL LETTER R WITH CEDILLA
-   (#xA4 ?\u00A4) ;; CURRENCY SIGN
-   (#xA5 ?\u0128) ;; LATIN CAPITAL LETTER I WITH TILDE
-   (#xA6 ?\u013B) ;; LATIN CAPITAL LETTER L WITH CEDILLA
-   (#xA7 ?\u00A7) ;; SECTION SIGN
-   (#xA8 ?\u00A8) ;; DIAERESIS
-   (#xA9 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
-   (#xAA ?\u0112) ;; LATIN CAPITAL LETTER E WITH MACRON
-   (#xAB ?\u0122) ;; LATIN CAPITAL LETTER G WITH CEDILLA
-   (#xAC ?\u0166) ;; LATIN CAPITAL LETTER T WITH STROKE
-   (#xAD ?\u00AD) ;; SOFT HYPHEN
-   (#xAE ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
-   (#xAF ?\u00AF) ;; MACRON
-   (#xB0 ?\u00B0) ;; DEGREE SIGN
-   (#xB1 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK
-   (#xB2 ?\u02DB) ;; OGONEK
-   (#xB3 ?\u0157) ;; LATIN SMALL LETTER R WITH CEDILLA
-   (#xB4 ?\u00B4) ;; ACUTE ACCENT
-   (#xB5 ?\u0129) ;; LATIN SMALL LETTER I WITH TILDE
-   (#xB6 ?\u013C) ;; LATIN SMALL LETTER L WITH CEDILLA
-   (#xB7 ?\u02C7) ;; CARON
-   (#xB8 ?\u00B8) ;; CEDILLA
-   (#xB9 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
-   (#xBA ?\u0113) ;; LATIN SMALL LETTER E WITH MACRON
-   (#xBB ?\u0123) ;; LATIN SMALL LETTER G WITH CEDILLA
-   (#xBC ?\u0167) ;; LATIN SMALL LETTER T WITH STROKE
-   (#xBD ?\u014A) ;; LATIN CAPITAL LETTER ENG
-   (#xBE ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
-   (#xBF ?\u014B) ;; LATIN SMALL LETTER ENG
-   (#xC0 ?\u0100) ;; LATIN CAPITAL LETTER A WITH MACRON
-   (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
-   (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-   (#xC3 ?\u00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
-   (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
-   (#xC5 ?\u00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
-   (#xC6 ?\u00C6) ;; LATIN CAPITAL LETTER AE
-   (#xC7 ?\u012E) ;; LATIN CAPITAL LETTER I WITH OGONEK
-   (#xC8 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON
-   (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
-   (#xCA ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK
-   (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
-   (#xCC ?\u0116) ;; LATIN CAPITAL LETTER E WITH DOT ABOVE
-   (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
-   (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-   (#xCF ?\u012A) ;; LATIN CAPITAL LETTER I WITH MACRON
-   (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE
-   (#xD1 ?\u0145) ;; LATIN CAPITAL LETTER N WITH CEDILLA
-   (#xD2 ?\u014C) ;; LATIN CAPITAL LETTER O WITH MACRON
-   (#xD3 ?\u0136) ;; LATIN CAPITAL LETTER K WITH CEDILLA
-   (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-   (#xD5 ?\u00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
-   (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
-   (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN
-   (#xD8 ?\u00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
-   (#xD9 ?\u0172) ;; LATIN CAPITAL LETTER U WITH OGONEK
-   (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
-   (#xDB ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-   (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
-   (#xDD ?\u0168) ;; LATIN CAPITAL LETTER U WITH TILDE
-   (#xDE ?\u016A) ;; LATIN CAPITAL LETTER U WITH MACRON
-   (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
-   (#xE0 ?\u0101) ;; LATIN SMALL LETTER A WITH MACRON
-   (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
-   (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
-   (#xE3 ?\u00E3) ;; LATIN SMALL LETTER A WITH TILDE
-   (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
-   (#xE5 ?\u00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
-   (#xE6 ?\u00E6) ;; LATIN SMALL LETTER AE
-   (#xE7 ?\u012F) ;; LATIN SMALL LETTER I WITH OGONEK
-   (#xE8 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON
-   (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
-   (#xEA ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK
-   (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
-   (#xEC ?\u0117) ;; LATIN SMALL LETTER E WITH DOT ABOVE
-   (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
-   (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
-   (#xEF ?\u012B) ;; LATIN SMALL LETTER I WITH MACRON
-   (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE
-   (#xF1 ?\u0146) ;; LATIN SMALL LETTER N WITH CEDILLA
-   (#xF2 ?\u014D) ;; LATIN SMALL LETTER O WITH MACRON
-   (#xF3 ?\u0137) ;; LATIN SMALL LETTER K WITH CEDILLA
-   (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
-   (#xF5 ?\u00F5) ;; LATIN SMALL LETTER O WITH TILDE
-   (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
-   (#xF7 ?\u00F7) ;; DIVISION SIGN
-   (#xF8 ?\u00F8) ;; LATIN SMALL LETTER O WITH STROKE
-   (#xF9 ?\u0173) ;; LATIN SMALL LETTER U WITH OGONEK
-   (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
-   (#xFB ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
-   (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
-   (#xFD ?\u0169) ;; LATIN SMALL LETTER U WITH TILDE
-   (#xFE ?\u016B) ;; LATIN SMALL LETTER U WITH MACRON
-   (#xFF ?\u02D9));; DOT ABOVE
- "ISO-8859-4 (Latin-4)"
- '(mnemonic "Latin 4"
+(make-coding-system
+ 'iso-8859-4 'fixed-width "ISO-8859-4 (Latin-4)"
+ '(unicode-map
+   ((#x80 ?\u0080) ;; <control>
+    (#x81 ?\u0081) ;; <control>
+    (#x82 ?\u0082) ;; <control>
+    (#x83 ?\u0083) ;; <control>
+    (#x84 ?\u0084) ;; <control>
+    (#x85 ?\u0085) ;; <control>
+    (#x86 ?\u0086) ;; <control>
+    (#x87 ?\u0087) ;; <control>
+    (#x88 ?\u0088) ;; <control>
+    (#x89 ?\u0089) ;; <control>
+    (#x8A ?\u008A) ;; <control>
+    (#x8B ?\u008B) ;; <control>
+    (#x8C ?\u008C) ;; <control>
+    (#x8D ?\u008D) ;; <control>
+    (#x8E ?\u008E) ;; <control>
+    (#x8F ?\u008F) ;; <control>
+    (#x90 ?\u0090) ;; <control>
+    (#x91 ?\u0091) ;; <control>
+    (#x92 ?\u0092) ;; <control>
+    (#x93 ?\u0093) ;; <control>
+    (#x94 ?\u0094) ;; <control>
+    (#x95 ?\u0095) ;; <control>
+    (#x96 ?\u0096) ;; <control>
+    (#x97 ?\u0097) ;; <control>
+    (#x98 ?\u0098) ;; <control>
+    (#x99 ?\u0099) ;; <control>
+    (#x9A ?\u009A) ;; <control>
+    (#x9B ?\u009B) ;; <control>
+    (#x9C ?\u009C) ;; <control>
+    (#x9D ?\u009D) ;; <control>
+    (#x9E ?\u009E) ;; <control>
+    (#x9F ?\u009F) ;; <control>
+    (#xA0 ?\u00A0) ;; NO-BREAK SPACE
+    (#xA1 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK
+    (#xA2 ?\u0138) ;; LATIN SMALL LETTER KRA
+    (#xA3 ?\u0156) ;; LATIN CAPITAL LETTER R WITH CEDILLA
+    (#xA4 ?\u00A4) ;; CURRENCY SIGN
+    (#xA5 ?\u0128) ;; LATIN CAPITAL LETTER I WITH TILDE
+    (#xA6 ?\u013B) ;; LATIN CAPITAL LETTER L WITH CEDILLA
+    (#xA7 ?\u00A7) ;; SECTION SIGN
+    (#xA8 ?\u00A8) ;; DIAERESIS
+    (#xA9 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
+    (#xAA ?\u0112) ;; LATIN CAPITAL LETTER E WITH MACRON
+    (#xAB ?\u0122) ;; LATIN CAPITAL LETTER G WITH CEDILLA
+    (#xAC ?\u0166) ;; LATIN CAPITAL LETTER T WITH STROKE
+    (#xAD ?\u00AD) ;; SOFT HYPHEN
+    (#xAE ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
+    (#xAF ?\u00AF) ;; MACRON
+    (#xB0 ?\u00B0) ;; DEGREE SIGN
+    (#xB1 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK
+    (#xB2 ?\u02DB) ;; OGONEK
+    (#xB3 ?\u0157) ;; LATIN SMALL LETTER R WITH CEDILLA
+    (#xB4 ?\u00B4) ;; ACUTE ACCENT
+    (#xB5 ?\u0129) ;; LATIN SMALL LETTER I WITH TILDE
+    (#xB6 ?\u013C) ;; LATIN SMALL LETTER L WITH CEDILLA
+    (#xB7 ?\u02C7) ;; CARON
+    (#xB8 ?\u00B8) ;; CEDILLA
+    (#xB9 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
+    (#xBA ?\u0113) ;; LATIN SMALL LETTER E WITH MACRON
+    (#xBB ?\u0123) ;; LATIN SMALL LETTER G WITH CEDILLA
+    (#xBC ?\u0167) ;; LATIN SMALL LETTER T WITH STROKE
+    (#xBD ?\u014A) ;; LATIN CAPITAL LETTER ENG
+    (#xBE ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
+    (#xBF ?\u014B) ;; LATIN SMALL LETTER ENG
+    (#xC0 ?\u0100) ;; LATIN CAPITAL LETTER A WITH MACRON
+    (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
+    (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+    (#xC3 ?\u00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
+    (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
+    (#xC5 ?\u00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
+    (#xC6 ?\u00C6) ;; LATIN CAPITAL LETTER AE
+    (#xC7 ?\u012E) ;; LATIN CAPITAL LETTER I WITH OGONEK
+    (#xC8 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON
+    (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
+    (#xCA ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK
+    (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
+    (#xCC ?\u0116) ;; LATIN CAPITAL LETTER E WITH DOT ABOVE
+    (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
+    (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+    (#xCF ?\u012A) ;; LATIN CAPITAL LETTER I WITH MACRON
+    (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE
+    (#xD1 ?\u0145) ;; LATIN CAPITAL LETTER N WITH CEDILLA
+    (#xD2 ?\u014C) ;; LATIN CAPITAL LETTER O WITH MACRON
+    (#xD3 ?\u0136) ;; LATIN CAPITAL LETTER K WITH CEDILLA
+    (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+    (#xD5 ?\u00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
+    (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
+    (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN
+    (#xD8 ?\u00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
+    (#xD9 ?\u0172) ;; LATIN CAPITAL LETTER U WITH OGONEK
+    (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
+    (#xDB ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+    (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
+    (#xDD ?\u0168) ;; LATIN CAPITAL LETTER U WITH TILDE
+    (#xDE ?\u016A) ;; LATIN CAPITAL LETTER U WITH MACRON
+    (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
+    (#xE0 ?\u0101) ;; LATIN SMALL LETTER A WITH MACRON
+    (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
+    (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
+    (#xE3 ?\u00E3) ;; LATIN SMALL LETTER A WITH TILDE
+    (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
+    (#xE5 ?\u00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
+    (#xE6 ?\u00E6) ;; LATIN SMALL LETTER AE
+    (#xE7 ?\u012F) ;; LATIN SMALL LETTER I WITH OGONEK
+    (#xE8 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON
+    (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
+    (#xEA ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK
+    (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
+    (#xEC ?\u0117) ;; LATIN SMALL LETTER E WITH DOT ABOVE
+    (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
+    (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
+    (#xEF ?\u012B) ;; LATIN SMALL LETTER I WITH MACRON
+    (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE
+    (#xF1 ?\u0146) ;; LATIN SMALL LETTER N WITH CEDILLA
+    (#xF2 ?\u014D) ;; LATIN SMALL LETTER O WITH MACRON
+    (#xF3 ?\u0137) ;; LATIN SMALL LETTER K WITH CEDILLA
+    (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
+    (#xF5 ?\u00F5) ;; LATIN SMALL LETTER O WITH TILDE
+    (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
+    (#xF7 ?\u00F7) ;; DIVISION SIGN
+    (#xF8 ?\u00F8) ;; LATIN SMALL LETTER O WITH STROKE
+    (#xF9 ?\u0173) ;; LATIN SMALL LETTER U WITH OGONEK
+    (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
+    (#xFB ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
+    (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
+    (#xFD ?\u0169) ;; LATIN SMALL LETTER U WITH TILDE
+    (#xFE ?\u016B) ;; LATIN SMALL LETTER U WITH MACRON
+    (#xFF ?\u02D9)) ;; DOT ABOVE
+   mnemonic "Latin 4"
    aliases (iso-latin-4 latin-4)
    documentation "Obsolete coding system for the Baltic rim.  "))
 
@@ -873,138 +876,138 @@
    (#xDD #xFD) ;; Y WITH ACUTE
    (#xDE #xFE))) ;; Y WITH CIRCUMFLEX
 
-(make-8-bit-coding-system
- 'iso-8859-14
- '((#x80 ?\u0080) ;; <control>
-   (#x81 ?\u0081) ;; <control>
-   (#x82 ?\u0082) ;; <control>
-   (#x83 ?\u0083) ;; <control>
-   (#x84 ?\u0084) ;; <control>
-   (#x85 ?\u0085) ;; <control>
-   (#x86 ?\u0086) ;; <control>
-   (#x87 ?\u0087) ;; <control>
-   (#x88 ?\u0088) ;; <control>
-   (#x89 ?\u0089) ;; <control>
-   (#x8A ?\u008A) ;; <control>
-   (#x8B ?\u008B) ;; <control>
-   (#x8C ?\u008C) ;; <control>
-   (#x8D ?\u008D) ;; <control>
-   (#x8E ?\u008E) ;; <control>
-   (#x8F ?\u008F) ;; <control>
-   (#x90 ?\u0090) ;; <control>
-   (#x91 ?\u0091) ;; <control>
-   (#x92 ?\u0092) ;; <control>
-   (#x93 ?\u0093) ;; <control>
-   (#x94 ?\u0094) ;; <control>
-   (#x95 ?\u0095) ;; <control>
-   (#x96 ?\u0096) ;; <control>
-   (#x97 ?\u0097) ;; <control>
-   (#x98 ?\u0098) ;; <control>
-   (#x99 ?\u0099) ;; <control>
-   (#x9A ?\u009A) ;; <control>
-   (#x9B ?\u009B) ;; <control>
-   (#x9C ?\u009C) ;; <control>
-   (#x9D ?\u009D) ;; <control>
-   (#x9E ?\u009E) ;; <control>
-   (#x9F ?\u009F) ;; <control>
-   (#xA0 ?\u00A0) ;; NO-BREAK SPACE
-   (#xA1 ?\u1E02) ;; LATIN CAPITAL LETTER B WITH DOT ABOVE
-   (#xA2 ?\u1E03) ;; LATIN SMALL LETTER B WITH DOT ABOVE
-   (#xA3 ?\u00A3) ;; POUND SIGN
-   (#xA4 ?\u010A) ;; LATIN CAPITAL LETTER C WITH DOT ABOVE
-   (#xA5 ?\u010B) ;; LATIN SMALL LETTER C WITH DOT ABOVE
-   (#xA6 ?\u1E0A) ;; LATIN CAPITAL LETTER D WITH DOT ABOVE
-   (#xA7 ?\u00A7) ;; SECTION SIGN
-   (#xA8 ?\u1E80) ;; LATIN CAPITAL LETTER W WITH GRAVE
-   (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
-   (#xAA ?\u1E82) ;; LATIN CAPITAL LETTER W WITH ACUTE
-   (#xAB ?\u1E0B) ;; LATIN SMALL LETTER D WITH DOT ABOVE
-   (#xAC ?\u1EF2) ;; LATIN CAPITAL LETTER Y WITH GRAVE
-   (#xAD ?\u00AD) ;; SOFT HYPHEN
-   (#xAE ?\u00AE) ;; REGISTERED SIGN
-   (#xAF ?\u0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS
-   (#xB0 ?\u1E1E) ;; LATIN CAPITAL LETTER F WITH DOT ABOVE
-   (#xB1 ?\u1E1F) ;; LATIN SMALL LETTER F WITH DOT ABOVE
-   (#xB2 ?\u0120) ;; LATIN CAPITAL LETTER G WITH DOT ABOVE
-   (#xB3 ?\u0121) ;; LATIN SMALL LETTER G WITH DOT ABOVE
-   (#xB4 ?\u1E40) ;; LATIN CAPITAL LETTER M WITH DOT ABOVE
-   (#xB5 ?\u1E41) ;; LATIN SMALL LETTER M WITH DOT ABOVE
-   (#xB6 ?\u00B6) ;; PILCROW SIGN
-   (#xB7 ?\u1E56) ;; LATIN CAPITAL LETTER P WITH DOT ABOVE
-   (#xB8 ?\u1E81) ;; LATIN SMALL LETTER W WITH GRAVE
-   (#xB9 ?\u1E57) ;; LATIN SMALL LETTER P WITH DOT ABOVE
-   (#xBA ?\u1E83) ;; LATIN SMALL LETTER W WITH ACUTE
-   (#xBB ?\u1E60) ;; LATIN CAPITAL LETTER S WITH DOT ABOVE
-   (#xBC ?\u1EF3) ;; LATIN SMALL LETTER Y WITH GRAVE
-   (#xBD ?\u1E84) ;; LATIN CAPITAL LETTER W WITH DIAERESIS
-   (#xBE ?\u1E85) ;; LATIN SMALL LETTER W WITH DIAERESIS
-   (#xBF ?\u1E61) ;; LATIN SMALL LETTER S WITH DOT ABOVE
-   (#xC0 ?\u00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
-   (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
-   (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-   (#xC3 ?\u00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
-   (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
-   (#xC5 ?\u00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
-   (#xC6 ?\u00C6) ;; LATIN CAPITAL LETTER AE
-   (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
-   (#xC8 ?\u00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
-   (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
-   (#xCA ?\u00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-   (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
-   (#xCC ?\u00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
-   (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
-   (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-   (#xCF ?\u00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
-   (#xD0 ?\u0174) ;; LATIN CAPITAL LETTER W WITH CIRCUMFLEX
-   (#xD1 ?\u00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
-   (#xD2 ?\u00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
-   (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
-   (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-   (#xD5 ?\u00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
-   (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
-   (#xD7 ?\u1E6A) ;; LATIN CAPITAL LETTER T WITH DOT ABOVE
-   (#xD8 ?\u00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
-   (#xD9 ?\u00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
-   (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
-   (#xDB ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-   (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
-   (#xDD ?\u00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE
-   (#xDE ?\u0176) ;; LATIN CAPITAL LETTER Y WITH CIRCUMFLEX
-   (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
-   (#xE0 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE
-   (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
-   (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
-   (#xE3 ?\u00E3) ;; LATIN SMALL LETTER A WITH TILDE
-   (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
-   (#xE5 ?\u00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
-   (#xE6 ?\u00E6) ;; LATIN SMALL LETTER AE
-   (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
-   (#xE8 ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE
-   (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
-   (#xEA ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
-   (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
-   (#xEC ?\u00EC) ;; LATIN SMALL LETTER I WITH GRAVE
-   (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
-   (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
-   (#xEF ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
-   (#xF0 ?\u0175) ;; LATIN SMALL LETTER W WITH CIRCUMFLEX
-   (#xF1 ?\u00F1) ;; LATIN SMALL LETTER N WITH TILDE
-   (#xF2 ?\u00F2) ;; LATIN SMALL LETTER O WITH GRAVE
-   (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
-   (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
-   (#xF5 ?\u00F5) ;; LATIN SMALL LETTER O WITH TILDE
-   (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
-   (#xF7 ?\u1E6B) ;; LATIN SMALL LETTER T WITH DOT ABOVE
-   (#xF8 ?\u00F8) ;; LATIN SMALL LETTER O WITH STROKE
-   (#xF9 ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE
-   (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
-   (#xFB ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
-   (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
-   (#xFD ?\u00FD) ;; LATIN SMALL LETTER Y WITH ACUTE
-   (#xFE ?\u0177) ;; LATIN SMALL LETTER Y WITH CIRCUMFLEX
-   (#xFF ?\u00FF)) ;; LATIN SMALL LETTER Y WITH DIAERESIS
- "ISO-8859-14 (Latin-8)"
- '(mnemonic "Latin 8"
+(make-coding-system
+ 'iso-8859-14 'fixed-width "ISO-8859-14 (Latin-8)"
+ '(unicode-map
+   ((#x80 ?\u0080) ;; <control>
+    (#x81 ?\u0081) ;; <control>
+    (#x82 ?\u0082) ;; <control>
+    (#x83 ?\u0083) ;; <control>
+    (#x84 ?\u0084) ;; <control>
+    (#x85 ?\u0085) ;; <control>
+    (#x86 ?\u0086) ;; <control>
+    (#x87 ?\u0087) ;; <control>
+    (#x88 ?\u0088) ;; <control>
+    (#x89 ?\u0089) ;; <control>
+    (#x8A ?\u008A) ;; <control>
+    (#x8B ?\u008B) ;; <control>
+    (#x8C ?\u008C) ;; <control>
+    (#x8D ?\u008D) ;; <control>
+    (#x8E ?\u008E) ;; <control>
+    (#x8F ?\u008F) ;; <control>
+    (#x90 ?\u0090) ;; <control>
+    (#x91 ?\u0091) ;; <control>
+    (#x92 ?\u0092) ;; <control>
+    (#x93 ?\u0093) ;; <control>
+    (#x94 ?\u0094) ;; <control>
+    (#x95 ?\u0095) ;; <control>
+    (#x96 ?\u0096) ;; <control>
+    (#x97 ?\u0097) ;; <control>
+    (#x98 ?\u0098) ;; <control>
+    (#x99 ?\u0099) ;; <control>
+    (#x9A ?\u009A) ;; <control>
+    (#x9B ?\u009B) ;; <control>
+    (#x9C ?\u009C) ;; <control>
+    (#x9D ?\u009D) ;; <control>
+    (#x9E ?\u009E) ;; <control>
+    (#x9F ?\u009F) ;; <control>
+    (#xA0 ?\u00A0) ;; NO-BREAK SPACE
+    (#xA1 ?\u1E02) ;; LATIN CAPITAL LETTER B WITH DOT ABOVE
+    (#xA2 ?\u1E03) ;; LATIN SMALL LETTER B WITH DOT ABOVE
+    (#xA3 ?\u00A3) ;; POUND SIGN
+    (#xA4 ?\u010A) ;; LATIN CAPITAL LETTER C WITH DOT ABOVE
+    (#xA5 ?\u010B) ;; LATIN SMALL LETTER C WITH DOT ABOVE
+    (#xA6 ?\u1E0A) ;; LATIN CAPITAL LETTER D WITH DOT ABOVE
+    (#xA7 ?\u00A7) ;; SECTION SIGN
+    (#xA8 ?\u1E80) ;; LATIN CAPITAL LETTER W WITH GRAVE
+    (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
+    (#xAA ?\u1E82) ;; LATIN CAPITAL LETTER W WITH ACUTE
+    (#xAB ?\u1E0B) ;; LATIN SMALL LETTER D WITH DOT ABOVE
+    (#xAC ?\u1EF2) ;; LATIN CAPITAL LETTER Y WITH GRAVE
+    (#xAD ?\u00AD) ;; SOFT HYPHEN
+    (#xAE ?\u00AE) ;; REGISTERED SIGN
+    (#xAF ?\u0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS
+    (#xB0 ?\u1E1E) ;; LATIN CAPITAL LETTER F WITH DOT ABOVE
+    (#xB1 ?\u1E1F) ;; LATIN SMALL LETTER F WITH DOT ABOVE
+    (#xB2 ?\u0120) ;; LATIN CAPITAL LETTER G WITH DOT ABOVE
+    (#xB3 ?\u0121) ;; LATIN SMALL LETTER G WITH DOT ABOVE
+    (#xB4 ?\u1E40) ;; LATIN CAPITAL LETTER M WITH DOT ABOVE
+    (#xB5 ?\u1E41) ;; LATIN SMALL LETTER M WITH DOT ABOVE
+    (#xB6 ?\u00B6) ;; PILCROW SIGN
+    (#xB7 ?\u1E56) ;; LATIN CAPITAL LETTER P WITH DOT ABOVE
+    (#xB8 ?\u1E81) ;; LATIN SMALL LETTER W WITH GRAVE
+    (#xB9 ?\u1E57) ;; LATIN SMALL LETTER P WITH DOT ABOVE
+    (#xBA ?\u1E83) ;; LATIN SMALL LETTER W WITH ACUTE
+    (#xBB ?\u1E60) ;; LATIN CAPITAL LETTER S WITH DOT ABOVE
+    (#xBC ?\u1EF3) ;; LATIN SMALL LETTER Y WITH GRAVE
+    (#xBD ?\u1E84) ;; LATIN CAPITAL LETTER W WITH DIAERESIS
+    (#xBE ?\u1E85) ;; LATIN SMALL LETTER W WITH DIAERESIS
+    (#xBF ?\u1E61) ;; LATIN SMALL LETTER S WITH DOT ABOVE
+    (#xC0 ?\u00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
+    (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
+    (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+    (#xC3 ?\u00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
+    (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
+    (#xC5 ?\u00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
+    (#xC6 ?\u00C6) ;; LATIN CAPITAL LETTER AE
+    (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
+    (#xC8 ?\u00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
+    (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
+    (#xCA ?\u00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+    (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
+    (#xCC ?\u00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
+    (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
+    (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+    (#xCF ?\u00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
+    (#xD0 ?\u0174) ;; LATIN CAPITAL LETTER W WITH CIRCUMFLEX
+    (#xD1 ?\u00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
+    (#xD2 ?\u00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
+    (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
+    (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+    (#xD5 ?\u00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
+    (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
+    (#xD7 ?\u1E6A) ;; LATIN CAPITAL LETTER T WITH DOT ABOVE
+    (#xD8 ?\u00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
+    (#xD9 ?\u00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
+    (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
+    (#xDB ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+    (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
+    (#xDD ?\u00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE
+    (#xDE ?\u0176) ;; LATIN CAPITAL LETTER Y WITH CIRCUMFLEX
+    (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
+    (#xE0 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE
+    (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
+    (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
+    (#xE3 ?\u00E3) ;; LATIN SMALL LETTER A WITH TILDE
+    (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
+    (#xE5 ?\u00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
+    (#xE6 ?\u00E6) ;; LATIN SMALL LETTER AE
+    (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
+    (#xE8 ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE
+    (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
+    (#xEA ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
+    (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
+    (#xEC ?\u00EC) ;; LATIN SMALL LETTER I WITH GRAVE
+    (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
+    (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
+    (#xEF ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
+    (#xF0 ?\u0175) ;; LATIN SMALL LETTER W WITH CIRCUMFLEX
+    (#xF1 ?\u00F1) ;; LATIN SMALL LETTER N WITH TILDE
+    (#xF2 ?\u00F2) ;; LATIN SMALL LETTER O WITH GRAVE
+    (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
+    (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
+    (#xF5 ?\u00F5) ;; LATIN SMALL LETTER O WITH TILDE
+    (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
+    (#xF7 ?\u1E6B) ;; LATIN SMALL LETTER T WITH DOT ABOVE
+    (#xF8 ?\u00F8) ;; LATIN SMALL LETTER O WITH STROKE
+    (#xF9 ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE
+    (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
+    (#xFB ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
+    (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
+    (#xFD ?\u00FD) ;; LATIN SMALL LETTER Y WITH ACUTE
+    (#xFE ?\u0177) ;; LATIN SMALL LETTER Y WITH CIRCUMFLEX
+    (#xFF ?\u00FF)) ;; LATIN SMALL LETTER Y WITH DIAERESIS
+   mnemonic "Latin 8"
    aliases (iso-latin-8 latin-8)))
 
 
@@ -1079,138 +1082,140 @@
    (#xDD #xFD) ;; Y WITH ACUTE
    (#xDE #xFE))) ;; THORN
 
-(make-8-bit-coding-system
- 'iso-8859-15 
- '((#x80 ?\u0080) ;; <control>
-   (#x81 ?\u0081) ;; <control>
-   (#x82 ?\u0082) ;; <control>
-   (#x83 ?\u0083) ;; <control>
-   (#x84 ?\u0084) ;; <control>
-   (#x85 ?\u0085) ;; <control>
-   (#x86 ?\u0086) ;; <control>
-   (#x87 ?\u0087) ;; <control>
-   (#x88 ?\u0088) ;; <control>
-   (#x89 ?\u0089) ;; <control>
-   (#x8A ?\u008A) ;; <control>
-   (#x8B ?\u008B) ;; <control>
-   (#x8C ?\u008C) ;; <control>
-   (#x8D ?\u008D) ;; <control>
-   (#x8E ?\u008E) ;; <control>
-   (#x8F ?\u008F) ;; <control>
-   (#x90 ?\u0090) ;; <control>
-   (#x91 ?\u0091) ;; <control>
-   (#x92 ?\u0092) ;; <control>
-   (#x93 ?\u0093) ;; <control>
-   (#x94 ?\u0094) ;; <control>
-   (#x95 ?\u0095) ;; <control>
-   (#x96 ?\u0096) ;; <control>
-   (#x97 ?\u0097) ;; <control>
-   (#x98 ?\u0098) ;; <control>
-   (#x99 ?\u0099) ;; <control>
-   (#x9A ?\u009A) ;; <control>
-   (#x9B ?\u009B) ;; <control>
-   (#x9C ?\u009C) ;; <control>
-   (#x9D ?\u009D) ;; <control>
-   (#x9E ?\u009E) ;; <control>
-   (#x9F ?\u009F) ;; <control>
-   (#xA0 ?\u00A0) ;; NO-BREAK SPACE
-   (#xA1 ?\u00A1) ;; INVERTED EXCLAMATION MARK
-   (#xA2 ?\u00A2) ;; CENT SIGN
-   (#xA3 ?\u00A3) ;; POUND SIGN
-   (#xA4 ?\u20AC) ;; EURO SIGN
-   (#xA5 ?\u00A5) ;; YEN SIGN
-   (#xA6 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
-   (#xA7 ?\u00A7) ;; SECTION SIGN
-   (#xA8 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
-   (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
-   (#xAA ?\u00AA) ;; FEMININE ORDINAL INDICATOR
-   (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-   (#xAC ?\u00AC) ;; NOT SIGN
-   (#xAD ?\u00AD) ;; SOFT HYPHEN
-   (#xAE ?\u00AE) ;; REGISTERED SIGN
-   (#xAF ?\u00AF) ;; MACRON
-   (#xB0 ?\u00B0) ;; DEGREE SIGN
-   (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
-   (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO
-   (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE
-   (#xB4 ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
-   (#xB5 ?\u00B5) ;; MICRO SIGN
-   (#xB6 ?\u00B6) ;; PILCROW SIGN
-   (#xB7 ?\u00B7) ;; MIDDLE DOT
-   (#xB8 ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
-   (#xB9 ?\u00B9) ;; SUPERSCRIPT ONE
-   (#xBA ?\u00BA) ;; MASCULINE ORDINAL INDICATOR
-   (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-   (#xBC ?\u0152) ;; LATIN CAPITAL LIGATURE OE
-   (#xBD ?\u0153) ;; LATIN SMALL LIGATURE OE
-   (#xBE ?\u0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS
-   (#xBF ?\u00BF) ;; INVERTED QUESTION MARK
-   (#xC0 ?\u00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
-   (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
-   (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-   (#xC3 ?\u00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
-   (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
-   (#xC5 ?\u00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
-   (#xC6 ?\u00C6) ;; LATIN CAPITAL LETTER AE
-   (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
-   (#xC8 ?\u00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
-   (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
-   (#xCA ?\u00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-   (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
-   (#xCC ?\u00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
-   (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
-   (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-   (#xCF ?\u00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
-   (#xD0 ?\u00D0) ;; LATIN CAPITAL LETTER ETH
-   (#xD1 ?\u00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
-   (#xD2 ?\u00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
-   (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
-   (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-   (#xD5 ?\u00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
-   (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
-   (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN
-   (#xD8 ?\u00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
-   (#xD9 ?\u00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
-   (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
-   (#xDB ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-   (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
-   (#xDD ?\u00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE
-   (#xDE ?\u00DE) ;; LATIN CAPITAL LETTER THORN
-   (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
-   (#xE0 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE
-   (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
-   (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
-   (#xE3 ?\u00E3) ;; LATIN SMALL LETTER A WITH TILDE
-   (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
-   (#xE5 ?\u00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
-   (#xE6 ?\u00E6) ;; LATIN SMALL LETTER AE
-   (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
-   (#xE8 ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE
-   (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
-   (#xEA ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
-   (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
-   (#xEC ?\u00EC) ;; LATIN SMALL LETTER I WITH GRAVE
-   (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
-   (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
-   (#xEF ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
-   (#xF0 ?\u00F0) ;; LATIN SMALL LETTER ETH
-   (#xF1 ?\u00F1) ;; LATIN SMALL LETTER N WITH TILDE
-   (#xF2 ?\u00F2) ;; LATIN SMALL LETTER O WITH GRAVE
-   (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
-   (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
-   (#xF5 ?\u00F5) ;; LATIN SMALL LETTER O WITH TILDE
-   (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
-   (#xF7 ?\u00F7) ;; DIVISION SIGN
-   (#xF8 ?\u00F8) ;; LATIN SMALL LETTER O WITH STROKE
-   (#xF9 ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE
-   (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
-   (#xFB ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
-   (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
-   (#xFD ?\u00FD) ;; LATIN SMALL LETTER Y WITH ACUTE
-   (#xFE ?\u00FE) ;; LATIN SMALL LETTER THORN
-   (#xFF ?\u00FF)) ;; LATIN SMALL LETTER Y WITH DIAERESIS
- "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)"
-  '(mnemonic "Latin 9"
+(make-coding-system
+ 'iso-8859-15 'fixed-width "ISO-8859-15 (Latin-9"
+ '(unicode-map
+   ((#x80 ?\u0080) ;; <control>
+    (#x81 ?\u0081) ;; <control>
+    (#x82 ?\u0082) ;; <control>
+    (#x83 ?\u0083) ;; <control>
+    (#x84 ?\u0084) ;; <control>
+    (#x85 ?\u0085) ;; <control>
+    (#x86 ?\u0086) ;; <control>
+    (#x87 ?\u0087) ;; <control>
+    (#x88 ?\u0088) ;; <control>
+    (#x89 ?\u0089) ;; <control>
+    (#x8A ?\u008A) ;; <control>
+    (#x8B ?\u008B) ;; <control>
+    (#x8C ?\u008C) ;; <control>
+    (#x8D ?\u008D) ;; <control>
+    (#x8E ?\u008E) ;; <control>
+    (#x8F ?\u008F) ;; <control>
+    (#x90 ?\u0090) ;; <control>
+    (#x91 ?\u0091) ;; <control>
+    (#x92 ?\u0092) ;; <control>
+    (#x93 ?\u0093) ;; <control>
+    (#x94 ?\u0094) ;; <control>
+    (#x95 ?\u0095) ;; <control>
+    (#x96 ?\u0096) ;; <control>
+    (#x97 ?\u0097) ;; <control>
+    (#x98 ?\u0098) ;; <control>
+    (#x99 ?\u0099) ;; <control>
+    (#x9A ?\u009A) ;; <control>
+    (#x9B ?\u009B) ;; <control>
+    (#x9C ?\u009C) ;; <control>
+    (#x9D ?\u009D) ;; <control>
+    (#x9E ?\u009E) ;; <control>
+    (#x9F ?\u009F) ;; <control>
+    (#xA0 ?\u00A0) ;; NO-BREAK SPACE
+    (#xA1 ?\u00A1) ;; INVERTED EXCLAMATION MARK
+    (#xA2 ?\u00A2) ;; CENT SIGN
+    (#xA3 ?\u00A3) ;; POUND SIGN
+    (#xA4 ?\u20AC) ;; EURO SIGN
+    (#xA5 ?\u00A5) ;; YEN SIGN
+    (#xA6 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
+    (#xA7 ?\u00A7) ;; SECTION SIGN
+    (#xA8 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
+    (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
+    (#xAA ?\u00AA) ;; FEMININE ORDINAL INDICATOR
+    (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+    (#xAC ?\u00AC) ;; NOT SIGN
+    (#xAD ?\u00AD) ;; SOFT HYPHEN
+    (#xAE ?\u00AE) ;; REGISTERED SIGN
+    (#xAF ?\u00AF) ;; MACRON
+    (#xB0 ?\u00B0) ;; DEGREE SIGN
+    (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
+    (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO
+    (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE
+    (#xB4 ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
+    (#xB5 ?\u00B5) ;; MICRO SIGN
+    (#xB6 ?\u00B6) ;; PILCROW SIGN
+    (#xB7 ?\u00B7) ;; MIDDLE DOT
+    (#xB8 ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
+    (#xB9 ?\u00B9) ;; SUPERSCRIPT ONE
+    (#xBA ?\u00BA) ;; MASCULINE ORDINAL INDICATOR
+    (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+    (#xBC ?\u0152) ;; LATIN CAPITAL LIGATURE OE
+    (#xBD ?\u0153) ;; LATIN SMALL LIGATURE OE
+    (#xBE ?\u0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS
+    (#xBF ?\u00BF) ;; INVERTED QUESTION MARK
+    (#xC0 ?\u00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
+    (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
+    (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+    (#xC3 ?\u00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
+    (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
+    (#xC5 ?\u00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
+    (#xC6 ?\u00C6) ;; LATIN CAPITAL LETTER AE
+    (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
+    (#xC8 ?\u00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
+    (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
+    (#xCA ?\u00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+    (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
+    (#xCC ?\u00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
+    (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
+    (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+    (#xCF ?\u00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
+    (#xD0 ?\u00D0) ;; LATIN CAPITAL LETTER ETH
+    (#xD1 ?\u00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
+    (#xD2 ?\u00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
+    (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
+    (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+    (#xD5 ?\u00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
+    (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
+    (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN
+    (#xD8 ?\u00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
+    (#xD9 ?\u00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
+    (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
+    (#xDB ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+    (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
+    (#xDD ?\u00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE
+    (#xDE ?\u00DE) ;; LATIN CAPITAL LETTER THORN
+    (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
+    (#xE0 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE
+    (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
+    (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
+    (#xE3 ?\u00E3) ;; LATIN SMALL LETTER A WITH TILDE
+    (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
+    (#xE5 ?\u00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
+    (#xE6 ?\u00E6) ;; LATIN SMALL LETTER AE
+    (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
+    (#xE8 ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE
+    (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
+    (#xEA ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
+    (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
+    (#xEC ?\u00EC) ;; LATIN SMALL LETTER I WITH GRAVE
+    (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
+    (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
+    (#xEF ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
+    (#xF0 ?\u00F0) ;; LATIN SMALL LETTER ETH
+    (#xF1 ?\u00F1) ;; LATIN SMALL LETTER N WITH TILDE
+    (#xF2 ?\u00F2) ;; LATIN SMALL LETTER O WITH GRAVE
+    (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
+    (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
+    (#xF5 ?\u00F5) ;; LATIN SMALL LETTER O WITH TILDE
+    (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
+    (#xF7 ?\u00F7) ;; DIVISION SIGN
+    (#xF8 ?\u00F8) ;; LATIN SMALL LETTER O WITH STROKE
+    (#xF9 ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE
+    (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
+    (#xFB ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
+    (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
+    (#xFD ?\u00FD) ;; LATIN SMALL LETTER Y WITH ACUTE
+    (#xFE ?\u00FE) ;; LATIN SMALL LETTER THORN
+    (#xFF ?\u00FF)) ;; LATIN SMALL LETTER Y WITH DIAERESIS
+   documentation "ISO 4873 conforming 8-bit code.
+(ASCII + Latin 9; aka Latin-1 with Euro)"
+    mnemonic "Latin 9"
     aliases (iso-latin-9 latin-9 latin-0)))
 
 ;; end of ISO 8859-15. 
@@ -1309,138 +1314,138 @@
    (#xDE #xFE))) ;; T WITH COMMA BELOW
 
 ;; Add a coding system for ISO 8859-16.
-(make-8-bit-coding-system
- 'iso-8859-16
- '((#x80 ?\u0080) ;; <control>
-   (#x81 ?\u0081) ;; <control>
-   (#x82 ?\u0082) ;; <control>
-   (#x83 ?\u0083) ;; <control>
-   (#x84 ?\u0084) ;; <control>
-   (#x85 ?\u0085) ;; <control>
-   (#x86 ?\u0086) ;; <control>
-   (#x87 ?\u0087) ;; <control>
-   (#x88 ?\u0088) ;; <control>
-   (#x89 ?\u0089) ;; <control>
-   (#x8A ?\u008A) ;; <control>
-   (#x8B ?\u008B) ;; <control>
-   (#x8C ?\u008C) ;; <control>
-   (#x8D ?\u008D) ;; <control>
-   (#x8E ?\u008E) ;; <control>
-   (#x8F ?\u008F) ;; <control>
-   (#x90 ?\u0090) ;; <control>
-   (#x91 ?\u0091) ;; <control>
-   (#x92 ?\u0092) ;; <control>
-   (#x93 ?\u0093) ;; <control>
-   (#x94 ?\u0094) ;; <control>
-   (#x95 ?\u0095) ;; <control>
-   (#x96 ?\u0096) ;; <control>
-   (#x97 ?\u0097) ;; <control>
-   (#x98 ?\u0098) ;; <control>
-   (#x99 ?\u0099) ;; <control>
-   (#x9A ?\u009A) ;; <control>
-   (#x9B ?\u009B) ;; <control>
-   (#x9C ?\u009C) ;; <control>
-   (#x9D ?\u009D) ;; <control>
-   (#x9E ?\u009E) ;; <control>
-   (#x9F ?\u009F) ;; <control>
-   (#xA0 ?\u00A0) ;; NO-BREAK SPACE
-   (#xA1 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK
-   (#xA2 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK
-   (#xA3 ?\u0141) ;; LATIN CAPITAL LETTER L WITH STROKE
-   (#xA4 ?\u20AC) ;; EURO SIGN
-   (#xA5 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK
-   (#xA6 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
-   (#xA7 ?\u00A7) ;; SECTION SIGN
-   (#xA8 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
-   (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
-   (#xAA ?\u0218) ;; LATIN CAPITAL LETTER S WITH COMMA BELOW
-   (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-   (#xAC ?\u0179) ;; LATIN CAPITAL LETTER Z WITH ACUTE
-   (#xAD ?\u00AD) ;; SOFT HYPHEN
-   (#xAE ?\u017A) ;; LATIN SMALL LETTER Z WITH ACUTE
-   (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE
-   (#xB0 ?\u00B0) ;; DEGREE SIGN
-   (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
-   (#xB2 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON
-   (#xB3 ?\u0142) ;; LATIN SMALL LETTER L WITH STROKE
-   (#xB4 ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
-   (#xB5 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK
-   (#xB6 ?\u00B6) ;; PILCROW SIGN
-   (#xB7 ?\u00B7) ;; MIDDLE DOT
-   (#xB8 ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
-   (#xB9 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON
-   (#xBA ?\u0219) ;; LATIN SMALL LETTER S WITH COMMA BELOW
-   (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-   (#xBC ?\u0152) ;; LATIN CAPITAL LIGATURE OE
-   (#xBD ?\u0153) ;; LATIN SMALL LIGATURE OE
-   (#xBE ?\u0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS
-   (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE
-   (#xC0 ?\u00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
-   (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
-   (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-   (#xC3 ?\u0102) ;; LATIN CAPITAL LETTER A WITH BREVE
-   (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
-   (#xC5 ?\u0106) ;; LATIN CAPITAL LETTER C WITH ACUTE
-   (#xC6 ?\u00C6) ;; LATIN CAPITAL LETTER AE
-   (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
-   (#xC8 ?\u00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
-   (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
-   (#xCA ?\u00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-   (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
-   (#xCC ?\u00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
-   (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
-   (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-   (#xCF ?\u00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
-   (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE
-   (#xD1 ?\u0143) ;; LATIN CAPITAL LETTER N WITH ACUTE
-   (#xD2 ?\u00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
-   (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
-   (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-   (#xD5 ?\u0150) ;; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
-   (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
-   (#xD7 ?\u015A) ;; LATIN CAPITAL LETTER S WITH ACUTE
-   (#xD8 ?\u0170) ;; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
-   (#xD9 ?\u00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
-   (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
-   (#xDB ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-   (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
-   (#xDD ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK
-   (#xDE ?\u021A) ;; LATIN CAPITAL LETTER T WITH COMMA BELOW
-   (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
-   (#xE0 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE
-   (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
-   (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
-   (#xE3 ?\u0103) ;; LATIN SMALL LETTER A WITH BREVE
-   (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
-   (#xE5 ?\u0107) ;; LATIN SMALL LETTER C WITH ACUTE
-   (#xE6 ?\u00E6) ;; LATIN SMALL LETTER AE
-   (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
-   (#xE8 ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE
-   (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
-   (#xEA ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
-   (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
-   (#xEC ?\u00EC) ;; LATIN SMALL LETTER I WITH GRAVE
-   (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
-   (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
-   (#xEF ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
-   (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE
-   (#xF1 ?\u0144) ;; LATIN SMALL LETTER N WITH ACUTE
-   (#xF2 ?\u00F2) ;; LATIN SMALL LETTER O WITH GRAVE
-   (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
-   (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
-   (#xF5 ?\u0151) ;; LATIN SMALL LETTER O WITH DOUBLE ACUTE
-   (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
-   (#xF7 ?\u015B) ;; LATIN SMALL LETTER S WITH ACUTE
-   (#xF8 ?\u0171) ;; LATIN SMALL LETTER U WITH DOUBLE ACUTE
-   (#xF9 ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE
-   (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
-   (#xFB ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
-   (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
-   (#xFD ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK
-   (#xFE ?\u021B) ;; LATIN SMALL LETTER T WITH COMMA BELOW
-   (#xFF ?\u00FF)) ;; LATIN SMALL LETTER Y WITH DIAERESIS
- "ISO-8859-16 (Latin-10)"
- '(mnemonic "Latin 10"
+(make-coding-system
+ 'iso-8859-16 'fixed-width "ISO-8859-16 (Latin-10)"
+ '(unicode-map
+   ((#x80 ?\u0080) ;; <control>
+    (#x81 ?\u0081) ;; <control>
+    (#x82 ?\u0082) ;; <control>
+    (#x83 ?\u0083) ;; <control>
+    (#x84 ?\u0084) ;; <control>
+    (#x85 ?\u0085) ;; <control>
+    (#x86 ?\u0086) ;; <control>
+    (#x87 ?\u0087) ;; <control>
+    (#x88 ?\u0088) ;; <control>
+    (#x89 ?\u0089) ;; <control>
+    (#x8A ?\u008A) ;; <control>
+    (#x8B ?\u008B) ;; <control>
+    (#x8C ?\u008C) ;; <control>
+    (#x8D ?\u008D) ;; <control>
+    (#x8E ?\u008E) ;; <control>
+    (#x8F ?\u008F) ;; <control>
+    (#x90 ?\u0090) ;; <control>
+    (#x91 ?\u0091) ;; <control>
+    (#x92 ?\u0092) ;; <control>
+    (#x93 ?\u0093) ;; <control>
+    (#x94 ?\u0094) ;; <control>
+    (#x95 ?\u0095) ;; <control>
+    (#x96 ?\u0096) ;; <control>
+    (#x97 ?\u0097) ;; <control>
+    (#x98 ?\u0098) ;; <control>
+    (#x99 ?\u0099) ;; <control>
+    (#x9A ?\u009A) ;; <control>
+    (#x9B ?\u009B) ;; <control>
+    (#x9C ?\u009C) ;; <control>
+    (#x9D ?\u009D) ;; <control>
+    (#x9E ?\u009E) ;; <control>
+    (#x9F ?\u009F) ;; <control>
+    (#xA0 ?\u00A0) ;; NO-BREAK SPACE
+    (#xA1 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK
+    (#xA2 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK
+    (#xA3 ?\u0141) ;; LATIN CAPITAL LETTER L WITH STROKE
+    (#xA4 ?\u20AC) ;; EURO SIGN
+    (#xA5 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK
+    (#xA6 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
+    (#xA7 ?\u00A7) ;; SECTION SIGN
+    (#xA8 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
+    (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
+    (#xAA ?\u0218) ;; LATIN CAPITAL LETTER S WITH COMMA BELOW
+    (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+    (#xAC ?\u0179) ;; LATIN CAPITAL LETTER Z WITH ACUTE
+    (#xAD ?\u00AD) ;; SOFT HYPHEN
+    (#xAE ?\u017A) ;; LATIN SMALL LETTER Z WITH ACUTE
+    (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE
+    (#xB0 ?\u00B0) ;; DEGREE SIGN
+    (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
+    (#xB2 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON
+    (#xB3 ?\u0142) ;; LATIN SMALL LETTER L WITH STROKE
+    (#xB4 ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
+    (#xB5 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK
+    (#xB6 ?\u00B6) ;; PILCROW SIGN
+    (#xB7 ?\u00B7) ;; MIDDLE DOT
+    (#xB8 ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
+    (#xB9 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON
+    (#xBA ?\u0219) ;; LATIN SMALL LETTER S WITH COMMA BELOW
+    (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+    (#xBC ?\u0152) ;; LATIN CAPITAL LIGATURE OE
+    (#xBD ?\u0153) ;; LATIN SMALL LIGATURE OE
+    (#xBE ?\u0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS
+    (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE
+    (#xC0 ?\u00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
+    (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
+    (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+    (#xC3 ?\u0102) ;; LATIN CAPITAL LETTER A WITH BREVE
+    (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
+    (#xC5 ?\u0106) ;; LATIN CAPITAL LETTER C WITH ACUTE
+    (#xC6 ?\u00C6) ;; LATIN CAPITAL LETTER AE
+    (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
+    (#xC8 ?\u00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
+    (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
+    (#xCA ?\u00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+    (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
+    (#xCC ?\u00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
+    (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
+    (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+    (#xCF ?\u00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
+    (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE
+    (#xD1 ?\u0143) ;; LATIN CAPITAL LETTER N WITH ACUTE
+    (#xD2 ?\u00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
+    (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
+    (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+    (#xD5 ?\u0150) ;; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+    (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
+    (#xD7 ?\u015A) ;; LATIN CAPITAL LETTER S WITH ACUTE
+    (#xD8 ?\u0170) ;; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+    (#xD9 ?\u00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
+    (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
+    (#xDB ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+    (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
+    (#xDD ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK
+    (#xDE ?\u021A) ;; LATIN CAPITAL LETTER T WITH COMMA BELOW
+    (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
+    (#xE0 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE
+    (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
+    (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
+    (#xE3 ?\u0103) ;; LATIN SMALL LETTER A WITH BREVE
+    (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
+    (#xE5 ?\u0107) ;; LATIN SMALL LETTER C WITH ACUTE
+    (#xE6 ?\u00E6) ;; LATIN SMALL LETTER AE
+    (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
+    (#xE8 ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE
+    (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
+    (#xEA ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
+    (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
+    (#xEC ?\u00EC) ;; LATIN SMALL LETTER I WITH GRAVE
+    (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
+    (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
+    (#xEF ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
+    (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE
+    (#xF1 ?\u0144) ;; LATIN SMALL LETTER N WITH ACUTE
+    (#xF2 ?\u00F2) ;; LATIN SMALL LETTER O WITH GRAVE
+    (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
+    (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
+    (#xF5 ?\u0151) ;; LATIN SMALL LETTER O WITH DOUBLE ACUTE
+    (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
+    (#xF7 ?\u015B) ;; LATIN SMALL LETTER S WITH ACUTE
+    (#xF8 ?\u0171) ;; LATIN SMALL LETTER U WITH DOUBLE ACUTE
+    (#xF9 ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE
+    (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
+    (#xFB ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
+    (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
+    (#xFD ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK
+    (#xFE ?\u021B) ;; LATIN SMALL LETTER T WITH COMMA BELOW
+    (#xFF ?\u00FF)) ;; LATIN SMALL LETTER Y WITH DIAERESIS
+   mnemonic "Latin 10"
    aliases (iso-latin-10)))
 
 ;; end of ISO 8859-16. 
@@ -1517,138 +1522,138 @@
                 (make-char 'latin-iso8859-9 #xfd)
                 ?I (standard-case-table))
 
-(make-8-bit-coding-system
- 'iso-8859-9 
- '((#x80 ?\u0080) ;; <control>
-   (#x81 ?\u0081) ;; <control>
-   (#x82 ?\u0082) ;; <control>
-   (#x83 ?\u0083) ;; <control>
-   (#x84 ?\u0084) ;; <control>
-   (#x85 ?\u0085) ;; <control>
-   (#x86 ?\u0086) ;; <control>
-   (#x87 ?\u0087) ;; <control>
-   (#x88 ?\u0088) ;; <control>
-   (#x89 ?\u0089) ;; <control>
-   (#x8A ?\u008A) ;; <control>
-   (#x8B ?\u008B) ;; <control>
-   (#x8C ?\u008C) ;; <control>
-   (#x8D ?\u008D) ;; <control>
-   (#x8E ?\u008E) ;; <control>
-   (#x8F ?\u008F) ;; <control>
-   (#x90 ?\u0090) ;; <control>
-   (#x91 ?\u0091) ;; <control>
-   (#x92 ?\u0092) ;; <control>
-   (#x93 ?\u0093) ;; <control>
-   (#x94 ?\u0094) ;; <control>
-   (#x95 ?\u0095) ;; <control>
-   (#x96 ?\u0096) ;; <control>
-   (#x97 ?\u0097) ;; <control>
-   (#x98 ?\u0098) ;; <control>
-   (#x99 ?\u0099) ;; <control>
-   (#x9A ?\u009A) ;; <control>
-   (#x9B ?\u009B) ;; <control>
-   (#x9C ?\u009C) ;; <control>
-   (#x9D ?\u009D) ;; <control>
-   (#x9E ?\u009E) ;; <control>
-   (#x9F ?\u009F) ;; <control>
-   (#xA0 ?\u00A0) ;; NO-BREAK SPACE
-   (#xA1 ?\u00A1) ;; INVERTED EXCLAMATION MARK
-   (#xA2 ?\u00A2) ;; CENT SIGN
-   (#xA3 ?\u00A3) ;; POUND SIGN
-   (#xA4 ?\u00A4) ;; CURRENCY SIGN
-   (#xA5 ?\u00A5) ;; YEN SIGN
-   (#xA6 ?\u00A6) ;; BROKEN BAR
-   (#xA7 ?\u00A7) ;; SECTION SIGN
-   (#xA8 ?\u00A8) ;; DIAERESIS
-   (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
-   (#xAA ?\u00AA) ;; FEMININE ORDINAL INDICATOR
-   (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-   (#xAC ?\u00AC) ;; NOT SIGN
-   (#xAD ?\u00AD) ;; SOFT HYPHEN
-   (#xAE ?\u00AE) ;; REGISTERED SIGN
-   (#xAF ?\u00AF) ;; MACRON
-   (#xB0 ?\u00B0) ;; DEGREE SIGN
-   (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
-   (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO
-   (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE
-   (#xB4 ?\u00B4) ;; ACUTE ACCENT
-   (#xB5 ?\u00B5) ;; MICRO SIGN
-   (#xB6 ?\u00B6) ;; PILCROW SIGN
-   (#xB7 ?\u00B7) ;; MIDDLE DOT
-   (#xB8 ?\u00B8) ;; CEDILLA
-   (#xB9 ?\u00B9) ;; SUPERSCRIPT ONE
-   (#xBA ?\u00BA) ;; MASCULINE ORDINAL INDICATOR
-   (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-   (#xBC ?\u00BC) ;; VULGAR FRACTION ONE QUARTER
-   (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF
-   (#xBE ?\u00BE) ;; VULGAR FRACTION THREE QUARTERS
-   (#xBF ?\u00BF) ;; INVERTED QUESTION MARK
-   (#xC0 ?\u00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
-   (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
-   (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-   (#xC3 ?\u00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
-   (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
-   (#xC5 ?\u00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
-   (#xC6 ?\u00C6) ;; LATIN CAPITAL LETTER AE
-   (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
-   (#xC8 ?\u00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
-   (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
-   (#xCA ?\u00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-   (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
-   (#xCC ?\u00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
-   (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
-   (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-   (#xCF ?\u00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
-   (#xD0 ?\u011E) ;; LATIN CAPITAL LETTER G WITH BREVE
-   (#xD1 ?\u00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
-   (#xD2 ?\u00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
-   (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
-   (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-   (#xD5 ?\u00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
-   (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
-   (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN
-   (#xD8 ?\u00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
-   (#xD9 ?\u00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
-   (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
-   (#xDB ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-   (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
-   (#xDD ?\u0130) ;; LATIN CAPITAL LETTER I WITH DOT ABOVE
-   (#xDE ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA
-   (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
-   (#xE0 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE
-   (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
-   (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
-   (#xE3 ?\u00E3) ;; LATIN SMALL LETTER A WITH TILDE
-   (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
-   (#xE5 ?\u00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
-   (#xE6 ?\u00E6) ;; LATIN SMALL LETTER AE
-   (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
-   (#xE8 ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE
-   (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
-   (#xEA ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
-   (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
-   (#xEC ?\u00EC) ;; LATIN SMALL LETTER I WITH GRAVE
-   (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
-   (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
-   (#xEF ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
-   (#xF0 ?\u011F) ;; LATIN SMALL LETTER G WITH BREVE
-   (#xF1 ?\u00F1) ;; LATIN SMALL LETTER N WITH TILDE
-   (#xF2 ?\u00F2) ;; LATIN SMALL LETTER O WITH GRAVE
-   (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
-   (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
-   (#xF5 ?\u00F5) ;; LATIN SMALL LETTER O WITH TILDE
-   (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
-   (#xF7 ?\u00F7) ;; DIVISION SIGN
-   (#xF8 ?\u00F8) ;; LATIN SMALL LETTER O WITH STROKE
-   (#xF9 ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE
-   (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
-   (#xFB ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
-   (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
-   (#xFD ?\u0131) ;; LATIN SMALL LETTER DOTLESS I
-   (#xFE ?\u015F) ;; LATIN SMALL LETTER S WITH CEDILLA
-   (#xFF ?\u00FF)) ;; LATIN SMALL LETTER Y WITH DIAERESIS
- "ISO-8859-9 (Latin-5)"
- '(mnemonic "Latin 5"
+(make-coding-system
+ 'iso-8859-9 'fixed-width "ISO-8859-9 (Latin-5)"
+ '(unicode-map
+   ((#x80 ?\u0080) ;; <control>
+    (#x81 ?\u0081) ;; <control>
+    (#x82 ?\u0082) ;; <control>
+    (#x83 ?\u0083) ;; <control>
+    (#x84 ?\u0084) ;; <control>
+    (#x85 ?\u0085) ;; <control>
+    (#x86 ?\u0086) ;; <control>
+    (#x87 ?\u0087) ;; <control>
+    (#x88 ?\u0088) ;; <control>
+    (#x89 ?\u0089) ;; <control>
+    (#x8A ?\u008A) ;; <control>
+    (#x8B ?\u008B) ;; <control>
+    (#x8C ?\u008C) ;; <control>
+    (#x8D ?\u008D) ;; <control>
+    (#x8E ?\u008E) ;; <control>
+    (#x8F ?\u008F) ;; <control>
+    (#x90 ?\u0090) ;; <control>
+    (#x91 ?\u0091) ;; <control>
+    (#x92 ?\u0092) ;; <control>
+    (#x93 ?\u0093) ;; <control>
+    (#x94 ?\u0094) ;; <control>
+    (#x95 ?\u0095) ;; <control>
+    (#x96 ?\u0096) ;; <control>
+    (#x97 ?\u0097) ;; <control>
+    (#x98 ?\u0098) ;; <control>
+    (#x99 ?\u0099) ;; <control>
+    (#x9A ?\u009A) ;; <control>
+    (#x9B ?\u009B) ;; <control>
+    (#x9C ?\u009C) ;; <control>
+    (#x9D ?\u009D) ;; <control>
+    (#x9E ?\u009E) ;; <control>
+    (#x9F ?\u009F) ;; <control>
+    (#xA0 ?\u00A0) ;; NO-BREAK SPACE
+    (#xA1 ?\u00A1) ;; INVERTED EXCLAMATION MARK
+    (#xA2 ?\u00A2) ;; CENT SIGN
+    (#xA3 ?\u00A3) ;; POUND SIGN
+    (#xA4 ?\u00A4) ;; CURRENCY SIGN
+    (#xA5 ?\u00A5) ;; YEN SIGN
+    (#xA6 ?\u00A6) ;; BROKEN BAR
+    (#xA7 ?\u00A7) ;; SECTION SIGN
+    (#xA8 ?\u00A8) ;; DIAERESIS
+    (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
+    (#xAA ?\u00AA) ;; FEMININE ORDINAL INDICATOR
+    (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+    (#xAC ?\u00AC) ;; NOT SIGN
+    (#xAD ?\u00AD) ;; SOFT HYPHEN
+    (#xAE ?\u00AE) ;; REGISTERED SIGN
+    (#xAF ?\u00AF) ;; MACRON
+    (#xB0 ?\u00B0) ;; DEGREE SIGN
+    (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
+    (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO
+    (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE
+    (#xB4 ?\u00B4) ;; ACUTE ACCENT
+    (#xB5 ?\u00B5) ;; MICRO SIGN
+    (#xB6 ?\u00B6) ;; PILCROW SIGN
+    (#xB7 ?\u00B7) ;; MIDDLE DOT
+    (#xB8 ?\u00B8) ;; CEDILLA
+    (#xB9 ?\u00B9) ;; SUPERSCRIPT ONE
+    (#xBA ?\u00BA) ;; MASCULINE ORDINAL INDICATOR
+    (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+    (#xBC ?\u00BC) ;; VULGAR FRACTION ONE QUARTER
+    (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF
+    (#xBE ?\u00BE) ;; VULGAR FRACTION THREE QUARTERS
+    (#xBF ?\u00BF) ;; INVERTED QUESTION MARK
+    (#xC0 ?\u00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
+    (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
+    (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+    (#xC3 ?\u00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
+    (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
+    (#xC5 ?\u00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
+    (#xC6 ?\u00C6) ;; LATIN CAPITAL LETTER AE
+    (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
+    (#xC8 ?\u00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
+    (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
+    (#xCA ?\u00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+    (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
+    (#xCC ?\u00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
+    (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
+    (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+    (#xCF ?\u00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
+    (#xD0 ?\u011E) ;; LATIN CAPITAL LETTER G WITH BREVE
+    (#xD1 ?\u00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
+    (#xD2 ?\u00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
+    (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
+    (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+    (#xD5 ?\u00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
+    (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
+    (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN
+    (#xD8 ?\u00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
+    (#xD9 ?\u00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
+    (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
+    (#xDB ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+    (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
+    (#xDD ?\u0130) ;; LATIN CAPITAL LETTER I WITH DOT ABOVE
+    (#xDE ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA
+    (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
+    (#xE0 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE
+    (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
+    (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
+    (#xE3 ?\u00E3) ;; LATIN SMALL LETTER A WITH TILDE
+    (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
+    (#xE5 ?\u00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
+    (#xE6 ?\u00E6) ;; LATIN SMALL LETTER AE
+    (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
+    (#xE8 ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE
+    (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
+    (#xEA ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
+    (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
+    (#xEC ?\u00EC) ;; LATIN SMALL LETTER I WITH GRAVE
+    (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
+    (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
+    (#xEF ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
+    (#xF0 ?\u011F) ;; LATIN SMALL LETTER G WITH BREVE
+    (#xF1 ?\u00F1) ;; LATIN SMALL LETTER N WITH TILDE
+    (#xF2 ?\u00F2) ;; LATIN SMALL LETTER O WITH GRAVE
+    (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
+    (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
+    (#xF5 ?\u00F5) ;; LATIN SMALL LETTER O WITH TILDE
+    (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
+    (#xF7 ?\u00F7) ;; DIVISION SIGN
+    (#xF8 ?\u00F8) ;; LATIN SMALL LETTER O WITH STROKE
+    (#xF9 ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE
+    (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
+    (#xFB ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
+    (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
+    (#xFD ?\u0131) ;; LATIN SMALL LETTER DOTLESS I
+    (#xFE ?\u015F) ;; LATIN SMALL LETTER S WITH CEDILLA
+    (#xFF ?\u00FF)) ;; LATIN SMALL LETTER Y WITH DIAERESIS
+   mnemonic "Latin 5"
    aliases (iso-latin-5 latin-5)))
 
 ;; end of ISO-8859-9
@@ -1734,8 +1739,8 @@
      (invalid-sequence-coding-system ,(or invalid-sequence-coding-system
                                           codesys))
      (documentation . ,(if (listp supported-langs) (car supported-langs)
-			 (format "\
-Generic language environment for %s (%s)." nice-charset-1 nice-charset-2))))
+			 (format "Generic language environment for %s (%s)."
+                                 nice-charset-1 nice-charset-2))))
    '("European"))
   (loop for (name locale tutorial sample-text input-method) in langenvs
     do
@@ -1752,8 +1757,8 @@
 			(tutorial-coding-system . ,codesys)))
        ,@(if sample-text `((sample-text . ,sample-text)))
        (input-method . ,(or input-method default-input))
-       (documentation . ,(format "\
-This language environment supports %s. " name)))
+       (documentation . ,(format "This language environment supports %s. "
+                                 name)))
      '("European"))))
 
 ;; The case table for Turkish is special:
@@ -1776,268 +1781,270 @@
                      ;; Restore the normal case mappings for the characters.
                      (put-case-table-pair ?I ?i (standard-case-table))))
 
-(make-8-bit-coding-system
- 'macintosh
- '((#x80 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
-   (#x81 ?\u00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
-   (#x82 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
-   (#x83 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
-   (#x84 ?\u00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
-   (#x85 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
-   (#x86 ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
-   (#x87 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
-   (#x88 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE
-   (#x89 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
-   (#x8A ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
-   (#x8B ?\u00E3) ;; LATIN SMALL LETTER A WITH TILDE
-   (#x8C ?\u00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
-   (#x8D ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
-   (#x8E ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
-   (#x8F ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE
-   (#x90 ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
-   (#x91 ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
-   (#x92 ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
-   (#x93 ?\u00EC) ;; LATIN SMALL LETTER I WITH GRAVE
-   (#x94 ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
-   (#x95 ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
-   (#x96 ?\u00F1) ;; LATIN SMALL LETTER N WITH TILDE
-   (#x97 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
-   (#x98 ?\u00F2) ;; LATIN SMALL LETTER O WITH GRAVE
-   (#x99 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
-   (#x9A ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
-   (#x9B ?\u00F5) ;; LATIN SMALL LETTER O WITH TILDE
-   (#x9C ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
-   (#x9D ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE
-   (#x9E ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
-   (#x9F ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
-   (#xA0 ?\u2020) ;; DAGGER
-   (#xA1 ?\u00B0) ;; DEGREE SIGN
-   (#xA2 ?\u00A2) ;; CENT SIGN
-   (#xA3 ?\u00A3) ;; POUND SIGN
-   (#xA4 ?\u00A7) ;; SECTION SIGN
-   (#xA5 ?\u2022) ;; BULLET
-   (#xA6 ?\u00B6) ;; PILCROW SIGN
-   (#xA7 ?\u00DF) ;; LATIN SMALL LETTER SHARP S
-   (#xA8 ?\u00AE) ;; REGISTERED SIGN
-   (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
-   (#xAA ?\u2122) ;; TRADE MARK SIGN
-   (#xAB ?\u00B4) ;; ACUTE ACCENT
-   (#xAC ?\u00A8) ;; DIAERESIS
-   (#xAD ?\u2260) ;; NOT EQUAL TO
-   (#xAE ?\u00C6) ;; LATIN CAPITAL LETTER AE
-   (#xAF ?\u00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
-   (#xB0 ?\u221E) ;; INFINITY
-   (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
-   (#xB2 ?\u2264) ;; LESS-THAN OR EQUAL TO
-   (#xB3 ?\u2265) ;; GREATER-THAN OR EQUAL TO
-   (#xB4 ?\u00A5) ;; YEN SIGN
-   (#xB5 ?\u00B5) ;; MICRO SIGN
-   (#xB6 ?\u2202) ;; PARTIAL DIFFERENTIAL
-   (#xB7 ?\u2211) ;; N-ARY SUMMATION
-   (#xB8 ?\u220F) ;; N-ARY PRODUCT
-   (#xB9 ?\u03C0) ;; GREEK SMALL LETTER PI
-   (#xBA ?\u222B) ;; INTEGRAL
-   (#xBB ?\u00AA) ;; FEMININE ORDINAL INDICATOR
-   (#xBC ?\u00BA) ;; MASCULINE ORDINAL INDICATOR
-   (#xBD ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA
-   (#xBE ?\u00E6) ;; LATIN SMALL LETTER AE
-   (#xBF ?\u00F8) ;; LATIN SMALL LETTER O WITH STROKE
-   (#xC0 ?\u00BF) ;; INVERTED QUESTION MARK
-   (#xC1 ?\u00A1) ;; INVERTED EXCLAMATION MARK
-   (#xC2 ?\u00AC) ;; NOT SIGN
-   (#xC3 ?\u221A) ;; SQUARE ROOT
-   (#xC4 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK
-   (#xC5 ?\u2248) ;; ALMOST EQUAL TO
-   (#xC6 ?\u2206) ;; INCREMENT
-   (#xC7 ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-   (#xC8 ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-   (#xC9 ?\u2026) ;; HORIZONTAL ELLIPSIS
-   (#xCA ?\u00A0) ;; NO-BREAK SPACE
-   (#xCB ?\u00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
-   (#xCC ?\u00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
-   (#xCD ?\u00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
-   (#xCE ?\u0152) ;; LATIN CAPITAL LIGATURE OE
-   (#xCF ?\u0153) ;; LATIN SMALL LIGATURE OE
-   (#xD0 ?\u2013) ;; EN DASH
-   (#xD1 ?\u2014) ;; EM DASH
-   (#xD2 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK
-   (#xD3 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK
-   (#xD4 ?\u2018) ;; LEFT SINGLE QUOTATION MARK
-   (#xD5 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK
-   (#xD6 ?\u00F7) ;; DIVISION SIGN
-   (#xD7 ?\u25CA) ;; LOZENGE
-   (#xD8 ?\u00FF) ;; LATIN SMALL LETTER Y WITH DIAERESIS
-   (#xD9 ?\u0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS
-   (#xDA ?\u2044) ;; FRACTION SLASH
-   (#xDB ?\u20AC) ;; EURO SIGN
-   (#xDC ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK
-   (#xDD ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
-   (#xDE ?\uFB01) ;; LATIN SMALL LIGATURE FI
-   (#xDF ?\uFB02) ;; LATIN SMALL LIGATURE FL
-   (#xE0 ?\u2021) ;; DOUBLE DAGGER
-   (#xE1 ?\u00B7) ;; MIDDLE DOT
-   (#xE2 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK
-   (#xE3 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK
-   (#xE4 ?\u2030) ;; PER MILLE SIGN
-   (#xE5 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-   (#xE6 ?\u00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-   (#xE7 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
-   (#xE8 ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
-   (#xE9 ?\u00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
-   (#xEA ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
-   (#xEB ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-   (#xEC ?\u00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
-   (#xED ?\u00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
-   (#xEE ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
-   (#xEF ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-   (#xF0 ?\uF8FF) ;; Apple logo
-   (#xF1 ?\u00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
-   (#xF2 ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
-   (#xF3 ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-   (#xF4 ?\u00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
-   (#xF5 ?\u0131) ;; LATIN SMALL LETTER DOTLESS I
-   (#xF6 ?\u02C6) ;; MODIFIER LETTER CIRCUMFLEX ACCENT
-   (#xF7 ?\u02DC) ;; SMALL TILDE
-   (#xF8 ?\u00AF) ;; MACRON
-   (#xF9 ?\u02D8) ;; BREVE
-   (#xFA ?\u02D9) ;; DOT ABOVE
-   (#xFB ?\u02DA) ;; RING ABOVE
-   (#xFC ?\u00B8) ;; CEDILLA
-   (#xFD ?\u02DD) ;; DOUBLE ACUTE ACCENT
-   (#xFE ?\u02DB) ;; OGONEK
-   (#xFF ?\u02C7)) ;; CARON
- "The Macintosh encoding for Western Europe and the Americas"
- '(mnemonic "MR"
-   documentation "MacRoman, MIME name macintosh"
-   aliases (cp10000 MacRoman mac-roman)))
-
-(make-8-bit-coding-system
- 'windows-1252
- '((#x80 ?\u20AC) ;; EURO SIGN
-   (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK
-   (#x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK
-   (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK
-   (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS
-   (#x86 ?\u2020) ;; DAGGER
-   (#x87 ?\u2021) ;; DOUBLE DAGGER
-   (#x88 ?\u02C6) ;; MODIFIER LETTER CIRCUMFLEX ACCENT
-   (#x89 ?\u2030) ;; PER MILLE SIGN
-   (#x8A ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
-   (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK
-   (#x8C ?\u0152) ;; LATIN CAPITAL LIGATURE OE
-   (#x8E ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
-   (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK
-   (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK
-   (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK
-   (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK
-   (#x95 ?\u2022) ;; BULLET
-   (#x96 ?\u2013) ;; EN DASH
-   (#x97 ?\u2014) ;; EM DASH
-   (#x98 ?\u02DC) ;; SMALL TILDE
-   (#x99 ?\u2122) ;; TRADE MARK SIGN
-   (#x9A ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
-   (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
-   (#x9C ?\u0153) ;; LATIN SMALL LIGATURE OE
-   (#x9E ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
-   (#x9F ?\u0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS
-   (#xA0 ?\u00A0) ;; NO-BREAK SPACE
-   (#xA1 ?\u00A1) ;; INVERTED EXCLAMATION MARK
-   (#xA2 ?\u00A2) ;; CENT SIGN
-   (#xA3 ?\u00A3) ;; POUND SIGN
-   (#xA4 ?\u00A4) ;; CURRENCY SIGN
-   (#xA5 ?\u00A5) ;; YEN SIGN
-   (#xA6 ?\u00A6) ;; BROKEN BAR
-   (#xA7 ?\u00A7) ;; SECTION SIGN
-   (#xA8 ?\u00A8) ;; DIAERESIS
-   (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
-   (#xAA ?\u00AA) ;; FEMININE ORDINAL INDICATOR
-   (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
-   (#xAC ?\u00AC) ;; NOT SIGN
-   (#xAD ?\u00AD) ;; SOFT HYPHEN
-   (#xAE ?\u00AE) ;; REGISTERED SIGN
-   (#xAF ?\u00AF) ;; MACRON
-   (#xB0 ?\u00B0) ;; DEGREE SIGN
-   (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
-   (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO
-   (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE
-   (#xB4 ?\u00B4) ;; ACUTE ACCENT
-   (#xB5 ?\u00B5) ;; MICRO SIGN
-   (#xB6 ?\u00B6) ;; PILCROW SIGN
-   (#xB7 ?\u00B7) ;; MIDDLE DOT
-   (#xB8 ?\u00B8) ;; CEDILLA
-   (#xB9 ?\u00B9) ;; SUPERSCRIPT ONE
-   (#xBA ?\u00BA) ;; MASCULINE ORDINAL INDICATOR
-   (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
-   (#xBC ?\u00BC) ;; VULGAR FRACTION ONE QUARTER
-   (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF
-   (#xBE ?\u00BE) ;; VULGAR FRACTION THREE QUARTERS
-   (#xBF ?\u00BF) ;; INVERTED QUESTION MARK
-   (#xC0 ?\u00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
-   (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
-   (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
-   (#xC3 ?\u00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
-   (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
-   (#xC5 ?\u00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
-   (#xC6 ?\u00C6) ;; LATIN CAPITAL LETTER AE
-   (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
-   (#xC8 ?\u00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
-   (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
-   (#xCA ?\u00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
-   (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
-   (#xCC ?\u00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
-   (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
-   (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
-   (#xCF ?\u00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
-   (#xD0 ?\u00D0) ;; LATIN CAPITAL LETTER ETH
-   (#xD1 ?\u00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
-   (#xD2 ?\u00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
-   (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
-   (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
-   (#xD5 ?\u00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
-   (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
-   (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN
-   (#xD8 ?\u00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
-   (#xD9 ?\u00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
-   (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
-   (#xDB ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
-   (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
-   (#xDD ?\u00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE
-   (#xDE ?\u00DE) ;; LATIN CAPITAL LETTER THORN
-   (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
-   (#xE0 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE
-   (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
-   (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
-   (#xE3 ?\u00E3) ;; LATIN SMALL LETTER A WITH TILDE
-   (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
-   (#xE5 ?\u00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
-   (#xE6 ?\u00E6) ;; LATIN SMALL LETTER AE
-   (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
-   (#xE8 ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE
-   (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
-   (#xEA ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
-   (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
-   (#xEC ?\u00EC) ;; LATIN SMALL LETTER I WITH GRAVE
-   (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
-   (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
-   (#xEF ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
-   (#xF0 ?\u00F0) ;; LATIN SMALL LETTER ETH
-   (#xF1 ?\u00F1) ;; LATIN SMALL LETTER N WITH TILDE
-   (#xF2 ?\u00F2) ;; LATIN SMALL LETTER O WITH GRAVE
-   (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
-   (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
-   (#xF5 ?\u00F5) ;; LATIN SMALL LETTER O WITH TILDE
-   (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
-   (#xF7 ?\u00F7) ;; DIVISION SIGN
-   (#xF8 ?\u00F8) ;; LATIN SMALL LETTER O WITH STROKE
-   (#xF9 ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE
-   (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
-   (#xFB ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
-   (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
-   (#xFD ?\u00FD) ;; LATIN SMALL LETTER Y WITH ACUTE
-   (#xFE ?\u00FE) ;; LATIN SMALL LETTER THORN
-   (#xFF ?\u00FF));; LATIN SMALL LETTER Y WITH DIAERESIS
- "Microsoft's extension of iso-8859-1 for Western Europe and the Americas.  "
- '(mnemonic "cp1252"
+(make-coding-system
+ 'macintosh 'fixed-width "MacRoman"
+ '(unicode-map
+   ((#x80 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
+    (#x81 ?\u00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
+    (#x82 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
+    (#x83 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
+    (#x84 ?\u00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
+    (#x85 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
+    (#x86 ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
+    (#x87 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
+    (#x88 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE
+    (#x89 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
+    (#x8A ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
+    (#x8B ?\u00E3) ;; LATIN SMALL LETTER A WITH TILDE
+    (#x8C ?\u00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
+    (#x8D ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
+    (#x8E ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
+    (#x8F ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE
+    (#x90 ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
+    (#x91 ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
+    (#x92 ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
+    (#x93 ?\u00EC) ;; LATIN SMALL LETTER I WITH GRAVE
+    (#x94 ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
+    (#x95 ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
+    (#x96 ?\u00F1) ;; LATIN SMALL LETTER N WITH TILDE
+    (#x97 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
+    (#x98 ?\u00F2) ;; LATIN SMALL LETTER O WITH GRAVE
+    (#x99 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
+    (#x9A ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
+    (#x9B ?\u00F5) ;; LATIN SMALL LETTER O WITH TILDE
+    (#x9C ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
+    (#x9D ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE
+    (#x9E ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
+    (#x9F ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
+    (#xA0 ?\u2020) ;; DAGGER
+    (#xA1 ?\u00B0) ;; DEGREE SIGN
+    (#xA2 ?\u00A2) ;; CENT SIGN
+    (#xA3 ?\u00A3) ;; POUND SIGN
+    (#xA4 ?\u00A7) ;; SECTION SIGN
+    (#xA5 ?\u2022) ;; BULLET
+    (#xA6 ?\u00B6) ;; PILCROW SIGN
+    (#xA7 ?\u00DF) ;; LATIN SMALL LETTER SHARP S
+    (#xA8 ?\u00AE) ;; REGISTERED SIGN
+    (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
+    (#xAA ?\u2122) ;; TRADE MARK SIGN
+    (#xAB ?\u00B4) ;; ACUTE ACCENT
+    (#xAC ?\u00A8) ;; DIAERESIS
+    (#xAD ?\u2260) ;; NOT EQUAL TO
+    (#xAE ?\u00C6) ;; LATIN CAPITAL LETTER AE
+    (#xAF ?\u00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
+    (#xB0 ?\u221E) ;; INFINITY
+    (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
+    (#xB2 ?\u2264) ;; LESS-THAN OR EQUAL TO
+    (#xB3 ?\u2265) ;; GREATER-THAN OR EQUAL TO
+    (#xB4 ?\u00A5) ;; YEN SIGN
+    (#xB5 ?\u00B5) ;; MICRO SIGN
+    (#xB6 ?\u2202) ;; PARTIAL DIFFERENTIAL
+    (#xB7 ?\u2211) ;; N-ARY SUMMATION
+    (#xB8 ?\u220F) ;; N-ARY PRODUCT
+    (#xB9 ?\u03C0) ;; GREEK SMALL LETTER PI
+    (#xBA ?\u222B) ;; INTEGRAL
+    (#xBB ?\u00AA) ;; FEMININE ORDINAL INDICATOR
+    (#xBC ?\u00BA) ;; MASCULINE ORDINAL INDICATOR
+    (#xBD ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA
+    (#xBE ?\u00E6) ;; LATIN SMALL LETTER AE
+    (#xBF ?\u00F8) ;; LATIN SMALL LETTER O WITH STROKE
+    (#xC0 ?\u00BF) ;; INVERTED QUESTION MARK
+    (#xC1 ?\u00A1) ;; INVERTED EXCLAMATION MARK
+    (#xC2 ?\u00AC) ;; NOT SIGN
+    (#xC3 ?\u221A) ;; SQUARE ROOT
+    (#xC4 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK
+    (#xC5 ?\u2248) ;; ALMOST EQUAL TO
+    (#xC6 ?\u2206) ;; INCREMENT
+    (#xC7 ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+    (#xC8 ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+    (#xC9 ?\u2026) ;; HORIZONTAL ELLIPSIS
+    (#xCA ?\u00A0) ;; NO-BREAK SPACE
+    (#xCB ?\u00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
+    (#xCC ?\u00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
+    (#xCD ?\u00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
+    (#xCE ?\u0152) ;; LATIN CAPITAL LIGATURE OE
+    (#xCF ?\u0153) ;; LATIN SMALL LIGATURE OE
+    (#xD0 ?\u2013) ;; EN DASH
+    (#xD1 ?\u2014) ;; EM DASH
+    (#xD2 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK
+    (#xD3 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK
+    (#xD4 ?\u2018) ;; LEFT SINGLE QUOTATION MARK
+    (#xD5 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK
+    (#xD6 ?\u00F7) ;; DIVISION SIGN
+    (#xD7 ?\u25CA) ;; LOZENGE
+    (#xD8 ?\u00FF) ;; LATIN SMALL LETTER Y WITH DIAERESIS
+    (#xD9 ?\u0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS
+    (#xDA ?\u2044) ;; FRACTION SLASH
+    (#xDB ?\u20AC) ;; EURO SIGN
+    (#xDC ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+    (#xDD ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+    (#xDE ?\uFB01) ;; LATIN SMALL LIGATURE FI
+    (#xDF ?\uFB02) ;; LATIN SMALL LIGATURE FL
+    (#xE0 ?\u2021) ;; DOUBLE DAGGER
+    (#xE1 ?\u00B7) ;; MIDDLE DOT
+    (#xE2 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK
+    (#xE3 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK
+    (#xE4 ?\u2030) ;; PER MILLE SIGN
+    (#xE5 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+    (#xE6 ?\u00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+    (#xE7 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
+    (#xE8 ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
+    (#xE9 ?\u00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
+    (#xEA ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
+    (#xEB ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+    (#xEC ?\u00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
+    (#xED ?\u00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
+    (#xEE ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
+    (#xEF ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+    (#xF0 ?\uF8FF) ;; Apple logo
+    (#xF1 ?\u00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
+    (#xF2 ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
+    (#xF3 ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+    (#xF4 ?\u00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
+    (#xF5 ?\u0131) ;; LATIN SMALL LETTER DOTLESS I
+    (#xF6 ?\u02C6) ;; MODIFIER LETTER CIRCUMFLEX ACCENT
+    (#xF7 ?\u02DC) ;; SMALL TILDE
+    (#xF8 ?\u00AF) ;; MACRON
+    (#xF9 ?\u02D8) ;; BREVE
+    (#xFA ?\u02D9) ;; DOT ABOVE
+    (#xFB ?\u02DA) ;; RING ABOVE
+    (#xFC ?\u00B8) ;; CEDILLA
+    (#xFD ?\u02DD) ;; DOUBLE ACUTE ACCENT
+    (#xFE ?\u02DB) ;; OGONEK
+    (#xFF ?\u02C7)) ;; CARON
+   mnemonic "MR"
+   documentation "The Macintosh encoding for Western Europe and the Americas"
+   aliases (cp10000 MacRoman)))
+ 
+(make-coding-system
+ 'windows-1252 'fixed-width "Microsoft's CP1252"
+ '(unicode-map
+   ((#x80 ?\u20AC) ;; EURO SIGN
+    (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK
+    (#x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK
+    (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK
+    (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS
+    (#x86 ?\u2020) ;; DAGGER
+    (#x87 ?\u2021) ;; DOUBLE DAGGER
+    (#x88 ?\u02C6) ;; MODIFIER LETTER CIRCUMFLEX ACCENT
+    (#x89 ?\u2030) ;; PER MILLE SIGN
+    (#x8A ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON
+    (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+    (#x8C ?\u0152) ;; LATIN CAPITAL LIGATURE OE
+    (#x8E ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON
+    (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK
+    (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK
+    (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK
+    (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK
+    (#x95 ?\u2022) ;; BULLET
+    (#x96 ?\u2013) ;; EN DASH
+    (#x97 ?\u2014) ;; EM DASH
+    (#x98 ?\u02DC) ;; SMALL TILDE
+    (#x99 ?\u2122) ;; TRADE MARK SIGN
+    (#x9A ?\u0161) ;; LATIN SMALL LETTER S WITH CARON
+    (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+    (#x9C ?\u0153) ;; LATIN SMALL LIGATURE OE
+    (#x9E ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON
+    (#x9F ?\u0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS
+    (#xA0 ?\u00A0) ;; NO-BREAK SPACE
+    (#xA1 ?\u00A1) ;; INVERTED EXCLAMATION MARK
+    (#xA2 ?\u00A2) ;; CENT SIGN
+    (#xA3 ?\u00A3) ;; POUND SIGN
+    (#xA4 ?\u00A4) ;; CURRENCY SIGN
+    (#xA5 ?\u00A5) ;; YEN SIGN
+    (#xA6 ?\u00A6) ;; BROKEN BAR
+    (#xA7 ?\u00A7) ;; SECTION SIGN
+    (#xA8 ?\u00A8) ;; DIAERESIS
+    (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
+    (#xAA ?\u00AA) ;; FEMININE ORDINAL INDICATOR
+    (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+    (#xAC ?\u00AC) ;; NOT SIGN
+    (#xAD ?\u00AD) ;; SOFT HYPHEN
+    (#xAE ?\u00AE) ;; REGISTERED SIGN
+    (#xAF ?\u00AF) ;; MACRON
+    (#xB0 ?\u00B0) ;; DEGREE SIGN
+    (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
+    (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO
+    (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE
+    (#xB4 ?\u00B4) ;; ACUTE ACCENT
+    (#xB5 ?\u00B5) ;; MICRO SIGN
+    (#xB6 ?\u00B6) ;; PILCROW SIGN
+    (#xB7 ?\u00B7) ;; MIDDLE DOT
+    (#xB8 ?\u00B8) ;; CEDILLA
+    (#xB9 ?\u00B9) ;; SUPERSCRIPT ONE
+    (#xBA ?\u00BA) ;; MASCULINE ORDINAL INDICATOR
+    (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+    (#xBC ?\u00BC) ;; VULGAR FRACTION ONE QUARTER
+    (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF
+    (#xBE ?\u00BE) ;; VULGAR FRACTION THREE QUARTERS
+    (#xBF ?\u00BF) ;; INVERTED QUESTION MARK
+    (#xC0 ?\u00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE
+    (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE
+    (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+    (#xC3 ?\u00C3) ;; LATIN CAPITAL LETTER A WITH TILDE
+    (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS
+    (#xC5 ?\u00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE
+    (#xC6 ?\u00C6) ;; LATIN CAPITAL LETTER AE
+    (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA
+    (#xC8 ?\u00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE
+    (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE
+    (#xCA ?\u00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+    (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS
+    (#xCC ?\u00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE
+    (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE
+    (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+    (#xCF ?\u00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS
+    (#xD0 ?\u00D0) ;; LATIN CAPITAL LETTER ETH
+    (#xD1 ?\u00D1) ;; LATIN CAPITAL LETTER N WITH TILDE
+    (#xD2 ?\u00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE
+    (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE
+    (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+    (#xD5 ?\u00D5) ;; LATIN CAPITAL LETTER O WITH TILDE
+    (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS
+    (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN
+    (#xD8 ?\u00D8) ;; LATIN CAPITAL LETTER O WITH STROKE
+    (#xD9 ?\u00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE
+    (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE
+    (#xDB ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+    (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS
+    (#xDD ?\u00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE
+    (#xDE ?\u00DE) ;; LATIN CAPITAL LETTER THORN
+    (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S
+    (#xE0 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE
+    (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE
+    (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
+    (#xE3 ?\u00E3) ;; LATIN SMALL LETTER A WITH TILDE
+    (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS
+    (#xE5 ?\u00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE
+    (#xE6 ?\u00E6) ;; LATIN SMALL LETTER AE
+    (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA
+    (#xE8 ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE
+    (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE
+    (#xEA ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
+    (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS
+    (#xEC ?\u00EC) ;; LATIN SMALL LETTER I WITH GRAVE
+    (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE
+    (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
+    (#xEF ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS
+    (#xF0 ?\u00F0) ;; LATIN SMALL LETTER ETH
+    (#xF1 ?\u00F1) ;; LATIN SMALL LETTER N WITH TILDE
+    (#xF2 ?\u00F2) ;; LATIN SMALL LETTER O WITH GRAVE
+    (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE
+    (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
+    (#xF5 ?\u00F5) ;; LATIN SMALL LETTER O WITH TILDE
+    (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS
+    (#xF7 ?\u00F7) ;; DIVISION SIGN
+    (#xF8 ?\u00F8) ;; LATIN SMALL LETTER O WITH STROKE
+    (#xF9 ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE
+    (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE
+    (#xFB ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
+    (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS
+    (#xFD ?\u00FD) ;; LATIN SMALL LETTER Y WITH ACUTE
+    (#xFE ?\u00FE) ;; LATIN SMALL LETTER THORN
+    (#xFF ?\u00FF)) ;; LATIN SMALL LETTER Y WITH DIAERESIS
+   documentation "Microsoft's extension of iso-8859-1 for Western Europe \
+and the Americas.  "
+   mnemonic "cp1252"
    aliases (cp1252)))
 
 ;; Provide language environments that prefer specific coding systems.