Mercurial > hg > xemacs-beta
annotate lisp/mule/latin.el @ 4600:dcfd965d65a1
Correct invalid-sequence-coding-system spec, Roman-alphabet languages.
I had been testing with the Cyrillic language environments, and I have code
in my own init file that does something similar, so I hadn't noticed that
this had gone wrong.
lisp/ChangeLog addition:
2009-02-04 Aidan Kehoe <kehoea@parhasard.net>
* mule/latin.el:
Specify windows-1250 as the invalid-sequence-coding-system for the
iso-8859-2 languages; actually *use* the
invalid-sequence-coding-system for German and the other iso-8859-1
language environments.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 04 Feb 2009 13:12:21 +0000 |
| parents | 1d74a1d115ee |
| children | e0a8715fdb1f |
| rev | line source |
|---|---|
| 3767 | 1 ;;; latin.el --- Roman-alphabet languages -*- coding: iso-2022-7bit; -*- |
| 464 | 2 |
| 3767 | 3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
| 4 ;; Licensed to the Free Software Foundation. | |
| 5 ;; Copyright (C) 1997 MORIOKA Tomohiko | |
| 6 ;; Copyright (C) 2001 Ben Wing. | |
| 7 ;; Copyright (C) 2002, 2005, 2006 Free Software Foundation | |
| 8 | |
| 9 ;; Keywords: multilingual, latin, dumped | |
| 464 | 10 |
| 11 ;; This file is part of XEmacs. | |
| 12 | |
| 13 ;; XEmacs is free software; you can redistribute it and/or modify it | |
| 14 ;; under the terms of the GNU General Public License as published by | |
| 15 ;; the Free Software Foundation; either version 2, or (at your option) | |
| 16 ;; any later version. | |
| 17 | |
| 18 ;; XEmacs is distributed in the hope that it will be useful, but | |
| 19 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 21 ;; General Public License for more details. | |
| 22 | |
| 23 ;; You should have received a copy of the GNU General Public License | |
| 24 ;; along with XEmacs; see the file COPYING. If not, write to the Free | |
| 25 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA | |
| 26 ;; 02111-1307, USA. | |
| 27 | |
| 28 ;;; Commentary: | |
| 29 | |
| 3767 | 30 ;; For Roman-alphabet-using Europeans, eight coded character sets, |
| 31 ;; ISO8859-1,2,3,4,9,14,15,16 are supported. | |
| 464 | 32 |
| 33 ;;; Code: | |
| 34 | |
| 35 ;; Case table setup. We set up all the case tables using | |
| 36 ;; put-case-table-pair. The data for this comes from FSF Emacs 20.7 | |
| 37 ;; (lisp/international/latin-*.el), written by several people and | |
| 38 ;; updated by Erik Naggum. | |
| 39 | |
| 40 (defun setup-case-pairs (charset pairs) | |
| 3767 | 41 (loop |
| 42 for (uc lc) in pairs | |
| 43 with table = (standard-case-table) | |
| 44 do (put-case-table-pair | |
| 45 (make-char charset uc) (make-char charset lc) table))) | |
| 46 | |
| 47 ;; Latin-1's case is dealt with in iso8859-1.el, which see. Its syntax is | |
| 48 ;; initialised in syntax.c:complex_vars_of_syntax. | |
| 464 | 49 |
| 3767 | 50 |
| 51 ;; Latin-2 (ISO-8859-2). Central Europe; Czech, Slovak, Hungarian, Polish, | |
| 52 ;; Croatian, other languages. | |
| 53 ;; | |
| 54 ;; (Yes, it really is Central European. German written in Latin 2 and using | |
| 55 ;; only Umlaute and the sharp S in its non-ASCII repertoire is bit-for-bit | |
| 56 ;; identical with the same text in Latin-1.) | |
| 464 | 57 |
| 3767 | 58 ;; The default character syntax is now word. Pay attention to the |
| 59 ;; exceptions in ISO-8859-2, copying them from ISO-8859-1. | |
| 60 (loop | |
| 61 for (latin-2 latin-1) | |
| 62 in '((#xA0 #xA0) ;; NO BREAK SPACE | |
| 63 (#xA2 #xB4) ;; BREVE, ACUTE ACCENT | |
| 64 (#xA4 #xA4) ;; CURRENCY SIGN | |
| 65 (#xA7 #xA7) ;; SECTION SIGN | |
| 66 (#xA8 #xA8) ;; DIAERESIS | |
| 67 (#xAD #xAD) ;; SOFT HYPHEN | |
| 68 (#xB0 #xB0) ;; DEGREE SIGN | |
| 69 (#xB2 #xB4) ;; OGONEK, ACUTE ACCENT | |
| 70 (#xB4 #xB4) ;; ACUTE ACCENT | |
| 71 (#xB7 #xB4) ;; CARON, ACUTE ACCENT | |
| 72 (#xB8 #xB8) ;; CEDILLA | |
| 73 (#xBD #xB4) ;; DOUBLE ACUTE ACCENT, ACUTE ACCENT | |
| 74 (#xD7 #xD7) ;; MULTIPLICATION SIGN | |
| 75 (#xF7 #xF7) ;; DIVISION SIGN | |
| 76 (#xFF #xB4)) ;; DOT ABOVE, ACUTE ACCENT | |
| 77 with syntax-table = (standard-syntax-table) | |
| 78 do (modify-syntax-entry | |
| 79 (make-char 'latin-iso8859-2 latin-2) | |
| 80 (string (char-syntax (make-char 'latin-iso8859-1 latin-1))) | |
| 81 syntax-table)) | |
| 464 | 82 |
| 3767 | 83 ;; Case. |
| 464 | 84 (setup-case-pairs |
| 85 'latin-iso8859-2 | |
| 3767 | 86 '((#xA1 #xB1) ;; A WITH OGONEK |
| 87 (#xA3 #xB3) ;; L WITH STROKE | |
| 88 (#xA5 #xB5) ;; L WITH CARON | |
| 89 (#xA6 #xB6) ;; S WITH ACUTE | |
| 90 (#xA9 #xB9) ;; S WITH CARON | |
| 91 (#xAA #xBA) ;; S WITH CEDILLA | |
| 92 (#xAB #xBB) ;; T WITH CARON | |
| 93 (#xAC #xBC) ;; Z WITH ACUTE | |
| 94 (#xAE #xBE) ;; Z WITH CARON | |
| 95 (#xAF #xBF) ;; Z WITH DOT ABOVE | |
| 96 (#xC0 #xE0) ;; R WITH ACUTE | |
| 97 (#xC1 #xE1) ;; A WITH ACUTE | |
| 98 (#xC2 #xE2) ;; A WITH CIRCUMFLEX | |
| 99 (#xC3 #xE3) ;; A WITH BREVE | |
| 100 (#xC4 #xE4) ;; A WITH DIAERESIS | |
| 101 (#xC5 #xE5) ;; L WITH ACUTE | |
| 102 (#xC6 #xE6) ;; C WITH ACUTE | |
| 103 (#xC7 #xE7) ;; C WITH CEDILLA | |
| 104 (#xC8 #xE8) ;; C WITH CARON | |
| 105 (#xC9 #xE9) ;; E WITH ACUTE | |
| 106 (#xCA #xEA) ;; E WITH OGONEK | |
| 107 (#xCB #xEB) ;; E WITH DIAERESIS | |
| 108 (#xCC #xEC) ;; E WITH CARON | |
| 109 (#xCD #xED) ;; I WITH ACUTE | |
| 110 (#xCE #xEE) ;; I WITH CIRCUMFLEX | |
| 111 (#xCF #xEF) ;; D WITH CARON | |
| 112 (#xD0 #xF0) ;; D WITH STROKE | |
| 113 (#xD1 #xF1) ;; N WITH ACUTE | |
| 114 (#xD2 #xF2) ;; N WITH CARON | |
| 115 (#xD3 #xF3) ;; O WITH ACUTE | |
| 116 (#xD4 #xF4) ;; O WITH CIRCUMFLEX | |
| 117 (#xD5 #xF5) ;; O WITH DOUBLE ACUTE | |
| 118 (#xD6 #xF6) ;; O WITH DIAERESIS | |
| 119 (#xD8 #xF8) ;; R WITH CARON | |
| 120 (#xD9 #xF9) ;; U WITH RING ABOVE | |
| 121 (#xDA #xFA) ;; U WITH ACUTE | |
| 122 (#xDB #xFB) ;; U WITH DOUBLE ACUTE | |
| 123 (#xDC #xFC) ;; U WITH DIAERESIS | |
| 124 (#xDD #xFD) ;; Y WITH ACUTE | |
| 125 (#xDE #xFE))) ;; T WITH CEDILLA | |
| 464 | 126 |
| 4299 | 127 (make-8-bit-coding-system |
| 128 'iso-8859-2 | |
| 129 '((#xA1 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK | |
| 130 (#xA2 ?\u02D8) ;; BREVE | |
| 131 (#xA3 ?\u0141) ;; LATIN CAPITAL LETTER L WITH STROKE | |
| 132 (#xA5 ?\u013D) ;; LATIN CAPITAL LETTER L WITH CARON | |
| 133 (#xA6 ?\u015A) ;; LATIN CAPITAL LETTER S WITH ACUTE | |
| 134 (#xA9 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON | |
| 135 (#xAA ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA | |
| 136 (#xAB ?\u0164) ;; LATIN CAPITAL LETTER T WITH CARON | |
| 137 (#xAC ?\u0179) ;; LATIN CAPITAL LETTER Z WITH ACUTE | |
| 138 (#xAE ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON | |
| 139 (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE | |
| 140 (#xB1 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK | |
| 141 (#xB2 ?\u02DB) ;; OGONEK | |
| 142 (#xB3 ?\u0142) ;; LATIN SMALL LETTER L WITH STROKE | |
| 143 (#xB5 ?\u013E) ;; LATIN SMALL LETTER L WITH CARON | |
| 144 (#xB6 ?\u015B) ;; LATIN SMALL LETTER S WITH ACUTE | |
| 145 (#xB7 ?\u02C7) ;; CARON | |
| 146 (#xB9 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON | |
| 147 (#xBA ?\u015F) ;; LATIN SMALL LETTER S WITH CEDILLA | |
| 148 (#xBB ?\u0165) ;; LATIN SMALL LETTER T WITH CARON | |
| 149 (#xBC ?\u017A) ;; LATIN SMALL LETTER Z WITH ACUTE | |
| 150 (#xBD ?\u02DD) ;; DOUBLE ACUTE ACCENT | |
| 151 (#xBE ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON | |
| 152 (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE | |
| 153 (#xC0 ?\u0154) ;; LATIN CAPITAL LETTER R WITH ACUTE | |
| 154 (#xC3 ?\u0102) ;; LATIN CAPITAL LETTER A WITH BREVE | |
| 155 (#xC5 ?\u0139) ;; LATIN CAPITAL LETTER L WITH ACUTE | |
| 156 (#xC6 ?\u0106) ;; LATIN CAPITAL LETTER C WITH ACUTE | |
| 157 (#xC8 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON | |
| 158 (#xCA ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK | |
| 159 (#xCC ?\u011A) ;; LATIN CAPITAL LETTER E WITH CARON | |
| 160 (#xCF ?\u010E) ;; LATIN CAPITAL LETTER D WITH CARON | |
| 161 (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE | |
| 162 (#xD1 ?\u0143) ;; LATIN CAPITAL LETTER N WITH ACUTE | |
| 163 (#xD2 ?\u0147) ;; LATIN CAPITAL LETTER N WITH CARON | |
| 164 (#xD5 ?\u0150) ;; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE | |
| 165 (#xD8 ?\u0158) ;; LATIN CAPITAL LETTER R WITH CARON | |
| 166 (#xD9 ?\u016E) ;; LATIN CAPITAL LETTER U WITH RING ABOVE | |
| 167 (#xDB ?\u0170) ;; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE | |
| 168 (#xDE ?\u0162) ;; LATIN CAPITAL LETTER T WITH CEDILLA | |
| 169 (#xE0 ?\u0155) ;; LATIN SMALL LETTER R WITH ACUTE | |
| 170 (#xE3 ?\u0103) ;; LATIN SMALL LETTER A WITH BREVE | |
| 171 (#xE5 ?\u013A) ;; LATIN SMALL LETTER L WITH ACUTE | |
| 172 (#xE6 ?\u0107) ;; LATIN SMALL LETTER C WITH ACUTE | |
| 173 (#xE8 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON | |
| 174 (#xEA ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK | |
| 175 (#xEC ?\u011B) ;; LATIN SMALL LETTER E WITH CARON | |
| 176 (#xEF ?\u010F) ;; LATIN SMALL LETTER D WITH CARON | |
| 177 (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE | |
| 178 (#xF1 ?\u0144) ;; LATIN SMALL LETTER N WITH ACUTE | |
| 179 (#xF2 ?\u0148) ;; LATIN SMALL LETTER N WITH CARON | |
| 180 (#xF5 ?\u0151) ;; LATIN SMALL LETTER O WITH DOUBLE ACUTE | |
| 181 (#xF8 ?\u0159) ;; LATIN SMALL LETTER R WITH CARON | |
| 182 (#xF9 ?\u016F) ;; LATIN SMALL LETTER U WITH RING ABOVE | |
| 183 (#xFB ?\u0171) ;; LATIN SMALL LETTER U WITH DOUBLE ACUTE | |
| 184 (#xFE ?\u0163) ;; LATIN SMALL LETTER T WITH CEDILLA | |
| 185 (#xFF ?\u02D9));; DOT ABOVE | |
| 186 "ISO-8859-2 (Latin-2) for Central Europe. | |
| 187 See also `windows-1250', and `iso-8859-1', which is compatible with Latin 2 | |
| 188 when used to write German (or English, of course). " | |
| 189 '(mnemonic "Latin 2" | |
| 190 aliases (iso-latin-2 latin-2))) | |
|
4447
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
191 |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
192 (make-8-bit-coding-system |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
193 'windows-1250 |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
194 '((#x80 ?\u20AC) ;; EURO SIGN |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
195 (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
196 (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
197 (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
198 (#x86 ?\u2020) ;; DAGGER |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
199 (#x87 ?\u2021) ;; DOUBLE DAGGER |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
200 (#x89 ?\u2030) ;; PER MILLE SIGN |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
201 (#x8A ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
202 (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
203 (#x8C ?\u015A) ;; LATIN CAPITAL LETTER S WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
204 (#x8D ?\u0164) ;; LATIN CAPITAL LETTER T WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
205 (#x8E ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
206 (#x8F ?\u0179) ;; LATIN CAPITAL LETTER Z WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
207 (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
208 (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
209 (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
210 (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
211 (#x95 ?\u2022) ;; BULLET |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
212 (#x96 ?\u2013) ;; EN DASH |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
213 (#x97 ?\u2014) ;; EM DASH |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
214 (#x99 ?\u2122) ;; TRADE MARK SIGN |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
215 (#x9A ?\u0161) ;; LATIN SMALL LETTER S WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
216 (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
217 (#x9C ?\u015B) ;; LATIN SMALL LETTER S WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
218 (#x9D ?\u0165) ;; LATIN SMALL LETTER T WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
219 (#x9E ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
220 (#x9F ?\u017A) ;; LATIN SMALL LETTER Z WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
221 (#xA0 ?\u00A0) ;; NO-BREAK SPACE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
222 (#xA1 ?\u02C7) ;; CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
223 (#xA2 ?\u02D8) ;; BREVE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
224 (#xA3 ?\u0141) ;; LATIN CAPITAL LETTER L WITH STROKE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
225 (#xA4 ?\u00A4) ;; CURRENCY SIGN |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
226 (#xA5 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
227 (#xA6 ?\u00A6) ;; BROKEN BAR |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
228 (#xA7 ?\u00A7) ;; SECTION SIGN |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
229 (#xA8 ?\u00A8) ;; DIAERESIS |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
230 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
231 (#xAA ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
232 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
233 (#xAC ?\u00AC) ;; NOT SIGN |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
234 (#xAD ?\u00AD) ;; SOFT HYPHEN |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
235 (#xAE ?\u00AE) ;; REGISTERED SIGN |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
236 (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
237 (#xB0 ?\u00B0) ;; DEGREE SIGN |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
238 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
239 (#xB2 ?\u02DB) ;; OGONEK |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
240 (#xB3 ?\u0142) ;; LATIN SMALL LETTER L WITH STROKE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
241 (#xB4 ?\u00B4) ;; ACUTE ACCENT |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
242 (#xB5 ?\u00B5) ;; MICRO SIGN |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
243 (#xB6 ?\u00B6) ;; PILCROW SIGN |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
244 (#xB7 ?\u00B7) ;; MIDDLE DOT |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
245 (#xB8 ?\u00B8) ;; CEDILLA |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
246 (#xB9 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
247 (#xBA ?\u015F) ;; LATIN SMALL LETTER S WITH CEDILLA |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
248 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
249 (#xBC ?\u013D) ;; LATIN CAPITAL LETTER L WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
250 (#xBD ?\u02DD) ;; DOUBLE ACUTE ACCENT |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
251 (#xBE ?\u013E) ;; LATIN SMALL LETTER L WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
252 (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
253 (#xC0 ?\u0154) ;; LATIN CAPITAL LETTER R WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
254 (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
255 (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
256 (#xC3 ?\u0102) ;; LATIN CAPITAL LETTER A WITH BREVE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
257 (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
258 (#xC5 ?\u0139) ;; LATIN CAPITAL LETTER L WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
259 (#xC6 ?\u0106) ;; LATIN CAPITAL LETTER C WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
260 (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
261 (#xC8 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
262 (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
263 (#xCA ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
264 (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
265 (#xCC ?\u011A) ;; LATIN CAPITAL LETTER E WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
266 (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
267 (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
268 (#xCF ?\u010E) ;; LATIN CAPITAL LETTER D WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
269 (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
270 (#xD1 ?\u0143) ;; LATIN CAPITAL LETTER N WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
271 (#xD2 ?\u0147) ;; LATIN CAPITAL LETTER N WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
272 (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
273 (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
274 (#xD5 ?\u0150) ;; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
275 (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
276 (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
277 (#xD8 ?\u0158) ;; LATIN CAPITAL LETTER R WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
278 (#xD9 ?\u016E) ;; LATIN CAPITAL LETTER U WITH RING ABOVE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
279 (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
280 (#xDB ?\u0170) ;; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
281 (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
282 (#xDD ?\u00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
283 (#xDE ?\u0162) ;; LATIN CAPITAL LETTER T WITH CEDILLA |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
284 (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
285 (#xE0 ?\u0155) ;; LATIN SMALL LETTER R WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
286 (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
287 (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
288 (#xE3 ?\u0103) ;; LATIN SMALL LETTER A WITH BREVE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
289 (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
290 (#xE5 ?\u013A) ;; LATIN SMALL LETTER L WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
291 (#xE6 ?\u0107) ;; LATIN SMALL LETTER C WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
292 (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
293 (#xE8 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
294 (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
295 (#xEA ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
296 (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
297 (#xEC ?\u011B) ;; LATIN SMALL LETTER E WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
298 (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
299 (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
300 (#xEF ?\u010F) ;; LATIN SMALL LETTER D WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
301 (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
302 (#xF1 ?\u0144) ;; LATIN SMALL LETTER N WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
303 (#xF2 ?\u0148) ;; LATIN SMALL LETTER N WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
304 (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
305 (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
306 (#xF5 ?\u0151) ;; LATIN SMALL LETTER O WITH DOUBLE ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
307 (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
308 (#xF7 ?\u00F7) ;; DIVISION SIGN |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
309 (#xF8 ?\u0159) ;; LATIN SMALL LETTER R WITH CARON |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
310 (#xF9 ?\u016F) ;; LATIN SMALL LETTER U WITH RING ABOVE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
311 (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
312 (#xFB ?\u0171) ;; LATIN SMALL LETTER U WITH DOUBLE ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
313 (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
314 (#xFD ?\u00FD) ;; LATIN SMALL LETTER Y WITH ACUTE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
315 (#xFE ?\u0163) ;; LATIN SMALL LETTER T WITH CEDILLA |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
316 (#xFF ?\u02D9)) ;; DOT ABOVE |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
317 "CP 1250, Microsoft's encoding for Central Europe. |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
318 See also `iso-8859-2' and `window-1252' for Western Europe. " |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
319 '(mnemonic "CP1250" |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
320 aliases (cp1250))) |
|
15dd5229cea5
Support windows-1250 on Unix as well as Windows.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4325
diff
changeset
|
321 |
| 3767 | 322 |
| 323 ;; | |
| 324 ;; Latin-3 (ISO-8859-3). Esperanto, Maltese and Turkish. Obsolescent. | |
| 464 | 325 |
| 3767 | 326 ;; Initialise the non-word syntax codes in ISO-8859-3, copying them from |
| 327 ;; ISO-8859-1. | |
| 328 (loop | |
| 329 for (latin-3 latin-1) | |
| 330 in '((#xA0 #xA0) ;; NO BREAK SPACE | |
| 331 (#xA2 #xB4) ;; BREVE, ACUTE ACCENT | |
| 332 (#xA3 #xA3) ;; POUND SIGN | |
| 333 (#xA4 #xA4) ;; CURRENCY SIGN | |
| 334 (#xA7 #xA7) ;; SECTION SIGN | |
| 335 (#xA8 #xA8) ;; DIAERESIS | |
| 336 (#xAD #xAD) ;; SOFT HYPHEN | |
| 337 (#xB0 #xB0) ;; DEGREE SIGN | |
| 338 (#xB2 #xB2) ;; SUPERSCRIPT TWO | |
| 339 (#xB3 #xB3) ;; SUPERSCRIPT THREE | |
| 340 (#xB4 #xB4) ;; ACUTE ACCENT | |
| 341 (#xB5 #xB5) ;; MICRO SIGN | |
| 342 (#xB7 #xB7) ;; MIDDLE DOT | |
| 343 (#xB8 #xB8) ;; CEDILLA | |
| 344 (#xBD #xBD) ;; VULGAR FRACTION ONE HALF | |
| 345 (#xD7 #xD7) ;; MULTIPLICATION SIGN | |
| 346 (#xF7 #xF7) ;; DIVISION SIGN | |
| 347 (#xFF #xB4)) ;; DOT ABOVE, ACUTE ACCENT | |
| 348 with syntax-table = (standard-syntax-table) | |
| 349 do (modify-syntax-entry | |
| 350 (make-char 'latin-iso8859-3 latin-3) | |
| 351 (string (char-syntax (make-char 'latin-iso8859-1 latin-1))) | |
| 352 syntax-table)) | |
| 353 | |
| 354 ;; Case. | |
| 464 | 355 (setup-case-pairs |
| 356 'latin-iso8859-3 | |
| 3767 | 357 '((#xA1 #xB1) ;; H WITH STROKE |
| 358 (#xA6 #xB6) ;; H WITH CIRCUMFLEX | |
| 359 (#xAA #xBA) ;; S WITH CEDILLA | |
| 360 (#xAB #xBB) ;; G WITH BREVE | |
| 361 (#xAC #xBC) ;; J WITH CIRCUMFLEX | |
| 362 (#xAF #xBF) ;; Z WITH DOT ABOVE | |
| 363 (#xC0 #xE0) ;; A WITH GRAVE | |
| 364 (#xC1 #xE1) ;; A WITH ACUTE | |
| 365 (#xC2 #xE2) ;; A WITH CIRCUMFLEX | |
| 366 (#xC4 #xE4) ;; A WITH DIAERESIS | |
| 367 (#xC5 #xE5) ;; C WITH DOT ABOVE | |
| 368 (#xC6 #xE6) ;; C WITH CIRCUMFLEX | |
| 369 (#xC7 #xE7) ;; C WITH CEDILLA | |
| 370 (#xC8 #xE8) ;; E WITH GRAVE | |
| 371 (#xC9 #xE9) ;; E WITH ACUTE | |
| 372 (#xCA #xEA) ;; E WITH CIRCUMFLEX | |
| 373 (#xCB #xEB) ;; E WITH DIAERESIS | |
| 374 (#xCC #xEC) ;; I WITH GRAVE | |
| 375 (#xCD #xED) ;; I WITH ACUTE | |
| 376 (#xCE #xEE) ;; I WITH CIRCUMFLEX | |
| 377 (#xCF #xEF) ;; I WITH DIAERESIS | |
| 378 (#xD1 #xF1) ;; N WITH TILDE | |
| 379 (#xD2 #xF2) ;; O WITH GRAVE | |
| 380 (#xD3 #xF3) ;; O WITH ACUTE | |
| 381 (#xD4 #xF4) ;; O WITH CIRCUMFLEX | |
| 382 (#xD5 #xF5) ;; G WITH DOT ABOVE | |
| 383 (#xD6 #xF6) ;; O WITH DIAERESIS | |
| 384 (#xD8 #xF8) ;; G WITH CIRCUMFLEX | |
| 385 (#xD9 #xF9) ;; U WITH GRAVE | |
| 386 (#xDA #xFA) ;; U WITH ACUTE | |
| 387 (#xDB #xFB) ;; U WITH CIRCUMFLEX | |
| 388 (#xDC #xFC) ;; U WITH DIAERESIS | |
| 389 (#xDD #xFD) ;; U WITH BREVE | |
| 390 (#xDE #xFE))) ;; S WITH CIRCUMFLEX | |
| 464 | 391 |
| 4299 | 392 (make-8-bit-coding-system |
| 393 'iso-8859-3 | |
| 394 '((#xA1 ?\u0126) ;; LATIN CAPITAL LETTER H WITH STROKE | |
| 395 (#xA2 ?\u02D8) ;; BREVE | |
| 396 (#xA6 ?\u0124) ;; LATIN CAPITAL LETTER H WITH CIRCUMFLEX | |
| 397 (#xA9 ?\u0130) ;; LATIN CAPITAL LETTER I WITH DOT ABOVE | |
| 398 (#xAA ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA | |
| 399 (#xAB ?\u011E) ;; LATIN CAPITAL LETTER G WITH BREVE | |
| 400 (#xAC ?\u0134) ;; LATIN CAPITAL LETTER J WITH CIRCUMFLEX | |
| 401 (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE | |
| 402 (#xB1 ?\u0127) ;; LATIN SMALL LETTER H WITH STROKE | |
| 403 (#xB6 ?\u0125) ;; LATIN SMALL LETTER H WITH CIRCUMFLEX | |
| 404 (#xB9 ?\u0131) ;; LATIN SMALL LETTER DOTLESS I | |
| 405 (#xBA ?\u015F) ;; LATIN SMALL LETTER S WITH CEDILLA | |
| 406 (#xBB ?\u011F) ;; LATIN SMALL LETTER G WITH BREVE | |
| 407 (#xBC ?\u0135) ;; LATIN SMALL LETTER J WITH CIRCUMFLEX | |
| 408 (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE | |
| 409 (#xC5 ?\u010A) ;; LATIN CAPITAL LETTER C WITH DOT ABOVE | |
| 410 (#xC6 ?\u0108) ;; LATIN CAPITAL LETTER C WITH CIRCUMFLEX | |
| 411 (#xD5 ?\u0120) ;; LATIN CAPITAL LETTER G WITH DOT ABOVE | |
| 412 (#xD8 ?\u011C) ;; LATIN CAPITAL LETTER G WITH CIRCUMFLEX | |
| 413 (#xDD ?\u016C) ;; LATIN CAPITAL LETTER U WITH BREVE | |
| 414 (#xDE ?\u015C) ;; LATIN CAPITAL LETTER S WITH CIRCUMFLEX | |
| 415 (#xE5 ?\u010B) ;; LATIN SMALL LETTER C WITH DOT ABOVE | |
| 416 (#xE6 ?\u0109) ;; LATIN SMALL LETTER C WITH CIRCUMFLEX | |
| 417 (#xF5 ?\u0121) ;; LATIN SMALL LETTER G WITH DOT ABOVE | |
| 418 (#xF8 ?\u011D) ;; LATIN SMALL LETTER G WITH CIRCUMFLEX | |
| 419 (#xFD ?\u016D) ;; LATIN SMALL LETTER U WITH BREVE | |
| 420 (#xFE ?\u015D) ;; LATIN SMALL LETTER S WITH CIRCUMFLEX | |
| 421 (#xFF ?\u02D9)) ;; DOT ABOVE | |
| 422 "ISO-8859-3 (Latin-3)" | |
| 423 '(mnemonic "Latin 3" | |
| 424 documentation "Aimed at Turkish, Maltese and Esperanto. " | |
| 425 aliases (iso-latin-3 latin-3))) | |
| 3767 | 426 |
| 427 | |
| 428 ;; Latin-4 (ISO-8859-4) | |
| 429 | |
| 430 ;; Estonian, Latvian, Lithuanian, Greenlandic, and Sami. Obsolescent. | |
| 464 | 431 |
| 3767 | 432 ;; The default character syntax is now word. Pay attention to the |
| 433 ;; exceptions in ISO-8859-4, copying them from ISO-8859-1. | |
| 434 (loop | |
| 435 for (latin-4 latin-1) | |
| 436 in '((#xA0 #xA0) ;; NO BREAK SPACE | |
| 437 (#xA4 #xA4) ;; CURRENCY SIGN | |
| 438 (#xA7 #xA7) ;; SECTION SIGN | |
| 439 (#xA8 #xA8) ;; DIAERESIS | |
| 440 (#xAD #xAD) ;; SOFT HYPHEN | |
| 441 (#xB0 #xB0) ;; DEGREE SIGN | |
| 442 (#xB2 #xB4) ;; OGONEK, ACUTE ACCENT | |
| 443 (#xB4 #xB4) ;; ACUTE ACCENT | |
| 444 (#xB7 #xB4) ;; CARON, ACUTE ACCENT | |
| 445 (#xB8 #xB8) ;; CEDILLA | |
| 446 (#xD7 #xD7) ;; MULTIPLICATION SIGN | |
| 447 (#xF7 #xF7) ;; DIVISION SIGN | |
| 448 (#xFF #xB4)) ;; DOT ABOVE, ACUTE ACCENT | |
| 449 with syntax-table = (standard-syntax-table) | |
| 450 do (modify-syntax-entry | |
| 451 (make-char 'latin-iso8859-4 latin-4) | |
| 452 (string (char-syntax (make-char 'latin-iso8859-1 latin-1))) | |
| 453 syntax-table)) | |
| 454 | |
| 455 ;; Case. | |
| 464 | 456 (setup-case-pairs |
| 457 'latin-iso8859-4 | |
| 3767 | 458 '((#xA1 #xB1) ;; A WITH OGONEK |
| 459 (#xA3 #xB3) ;; R WITH CEDILLA | |
| 460 (#xA5 #xB5) ;; I WITH TILDE | |
| 461 (#xA6 #xB6) ;; L WITH CEDILLA | |
| 462 (#xA9 #xB9) ;; S WITH CARON | |
| 463 (#xAA #xBA) ;; E WITH MACRON | |
| 464 (#xAB #xBB) ;; G WITH CEDILLA | |
| 465 (#xAC #xBC) ;; T WITH STROKE | |
| 466 (#xAE #xBE) ;; Z WITH CARON | |
| 467 (#xBD #xBF) ;; ENG | |
| 468 (#xC0 #xE0) ;; A WITH MACRON | |
| 469 (#xC1 #xE1) ;; A WITH ACUTE | |
| 470 (#xC2 #xE2) ;; A WITH CIRCUMFLEX | |
| 471 (#xC3 #xE3) ;; A WITH TILDE | |
| 472 (#xC4 #xE4) ;; A WITH DIAERESIS | |
| 473 (#xC5 #xE5) ;; A WITH RING ABOVE | |
| 474 (#xC6 #xE6) ;; AE | |
| 475 (#xC7 #xE7) ;; I WITH OGONEK | |
| 476 (#xC8 #xE8) ;; C WITH CARON | |
| 477 (#xC9 #xE9) ;; E WITH ACUTE | |
| 478 (#xCA #xEA) ;; E WITH OGONEK | |
| 479 (#xCB #xEB) ;; E WITH DIAERESIS | |
| 480 (#xCC #xEC) ;; E WITH DOT ABOVE | |
| 481 (#xCD #xED) ;; I WITH ACUTE | |
| 482 (#xCE #xEE) ;; I WITH CIRCUMFLEX | |
| 483 (#xCF #xEF) ;; I WITH MACRON | |
| 484 (#xD0 #xF0) ;; D WITH STROKE | |
| 485 (#xD1 #xF1) ;; N WITH CEDILLA | |
| 486 (#xD2 #xF2) ;; O WITH MACRON | |
| 487 (#xD3 #xF3) ;; K WITH CEDILLA | |
| 488 (#xD4 #xF4) ;; O WITH CIRCUMFLEX | |
| 489 (#xD5 #xF5) ;; O WITH TILDE | |
| 490 (#xD6 #xF6) ;; O WITH DIAERESIS | |
| 491 (#xD8 #xF8) ;; O WITH STROKE | |
| 492 (#xD9 #xF9) ;; U WITH OGONEK | |
| 493 (#xDA #xFA) ;; U WITH ACUTE | |
| 494 (#xDB #xFB) ;; U WITH CIRCUMFLEX | |
| 495 (#xDC #xFC) ;; U WITH DIAERESIS | |
| 496 (#xDD #xFD) ;; U WITH TILDE | |
| 497 (#xDE #xFE))) ;; U WITH MACRON | |
| 498 | |
| 4299 | 499 (make-8-bit-coding-system |
| 500 'iso-8859-4 | |
| 501 '((#xA1 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK | |
| 502 (#xA2 ?\u0138) ;; LATIN SMALL LETTER KRA | |
| 503 (#xA3 ?\u0156) ;; LATIN CAPITAL LETTER R WITH CEDILLA | |
| 504 (#xA5 ?\u0128) ;; LATIN CAPITAL LETTER I WITH TILDE | |
| 505 (#xA6 ?\u013B) ;; LATIN CAPITAL LETTER L WITH CEDILLA | |
| 506 (#xA9 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON | |
| 507 (#xAA ?\u0112) ;; LATIN CAPITAL LETTER E WITH MACRON | |
| 508 (#xAB ?\u0122) ;; LATIN CAPITAL LETTER G WITH CEDILLA | |
| 509 (#xAC ?\u0166) ;; LATIN CAPITAL LETTER T WITH STROKE | |
| 510 (#xAE ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON | |
| 511 (#xB1 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK | |
| 512 (#xB2 ?\u02DB) ;; OGONEK | |
| 513 (#xB3 ?\u0157) ;; LATIN SMALL LETTER R WITH CEDILLA | |
| 514 (#xB5 ?\u0129) ;; LATIN SMALL LETTER I WITH TILDE | |
| 515 (#xB6 ?\u013C) ;; LATIN SMALL LETTER L WITH CEDILLA | |
| 516 (#xB7 ?\u02C7) ;; CARON | |
| 517 (#xB9 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON | |
| 518 (#xBA ?\u0113) ;; LATIN SMALL LETTER E WITH MACRON | |
| 519 (#xBB ?\u0123) ;; LATIN SMALL LETTER G WITH CEDILLA | |
| 520 (#xBC ?\u0167) ;; LATIN SMALL LETTER T WITH STROKE | |
| 521 (#xBD ?\u014A) ;; LATIN CAPITAL LETTER ENG | |
| 522 (#xBE ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON | |
| 523 (#xBF ?\u014B) ;; LATIN SMALL LETTER ENG | |
| 524 (#xC0 ?\u0100) ;; LATIN CAPITAL LETTER A WITH MACRON | |
| 525 (#xC7 ?\u012E) ;; LATIN CAPITAL LETTER I WITH OGONEK | |
| 526 (#xC8 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON | |
| 527 (#xCA ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK | |
| 528 (#xCC ?\u0116) ;; LATIN CAPITAL LETTER E WITH DOT ABOVE | |
| 529 (#xCF ?\u012A) ;; LATIN CAPITAL LETTER I WITH MACRON | |
| 530 (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE | |
| 531 (#xD1 ?\u0145) ;; LATIN CAPITAL LETTER N WITH CEDILLA | |
| 532 (#xD2 ?\u014C) ;; LATIN CAPITAL LETTER O WITH MACRON | |
| 533 (#xD3 ?\u0136) ;; LATIN CAPITAL LETTER K WITH CEDILLA | |
| 534 (#xD9 ?\u0172) ;; LATIN CAPITAL LETTER U WITH OGONEK | |
| 535 (#xDD ?\u0168) ;; LATIN CAPITAL LETTER U WITH TILDE | |
| 536 (#xDE ?\u016A) ;; LATIN CAPITAL LETTER U WITH MACRON | |
| 537 (#xE0 ?\u0101) ;; LATIN SMALL LETTER A WITH MACRON | |
| 538 (#xE7 ?\u012F) ;; LATIN SMALL LETTER I WITH OGONEK | |
| 539 (#xE8 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON | |
| 540 (#xEA ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK | |
| 541 (#xEC ?\u0117) ;; LATIN SMALL LETTER E WITH DOT ABOVE | |
| 542 (#xEF ?\u012B) ;; LATIN SMALL LETTER I WITH MACRON | |
| 543 (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE | |
| 544 (#xF1 ?\u0146) ;; LATIN SMALL LETTER N WITH CEDILLA | |
| 545 (#xF2 ?\u014D) ;; LATIN SMALL LETTER O WITH MACRON | |
| 546 (#xF3 ?\u0137) ;; LATIN SMALL LETTER K WITH CEDILLA | |
| 547 (#xF9 ?\u0173) ;; LATIN SMALL LETTER U WITH OGONEK | |
| 548 (#xFD ?\u0169) ;; LATIN SMALL LETTER U WITH TILDE | |
| 549 (#xFE ?\u016B) ;; LATIN SMALL LETTER U WITH MACRON | |
| 550 (#xFF ?\u02D9));; DOT ABOVE | |
| 551 "ISO-8859-4 (Latin-4)" | |
| 552 '(mnemonic "Latin 4" | |
| 553 aliases (iso-latin-4 latin-4) | |
| 554 documentation "Obsolete coding system for the Baltic rim. ")) | |
| 3767 | 555 |
| 556 | |
| 557 ;; Latin-8 (ISO 8859-14) Celtic. | |
| 558 | |
| 559 ;; Never widely used. Current-orthography Gaelic, both Irish and Scots, is | |
| 560 ;; easily written with Latin-1. Wikipedia says the same about Welsh. | |
| 561 | |
| 562 (make-charset 'latin-iso8859-14 | |
| 563 "Right-Hand Part of Latin Alphabet 8 (ISO/IEC 8859-14)" | |
| 564 '(dimension 1 | |
| 565 registries ["ISO8859-14"] | |
| 566 chars 96 | |
| 567 columns 1 | |
| 568 direction l2r | |
| 569 final ?_ | |
| 570 graphic 1 | |
| 571 short-name "RHP of Latin-8" | |
| 572 long-name "RHP of Latin-8 (ISO 8859-14)")) | |
| 464 | 573 |
| 3767 | 574 ;; |
| 575 ;; Character syntax defaults to word. The exceptions here shared with Latin-1. | |
| 576 (dolist (code '(#xa0 ;; NO BREAK SPACE | |
| 577 #xa3 ;; POUND SIGN | |
| 578 #xa7 ;; SECTION SIGN | |
| 579 #xa9 ;; COPYRIGHT | |
| 580 #xad ;; SOFT HYPHEN | |
| 581 #xae ;; REGISTERED | |
| 582 #xb6)) ;; PILCROW SIGN | |
| 583 (modify-syntax-entry (make-char 'latin-iso8859-14 code) | |
| 584 (string (char-syntax (make-char 'latin-iso8859-1 code))) | |
| 585 (standard-syntax-table))) | |
| 586 ;; Case. | |
| 587 (setup-case-pairs | |
| 588 'latin-iso8859-14 | |
| 589 '((#xA1 #xA2) ;; B WITH DOT ABOVE | |
| 590 (#xA4 #xA5) ;; C WITH DOT ABOVE | |
| 591 (#xA6 #xAB) ;; D WITH DOT ABOVE | |
| 592 (#xA8 #xB8) ;; W WITH GRAVE | |
| 593 (#xAA #xBA) ;; W WITH ACUTE | |
| 594 (#xAC #xBC) ;; Y WITH GRAVE | |
| 595 (#xAF #xFF) ;; Y WITH DIAERESIS | |
| 596 (#xB0 #xB1) ;; F WITH DOT ABOVE | |
| 597 (#xB2 #xB3) ;; G WITH DOT ABOVE | |
| 598 (#xB4 #xB5) ;; M WITH DOT ABOVE | |
| 599 (#xB7 #xB9) ;; P WITH DOT ABOVE | |
| 600 (#xBB #xBF) ;; S WITH DOT ABOVE | |
| 601 (#xBD #xBE) ;; W WITH DIAERESIS | |
| 602 (#xC0 #xE0) ;; A WITH GRAVE | |
| 603 (#xC1 #xE1) ;; A WITH ACUTE | |
| 604 (#xC2 #xE2) ;; A WITH CIRCUMFLEX | |
| 605 (#xC3 #xE3) ;; A WITH TILDE | |
| 606 (#xC4 #xE4) ;; A WITH DIAERESIS | |
| 607 (#xC5 #xE5) ;; A WITH RING ABOVE | |
| 608 (#xC6 #xE6) ;; AE | |
| 609 (#xC7 #xE7) ;; C WITH CEDILLA | |
| 610 (#xC8 #xE8) ;; E WITH GRAVE | |
| 611 (#xC9 #xE9) ;; E WITH ACUTE | |
| 612 (#xCA #xEA) ;; E WITH CIRCUMFLEX | |
| 613 (#xCB #xEB) ;; E WITH DIAERESIS | |
| 614 (#xCC #xEC) ;; I WITH GRAVE | |
| 615 (#xCD #xED) ;; I WITH ACUTE | |
| 616 (#xCE #xEE) ;; I WITH CIRCUMFLEX | |
| 617 (#xCF #xEF) ;; I WITH DIAERESIS | |
| 618 (#xD0 #xF0) ;; W WITH CIRCUMFLEX | |
| 619 (#xD1 #xF1) ;; N WITH TILDE | |
| 620 (#xD2 #xF2) ;; O WITH GRAVE | |
| 621 (#xD3 #xF3) ;; O WITH ACUTE | |
| 622 (#xD4 #xF4) ;; O WITH CIRCUMFLEX | |
| 623 (#xD5 #xF5) ;; O WITH TILDE | |
| 624 (#xD6 #xF6) ;; O WITH DIAERESIS | |
| 625 (#xD7 #xF7) ;; T WITH DOT ABOVE | |
| 626 (#xD8 #xF8) ;; O WITH STROKE | |
| 627 (#xD9 #xF9) ;; U WITH GRAVE | |
| 628 (#xDA #xFA) ;; U WITH ACUTE | |
| 629 (#xDB #xFB) ;; U WITH CIRCUMFLEX | |
| 630 (#xDC #xFC) ;; U WITH DIAERESIS | |
| 631 (#xDD #xFD) ;; Y WITH ACUTE | |
| 632 (#xDE #xFE))) ;; Y WITH CIRCUMFLEX | |
| 464 | 633 |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
634 (make-8-bit-coding-system |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
635 'iso-8859-14 |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
636 '((#xA1 ?\u1E02) ;; LATIN CAPITAL LETTER B WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
637 (#xA2 ?\u1E03) ;; LATIN SMALL LETTER B WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
638 (#xA4 ?\u010A) ;; LATIN CAPITAL LETTER C WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
639 (#xA5 ?\u010B) ;; LATIN SMALL LETTER C WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
640 (#xA6 ?\u1E0A) ;; LATIN CAPITAL LETTER D WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
641 (#xA8 ?\u1E80) ;; LATIN CAPITAL LETTER W WITH GRAVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
642 (#xAA ?\u1E82) ;; LATIN CAPITAL LETTER W WITH ACUTE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
643 (#xAB ?\u1E0B) ;; LATIN SMALL LETTER D WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
644 (#xAC ?\u1EF2) ;; LATIN CAPITAL LETTER Y WITH GRAVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
645 (#xAF ?\u0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
646 (#xB0 ?\u1E1E) ;; LATIN CAPITAL LETTER F WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
647 (#xB1 ?\u1E1F) ;; LATIN SMALL LETTER F WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
648 (#xB2 ?\u0120) ;; LATIN CAPITAL LETTER G WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
649 (#xB3 ?\u0121) ;; LATIN SMALL LETTER G WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
650 (#xB4 ?\u1E40) ;; LATIN CAPITAL LETTER M WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
651 (#xB5 ?\u1E41) ;; LATIN SMALL LETTER M WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
652 (#xB7 ?\u1E56) ;; LATIN CAPITAL LETTER P WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
653 (#xB8 ?\u1E81) ;; LATIN SMALL LETTER W WITH GRAVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
654 (#xB9 ?\u1E57) ;; LATIN SMALL LETTER P WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
655 (#xBA ?\u1E83) ;; LATIN SMALL LETTER W WITH ACUTE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
656 (#xBB ?\u1E60) ;; LATIN CAPITAL LETTER S WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
657 (#xBC ?\u1EF3) ;; LATIN SMALL LETTER Y WITH GRAVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
658 (#xBD ?\u1E84) ;; LATIN CAPITAL LETTER W WITH DIAERESIS |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
659 (#xBE ?\u1E85) ;; LATIN SMALL LETTER W WITH DIAERESIS |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
660 (#xBF ?\u1E61) ;; LATIN SMALL LETTER S WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
661 (#xD0 ?\u0174) ;; LATIN CAPITAL LETTER W WITH CIRCUMFLEX |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
662 (#xD7 ?\u1E6A) ;; LATIN CAPITAL LETTER T WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
663 (#xDE ?\u0176) ;; LATIN CAPITAL LETTER Y WITH CIRCUMFLEX |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
664 (#xF0 ?\u0175) ;; LATIN SMALL LETTER W WITH CIRCUMFLEX |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
665 (#xF7 ?\u1E6B) ;; LATIN SMALL LETTER T WITH DOT ABOVE |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
666 (#xFE ?\u0177)) ;; LATIN SMALL LETTER Y WITH CIRCUMFLEX |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
667 "ISO-8859-14 (Latin-8)" |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
668 '(mnemonic "Latin 8" |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
669 aliases (iso-latin-8 latin-8))) |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4490
diff
changeset
|
670 |
| 3767 | 671 |
| 672 ;; The syntax table code for ISO 8859-15 and ISO 8859-16 requires that the | |
| 673 ;; guillemets not have parenthesis syntax, which they used to have in the | |
| 674 ;; past. See syntax.c:complex_vars_of_syntax. | |
| 675 (assert (not (memq (char-syntax (make-char 'latin-iso8859-1 #xAB)) '(?\( ?\)))) | |
| 676 t "This code assumes \xAB does not have parenthesis syntax. ") | |
| 677 | |
| 678 (assert (not (memq (char-syntax (make-char 'latin-iso8859-1 #xBB)) '(?\( ?\)))) | |
| 679 t "This code assumes \xBB does not have parenthesis syntax. ") | |
| 680 | |
| 681 | |
| 682 ;; Latin-9 (ISO-8859-15) | |
| 683 ;; | |
| 684 ;; Latin-1 plus Euro, plus a few accented characters for the sake of correct | |
| 685 ;; Finnish and French orthography. Only ever widely used on Unix. | |
| 2765 | 686 |
| 3767 | 687 ;; |
| 688 ;; Based on Latin-1 and differences therefrom. | |
| 689 ;; | |
| 690 ;; First, initialise the syntax from the corresponding Latin-1 characters. | |
| 691 (loop | |
| 692 for c from #xa0 to #xff | |
| 693 with syntax-table = (standard-syntax-table) | |
| 694 do (modify-syntax-entry | |
| 695 (make-char 'latin-iso8859-15 c) | |
| 696 (string (char-syntax (make-char 'latin-iso8859-1 c))) | |
| 697 syntax-table)) | |
| 698 | |
| 699 ;; Now, the exceptions. The Euro sign retains the syntax of CURRENCY SIGN. | |
| 700 (loop | |
| 701 for c in '(?,b&(B ?,b((B ?,b4(B ?,b8(B ?,b<(B ?,b=(B ?,b>(B) | |
| 702 with syntax-table = (standard-syntax-table) | |
| 703 do (modify-syntax-entry c "w" syntax-table)) | |
| 704 | |
| 705 ;; Case. | |
| 2765 | 706 (setup-case-pairs |
| 707 'latin-iso8859-15 | |
| 3767 | 708 '((#xA6 #xA8) ;; S WITH CARON * |
| 709 (#xB4 #xB8) ;; Z WITH CARON * | |
| 710 (#xBC #xBD) ;; LATIN LIGATURE OE * | |
| 711 (#xBE #xFF) ;; Y WITH DIAERESIS * | |
| 712 (#xC0 #xE0) ;; A WITH GRAVE | |
| 713 (#xC1 #xE1) ;; A WITH ACUTE | |
| 714 (#xC2 #xE2) ;; A WITH CIRCUMFLEX | |
| 715 (#xC3 #xE3) ;; A WITH TILDE | |
| 716 (#xC4 #xE4) ;; A WITH DIAERESIS | |
| 717 (#xC5 #xE5) ;; A WITH RING ABOVE | |
| 718 (#xC6 #xE6) ;; AE | |
| 719 (#xC7 #xE7) ;; C WITH CEDILLA | |
| 720 (#xC8 #xE8) ;; E WITH GRAVE | |
| 721 (#xC9 #xE9) ;; E WITH ACUTE | |
| 722 (#xCA #xEA) ;; E WITH CIRCUMFLEX | |
| 723 (#xCB #xEB) ;; E WITH DIAERESIS | |
| 724 (#xCC #xEC) ;; I WITH GRAVE | |
| 725 (#xCD #xED) ;; I WITH ACUTE | |
| 726 (#xCE #xEE) ;; I WITH CIRCUMFLEX | |
| 727 (#xCF #xEF) ;; I WITH DIAERESIS | |
| 728 (#xD0 #xF0) ;; ETH | |
| 729 (#xD1 #xF1) ;; N WITH TILDE | |
| 730 (#xD2 #xF2) ;; O WITH GRAVE | |
| 731 (#xD3 #xF3) ;; O WITH ACUTE | |
| 732 (#xD4 #xF4) ;; O WITH CIRCUMFLEX | |
| 733 (#xD5 #xF5) ;; O WITH TILDE | |
| 734 (#xD6 #xF6) ;; O WITH DIAERESIS | |
| 735 (#xD8 #xF8) ;; O WITH STROKE | |
| 736 (#xD9 #xF9) ;; U WITH GRAVE | |
| 737 (#xDA #xFA) ;; U WITH ACUTE | |
| 738 (#xDB #xFB) ;; U WITH CIRCUMFLEX | |
| 739 (#xDC #xFC) ;; U WITH DIAERESIS | |
| 740 (#xDD #xFD) ;; Y WITH ACUTE | |
| 741 (#xDE #xFE))) ;; THORN | |
| 742 | |
| 4299 | 743 (make-8-bit-coding-system |
| 744 'iso-8859-15 | |
| 745 '((#xA4 ?\u20AC) ;; EURO SIGN | |
| 746 (#xA6 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON | |
| 747 (#xA8 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON | |
| 748 (#xB4 ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON | |
| 749 (#xB8 ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON | |
| 750 (#xBC ?\u0152) ;; LATIN CAPITAL LIGATURE OE | |
| 751 (#xBD ?\u0153) ;; LATIN SMALL LIGATURE OE | |
| 752 (#xBE ?\u0178)) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS | |
| 753 "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)" | |
| 754 '(mnemonic "Latin 9" | |
| 755 aliases (iso-latin-9 latin-9 latin-0))) | |
| 2765 | 756 |
| 3767 | 757 ;; end of ISO 8859-15. |
| 758 | |
| 759 ;; | |
| 760 ;; Latin-10 (ISO 8859-16). | |
| 761 ;; | |
| 762 ;; "South-Eastern European." Not, to my knowledge, ever widely used. | |
| 763 | |
| 764 (make-charset 'latin-iso8859-16 | |
| 765 "Right-Hand Part of Latin Alphabet 10 (ISO/IEC 8859-16)" | |
| 766 '(dimension 1 | |
| 767 registries ["ISO8859-16"] | |
| 768 chars 96 | |
| 769 columns 1 | |
| 770 direction l2r | |
| 771 final ?f ; octet 06/06; cf ISO-IR 226 | |
| 772 graphic 1 | |
| 773 short-name "RHP of Latin-10" | |
| 774 long-name "RHP of Latin-10 (ISO 8859-16)")) | |
| 2765 | 775 |
| 3767 | 776 ;; Copy over the non-word syntax this charset has in common with Latin 1. |
| 777 (dolist (code '(#xa0 ;; NO BREAK SPACE | |
| 778 #xa7 ;; SECTION SIGN | |
| 779 #xa9 ;; COPYRIGHT | |
| 780 #xab ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK | |
| 781 #xad ;; SOFT HYPHEN | |
| 782 #xb0 ;; DEGREE | |
| 783 #xb1 ;; PLUS-MINUS SIGN | |
| 784 #xb6 ;; PILCROW SIGN | |
| 785 #xb7 ;; MIDDLE DOT | |
| 786 #xbb)) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK | |
| 787 (modify-syntax-entry (make-char 'latin-iso8859-16 code) | |
| 788 (string (char-syntax (make-char 'latin-iso8859-1 code))) | |
| 789 (standard-syntax-table))) | |
| 790 | |
| 791 ;; EURO SIGN. Take its syntax from the pound sign. | |
| 792 (modify-syntax-entry (make-char 'latin-iso8859-16 #xa4) | |
| 793 (string (char-syntax (make-char 'latin-iso8859-1 #xa3))) | |
| 794 (standard-syntax-table)) | |
| 795 | |
| 796 ;; Take DOUBLE LOW-9 QUOTATION MARK's syntax from that of LEFT-POINTING | |
| 797 ;; DOUBLE ANGLE QUOTATION MARK. | |
| 798 (modify-syntax-entry (make-char 'latin-iso8859-16 #xa5) | |
| 799 (string (char-syntax (make-char 'latin-iso8859-1 #xab))) | |
| 800 (standard-syntax-table)) | |
| 801 | |
| 802 ;; Take RIGHT DOUBLE QUOTATION MARK's syntax from that of RIGHT-POINTING | |
| 803 ;; DOUBLE ANGLE QUOTATION MARK. | |
| 804 (modify-syntax-entry (make-char 'latin-iso8859-16 #xb5) | |
| 805 (string (char-syntax (make-char 'latin-iso8859-1 #xbb))) | |
| 806 (standard-syntax-table)) | |
| 807 | |
| 808 ;; Case. | |
| 2765 | 809 (setup-case-pairs |
| 810 'latin-iso8859-16 | |
| 3767 | 811 '((#xA1 #xA2) ;; A WITH OGONEK |
| 812 (#xA3 #xB3) ;; L WITH STROKE | |
| 813 (#xA6 #xA8) ;; S WITH CARON | |
| 814 (#xAA #xBA) ;; S WITH COMMA BELOW | |
| 815 (#xAC #xAE) ;; Z WITH ACUTE | |
| 816 (#xAF #xBF) ;; Z WITH DOT ABOVE | |
| 817 (#xB2 #xB9) ;; C WITH CARON | |
| 818 (#xB4 #xB8) ;; Z WITH CARON | |
| 819 (#xBE #xFF) ;; Y WITH DIAERESIS | |
| 820 (#xC0 #xE0) ;; A WITH GRAVE | |
| 821 (#xC1 #xE1) ;; A WITH ACUTE | |
| 822 (#xC2 #xE2) ;; A WITH CIRCUMFLEX | |
| 823 (#xC3 #xE3) ;; A WITH BREVE | |
| 824 (#xC4 #xE4) ;; A WITH DIAERESIS | |
| 825 (#xC5 #xE5) ;; C WITH ACUTE | |
| 826 (#xC6 #xE6) ;; AE | |
| 827 (#xC7 #xE7) ;; C WITH CEDILLA | |
| 828 (#xC8 #xE8) ;; E WITH GRAVE | |
| 829 (#xC9 #xE9) ;; E WITH ACUTE | |
| 830 (#xCA #xEA) ;; E WITH CIRCUMFLEX | |
| 831 (#xCB #xEB) ;; E WITH DIAERESIS | |
| 832 (#xCC #xEC) ;; I WITH GRAVE | |
| 833 (#xCD #xED) ;; I WITH ACUTE | |
| 834 (#xCE #xEE) ;; I WITH CIRCUMFLEX | |
| 835 (#xCF #xEF) ;; I WITH DIAERESIS | |
| 836 (#xD0 #xF0) ;; D WITH STROKE | |
| 837 (#xD1 #xF1) ;; N WITH ACUTE | |
| 838 (#xD2 #xF2) ;; O WITH GRAVE | |
| 839 (#xD3 #xF3) ;; O WITH ACUTE | |
| 840 (#xD4 #xF4) ;; O WITH CIRCUMFLEX | |
| 841 (#xD5 #xF5) ;; O WITH DOUBLE ACUTE | |
| 842 (#xD6 #xF6) ;; O WITH DIAERESIS | |
| 843 (#xD7 #xF7) ;; S WITH ACUTE | |
| 844 (#xD8 #xF8) ;; U WITH DOUBLE ACUTE | |
| 845 (#xD9 #xF9) ;; U WITH GRAVE | |
| 846 (#xDA #xFA) ;; U WITH ACUTE | |
| 847 (#xDB #xFB) ;; U WITH CIRCUMFLEX | |
| 848 (#xDC #xFC) ;; U WITH DIAERESIS | |
| 849 (#xDD #xFD) ;; E WITH OGONEK | |
| 850 (#xDE #xFE))) ;; T WITH COMMA BELOW | |
| 851 | |
| 852 ;; Add a coding system for ISO 8859-16. | |
| 4299 | 853 (make-8-bit-coding-system |
| 854 'iso-8859-16 | |
| 855 '((#xA1 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK | |
| 856 (#xA2 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK | |
| 857 (#xA3 ?\u0141) ;; LATIN CAPITAL LETTER L WITH STROKE | |
| 858 (#xA4 ?\u20AC) ;; EURO SIGN | |
| 859 (#xA5 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK | |
| 860 (#xA6 ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON | |
| 861 (#xA8 ?\u0161) ;; LATIN SMALL LETTER S WITH CARON | |
| 862 (#xAA ?\u0218) ;; LATIN CAPITAL LETTER S WITH COMMA BELOW | |
| 863 (#xAC ?\u0179) ;; LATIN CAPITAL LETTER Z WITH ACUTE | |
| 864 (#xAE ?\u017A) ;; LATIN SMALL LETTER Z WITH ACUTE | |
| 865 (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE | |
| 866 (#xB2 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON | |
| 867 (#xB3 ?\u0142) ;; LATIN SMALL LETTER L WITH STROKE | |
| 868 (#xB4 ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON | |
| 869 (#xB5 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK | |
| 870 (#xB8 ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON | |
| 871 (#xB9 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON | |
| 872 (#xBA ?\u0219) ;; LATIN SMALL LETTER S WITH COMMA BELOW | |
| 873 (#xBC ?\u0152) ;; LATIN CAPITAL LIGATURE OE | |
| 874 (#xBD ?\u0153) ;; LATIN SMALL LIGATURE OE | |
| 875 (#xBE ?\u0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS | |
| 876 (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE | |
| 877 (#xC3 ?\u0102) ;; LATIN CAPITAL LETTER A WITH BREVE | |
| 878 (#xC5 ?\u0106) ;; LATIN CAPITAL LETTER C WITH ACUTE | |
| 879 (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE | |
| 880 (#xD1 ?\u0143) ;; LATIN CAPITAL LETTER N WITH ACUTE | |
| 881 (#xD5 ?\u0150) ;; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE | |
| 882 (#xD7 ?\u015A) ;; LATIN CAPITAL LETTER S WITH ACUTE | |
| 883 (#xD8 ?\u0170) ;; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE | |
| 884 (#xDD ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK | |
| 885 (#xDE ?\u021A) ;; LATIN CAPITAL LETTER T WITH COMMA BELOW | |
| 886 (#xE3 ?\u0103) ;; LATIN SMALL LETTER A WITH BREVE | |
| 887 (#xE5 ?\u0107) ;; LATIN SMALL LETTER C WITH ACUTE | |
| 888 (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE | |
| 889 (#xF1 ?\u0144) ;; LATIN SMALL LETTER N WITH ACUTE | |
| 890 (#xF5 ?\u0151) ;; LATIN SMALL LETTER O WITH DOUBLE ACUTE | |
| 891 (#xF7 ?\u015B) ;; LATIN SMALL LETTER S WITH ACUTE | |
| 892 (#xF8 ?\u0171) ;; LATIN SMALL LETTER U WITH DOUBLE ACUTE | |
| 893 (#xFD ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK | |
| 894 (#xFE ?\u021B)) ;; LATIN SMALL LETTER T WITH COMMA BELOW | |
| 895 "ISO-8859-16 (Latin-10)" | |
| 896 '(mnemonic "Latin 10" | |
| 897 aliases (iso-latin-10))) | |
| 3767 | 898 |
| 899 ;; end of ISO 8859-16. | |
| 900 | |
| 901 | |
| 902 (provide 'romanian) | |
| 903 | |
| 904 ;; Czech support originally from czech.el | |
| 905 ;; Author: Milan Zamazal <pdm@zamazal.org> | |
| 906 ;; Maintainer (FSF): Pavel Jan,Am(Bk <Pavel@Janik.cz> | |
| 907 ;; Maintainer (for XEmacs): David Sauer <davids@penguin.cz> | |
| 908 | |
| 909 (provide 'czech) | |
| 910 | |
| 911 ;; Slovak support originally from slovak.el | |
| 912 ;; Authors: Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk>, | |
| 913 ;; Milan Zamazal <pdm@fi.muni.cz> | |
| 914 ;; Maintainer: Milan Zamazal <pdm@fi.muni.cz> | |
| 915 | |
| 916 (provide 'slovenian) | |
| 917 | |
| 918 ;; Latin-5 (ISO-8859-9) | |
| 919 | |
| 920 ;; Turkish (more generally Turkic.) This is identical to Latin-1, with the | |
| 921 ;; exception that the Icelandic-specific letters have been replaced by | |
| 922 ;; Turkish-specific letters. As such, we can simply copy the Latin-1 syntax | |
| 923 ;; table. | |
| 924 | |
| 925 (loop | |
| 926 for i from #xA0 to #xFF | |
| 927 with syntax-table = (standard-syntax-table) | |
| 928 do (modify-syntax-entry | |
| 929 (make-char 'latin-iso8859-9 i) | |
| 930 (string (char-syntax (make-char 'latin-iso8859-1 i))) | |
| 931 syntax-table)) | |
| 932 | |
| 4145 | 933 ;; Case. The Turkish case idiosyncracy is handled with its language environment. |
| 3767 | 934 (setup-case-pairs |
| 935 'latin-iso8859-9 | |
| 936 '((#xC0 #xE0) ;; A WITH GRAVE | |
| 937 (#xC1 #xE1) ;; A WITH ACUTE | |
| 938 (#xC2 #xE2) ;; A WITH CIRCUMFLEX | |
| 939 (#xC3 #xE3) ;; A WITH TILDE | |
| 940 (#xC4 #xE4) ;; A WITH DIAERESIS | |
| 941 (#xC5 #xE5) ;; A WITH RING ABOVE | |
| 942 (#xC6 #xE6) ;; AE | |
| 943 (#xC7 #xE7) ;; C WITH CEDILLA | |
| 944 (#xC8 #xE8) ;; E WITH GRAVE | |
| 945 (#xC9 #xE9) ;; E WITH ACUTE | |
| 946 (#xCB #xEB) ;; E WITH DIAERESIS | |
| 947 (#xCD #xED) ;; I WITH ACUTE | |
| 948 (#xCE #xEE) ;; I WITH CIRCUMFLEX | |
| 949 (#xD0 #xF0) ;; G WITH BREVE | |
| 950 (#xD1 #xF1) ;; N WITH TILDE | |
| 951 (#xD2 #xF2) ;; O WITH GRAVE | |
| 952 (#xD3 #xF3) ;; O WITH ACUTE | |
| 953 (#xD4 #xF4) ;; O WITH CIRCUMFLEX | |
| 954 (#xD5 #xF5) ;; O WITH TILDE | |
| 955 (#xD6 #xF6) ;; O WITH DIAERESIS | |
| 956 (#xD8 #xF8) ;; O WITH STROKE | |
| 957 (#xD9 #xF9) ;; U WITH GRAVE | |
| 958 (#xDA #xFA) ;; U WITH ACUTE | |
| 959 (#xDB #xFB) ;; U WITH CIRCUMFLEX | |
| 960 (#xDC #xFC) ;; U WITH DIAERESIS | |
| 961 (#xDE #xFE))) ;; S WITH CEDILLA | |
| 962 | |
| 4145 | 963 ;; LATIN CAPITAL LETTER I WITH DOT ABOVE |
| 964 (put-case-table 'downcase | |
| 965 (make-char 'latin-iso8859-9 #xdd) | |
| 966 ?i (standard-case-table)) | |
| 967 | |
| 968 ;; LATIN SMALL LETTER DOTLESS I | |
| 969 (put-case-table 'upcase | |
| 970 (make-char 'latin-iso8859-9 #xfd) | |
| 971 ?I (standard-case-table)) | |
| 972 | |
| 4299 | 973 (make-8-bit-coding-system |
| 974 'iso-8859-9 | |
| 975 '((#xD0 ?\u011E) ;; LATIN CAPITAL LETTER G WITH BREVE | |
| 976 (#xDD ?\u0130) ;; LATIN CAPITAL LETTER I WITH DOT ABOVE | |
| 977 (#xDE ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA | |
| 978 (#xF0 ?\u011F) ;; LATIN SMALL LETTER G WITH BREVE | |
| 979 (#xFD ?\u0131) ;; LATIN SMALL LETTER DOTLESS I | |
| 980 (#xFE ?\u015F)) ;; LATIN SMALL LETTER S WITH CEDILLA | |
| 981 "ISO-8859-9 (Latin-5)" | |
| 982 '(mnemonic "Latin 5" | |
| 983 aliases (iso-latin-5 latin-5))) | |
| 3767 | 984 |
| 985 ;; end of ISO-8859-9 | |
| 986 | |
| 987 ;; This is a utility function; we don't want it in the dumped XEmacs. | |
| 988 | |
| 989 (fmakunbound 'setup-case-pairs) | |
| 2765 | 990 |
| 464 | 991 |
| 3767 | 992 ;; Language environments. |
| 993 (loop | |
| 994 for ((charset codesys default-input nice-charset-1 nice-charset-2 | |
| 995 ;; supported-langs is a list if the doc string is replaced | |
| 996 ;; entirely | |
|
4490
67fbcaf3dbdc
error-sequence -> invalid-sequence
Aidan Kehoe <kehoea@parhasard.net>
parents:
4489
diff
changeset
|
997 supported-langs invalid-sequence-coding-system) |
| 3767 | 998 langenvs) in |
| 999 '(((latin-iso8859-1 iso-8859-1 "latin-1-prefix" "Latin-1" "ISO-8859-1" | |
| 1000 " Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic, | |
|
4489
b75b075a9041
Support displaying invalid UTF-8 in language-environment-specific ways.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4447
diff
changeset
|
1001 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish." |
|
b75b075a9041
Support displaying invalid UTF-8 in language-environment-specific ways.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4447
diff
changeset
|
1002 windows-1252) |
| 3767 | 1003 (("Danish" "da") |
| 1004 ("Dutch" "nl" "TUTORIAL.nl") | |
| 4090 | 1005 ("Faeroese" "fo") |
| 3767 | 1006 ("Finnish" "fi") |
| 1007 ("French" "fr" "TUTORIAL.fr" "Bonjour, ,Ag(Ba va?") | |
| 1008 ("German" "de" "TUTORIAL.de" "\ | |
| 1009 German (Deutsch Nord) Guten Tag | |
| 1010 German (Deutsch S,A|(Bd) Gr,A|_(B Gott" | |
| 1011 "german-postfix") | |
| 1012 ("Icelandic" "is") | |
| 1013 ("Irish" "ga") | |
| 1014 ("Italian" "it") | |
| 1015 ("Norwegian" "no" "TUTORIAL.no") | |
| 1016 ("Portuguese" "pt" nil "Bem-vindo! Tudo bem?") | |
| 1017 ("Spanish" "es" "TUTORIAL.es" ",A!(BHola!") | |
| 1018 ("Swedish" "sv" "TUTORIAL.se" "Hej!"))) | |
| 1019 ((latin-iso8859-15 iso-8859-15 "latin-1-prefix" ;; #### FIXME | |
| 1020 "Latin-9" "ISO-8859-15") | |
| 1021 ()) | |
| 1022 ((latin-iso8859-2 iso-8859-2 "latin-2-prefix" "Latin-2" "ISO-8859-2" | |
| 1023 " Albanian, Czech, English, German, Hungarian, Polish, Romanian, | |
| 1024 Serbian, Croatian, Slovak, Slovene, Sorbian (upper and lower), | |
|
4600
dcfd965d65a1
Correct invalid-sequence-coding-system spec, Roman-alphabet languages.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4568
diff
changeset
|
1025 and Swedish." windows-1250) |
| 4090 | 1026 (("Albanian" "sq") |
| 3767 | 1027 ("Croatian" ("hrvatski" "hr") "TUTORIAL.hr") |
| 1028 ("Czech" ("cs" "cz") "TUTORIAL.cs" "P,Bx(Bejeme v,Ba(Bm hezk,B}(B den!" | |
| 1029 "latin-2-postfix") | |
| 1030 ("Hungarian" ("hungarian" "hu")) | |
| 4240 | 1031 ("Polish" ("pl" "po") "TUTORIAL.pl") ;; #### Is "po" actually used? |
| 3767 | 1032 ("Romanian" "ro" "TUTORIAL.ro" "Bun,Bc(B ziua, bine a,B~(Bi venit!" |
| 1033 "latin-2-postfix") | |
| 1034 ("Serbian" "sr") | |
| 1035 ("Slovak" "sk" "TUTORIAL.sk" "Prajeme V,Ba(Bm pr,Bm(Bjemn,B}(B de,Br(B!" | |
| 1036 "latin-2-postfix") | |
| 1037 ("Slovenian" "sl" "TUTORIAL.sl" ",B.(Belimo vam uspe,B9(Ben dan!" | |
| 1038 "latin-2-postfix") | |
| 1039 ("Sorbian" nil))) | |
| 1040 ((latin-iso8859-3 iso-8859-3 "latin-3-prefix" "Latin-3" "ISO-8859-3" | |
| 1041 " Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician, | |
| 1042 German, Italian, Maltese, Spanish, and Turkish.") | |
| 1043 (("Afrikaans" "af") | |
| 1044 ("Catalan" ("catalan" "ca")) | |
| 4090 | 1045 ("Esperanto" "eo") |
| 1046 ("Galician" "gl") | |
| 1047 ("Maltese" "mt"))) | |
| 3767 | 1048 ((latin-iso8859-4 iso-8859-4 "latin-4-prefix" "Latin-4" "ISO-8859-4" |
| 1049 " Danish, English, Estonian, Finnish, German, Greenlandic, Lappish, | |
| 1050 Latvian, Lithuanian, and Norwegian.") | |
| 1051 (("Estonian" "et") | |
| 4090 | 1052 ("Greenlandic" "kl") |
| 1053 ("Lappish" "se") | |
| 3767 | 1054 ("Latvian" "lv") |
| 1055 ("Lithuanian" "li"))) | |
| 3977 | 1056 ((latin-iso8859-9 iso-8859-9 "latin-5-prefix" "Latin-5" "ISO-8859-9") |
| 3767 | 1057 (("Turkish" "tr")))) |
| 1058 do | |
| 1059 (set-language-info-alist | |
| 1060 nice-charset-1 | |
| 1061 `((charset ascii ,charset) | |
| 1062 (coding-system ,codesys) | |
| 1063 (coding-priority ,codesys) | |
| 1064 (native-coding-system ,codesys) | |
|
4490
67fbcaf3dbdc
error-sequence -> invalid-sequence
Aidan Kehoe <kehoea@parhasard.net>
parents:
4489
diff
changeset
|
1065 (invalid-sequence-coding-system ,(or invalid-sequence-coding-system |
|
67fbcaf3dbdc
error-sequence -> invalid-sequence
Aidan Kehoe <kehoea@parhasard.net>
parents:
4489
diff
changeset
|
1066 codesys)) |
| 3767 | 1067 (documentation . ,(if (listp supported-langs) (car supported-langs) |
| 1068 (format "\ | |
| 1069 Generic language environment for %s (%s)." nice-charset-1 nice-charset-2)))) | |
| 1070 '("European")) | |
| 1071 (loop for (name locale tutorial sample-text input-method) in langenvs | |
| 1072 do | |
| 1073 (set-language-info-alist | |
| 1074 name | |
| 1075 `((charset ascii ,charset) | |
| 1076 (coding-system ,codesys) | |
| 1077 (coding-priority ,codesys) | |
| 1078 (native-coding-system ,codesys) | |
|
4600
dcfd965d65a1
Correct invalid-sequence-coding-system spec, Roman-alphabet languages.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4568
diff
changeset
|
1079 (invalid-sequence-coding-system ,(or invalid-sequence-coding-system |
|
dcfd965d65a1
Correct invalid-sequence-coding-system spec, Roman-alphabet languages.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4568
diff
changeset
|
1080 codesys)) |
| 3767 | 1081 ,@(if locale `((locale . ,locale))) |
| 4240 | 1082 ,@(if tutorial `((tutorial . ,tutorial) |
|
4325
948c9b232595
Avoid an error when clicking on Help -> Tutorials
Aidan Kehoe <kehoea@parhasard.net>
parents:
4316
diff
changeset
|
1083 (tutorial-coding-system . ,codesys))) |
| 3767 | 1084 ,@(if sample-text `((sample-text . ,sample-text))) |
| 1085 (input-method . ,(or input-method default-input)) | |
| 1086 (documentation . ,(format "\ | |
| 1087 This language environment supports %s. " name))) | |
| 1088 '("European")))) | |
| 464 | 1089 |
| 4145 | 1090 ;; The case table for Turkish is special: |
| 1091 ;; #### Maybe we should limit this change to interactive functions; this may | |
| 1092 ;; well be awkward for protocols and so on. | |
| 1093 (set-language-info "Turkish" | |
| 1094 'setup-function | |
| 1095 (lambda () | |
| 1096 ;; The lowercase version of I is dotless i | |
| 1097 (put-case-table-pair ?I | |
| 1098 (make-char 'latin-iso8859-9 #xfd) | |
| 1099 (standard-case-table)) | |
| 1100 ;; The uppercase version of i is I with dot | |
| 1101 (put-case-table-pair (make-char 'latin-iso8859-9 #xdd) | |
| 1102 ?i (standard-case-table)))) | |
| 1103 | |
| 1104 (set-language-info "Turkish" | |
| 1105 'exit-function | |
| 1106 (lambda () | |
| 1107 ;; Restore the normal case mappings for the characters. | |
| 1108 (put-case-table-pair ?I ?i (standard-case-table)))) | |
| 1109 | |
| 1110 (make-8-bit-coding-system | |
| 1111 'macintosh | |
| 1112 '((#x80 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS | |
| 1113 (#x81 ?\u00C5) ;; LATIN CAPITAL LETTER A WITH RING ABOVE | |
| 1114 (#x82 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA | |
| 1115 (#x83 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE | |
| 1116 (#x84 ?\u00D1) ;; LATIN CAPITAL LETTER N WITH TILDE | |
| 1117 (#x85 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS | |
| 1118 (#x86 ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS | |
| 1119 (#x87 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE | |
| 1120 (#x88 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE | |
| 1121 (#x89 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX | |
| 1122 (#x8A ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS | |
| 1123 (#x8B ?\u00E3) ;; LATIN SMALL LETTER A WITH TILDE | |
| 1124 (#x8C ?\u00E5) ;; LATIN SMALL LETTER A WITH RING ABOVE | |
| 1125 (#x8D ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA | |
| 1126 (#x8E ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE | |
| 1127 (#x8F ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE | |
| 1128 (#x90 ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX | |
| 1129 (#x91 ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS | |
| 1130 (#x92 ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE | |
| 1131 (#x93 ?\u00EC) ;; LATIN SMALL LETTER I WITH GRAVE | |
| 1132 (#x94 ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX | |
| 1133 (#x95 ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS | |
| 1134 (#x96 ?\u00F1) ;; LATIN SMALL LETTER N WITH TILDE | |
| 1135 (#x97 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE | |
| 1136 (#x98 ?\u00F2) ;; LATIN SMALL LETTER O WITH GRAVE | |
| 1137 (#x99 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX | |
| 1138 (#x9A ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS | |
| 1139 (#x9B ?\u00F5) ;; LATIN SMALL LETTER O WITH TILDE | |
| 1140 (#x9C ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE | |
| 1141 (#x9D ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE | |
| 1142 (#x9E ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX | |
| 1143 (#x9F ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS | |
| 1144 (#xA0 ?\u2020) ;; DAGGER | |
| 1145 (#xA1 ?\u00B0) ;; DEGREE SIGN | |
| 1146 (#xA2 ?\u00A2) ;; CENT SIGN | |
| 1147 (#xA3 ?\u00A3) ;; POUND SIGN | |
| 1148 (#xA4 ?\u00A7) ;; SECTION SIGN | |
| 1149 (#xA5 ?\u2022) ;; BULLET | |
| 1150 (#xA6 ?\u00B6) ;; PILCROW SIGN | |
| 1151 (#xA7 ?\u00DF) ;; LATIN SMALL LETTER SHARP S | |
| 1152 (#xA8 ?\u00AE) ;; REGISTERED SIGN | |
| 1153 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN | |
| 1154 (#xAA ?\u2122) ;; TRADE MARK SIGN | |
| 1155 (#xAB ?\u00B4) ;; ACUTE ACCENT | |
| 1156 (#xAC ?\u00A8) ;; DIAERESIS | |
| 1157 (#xAD ?\u2260) ;; NOT EQUAL TO | |
| 1158 (#xAE ?\u00C6) ;; LATIN CAPITAL LETTER AE | |
| 1159 (#xAF ?\u00D8) ;; LATIN CAPITAL LETTER O WITH STROKE | |
| 1160 (#xB0 ?\u221E) ;; INFINITY | |
| 1161 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN | |
| 1162 (#xB2 ?\u2264) ;; LESS-THAN OR EQUAL TO | |
| 1163 (#xB3 ?\u2265) ;; GREATER-THAN OR EQUAL TO | |
| 1164 (#xB4 ?\u00A5) ;; YEN SIGN | |
| 1165 (#xB5 ?\u00B5) ;; MICRO SIGN | |
| 1166 (#xB6 ?\u2202) ;; PARTIAL DIFFERENTIAL | |
| 1167 (#xB7 ?\u2211) ;; N-ARY SUMMATION | |
| 1168 (#xB8 ?\u220F) ;; N-ARY PRODUCT | |
| 1169 (#xB9 ?\u03C0) ;; GREEK SMALL LETTER PI | |
| 1170 (#xBA ?\u222B) ;; INTEGRAL | |
| 1171 (#xBB ?\u00AA) ;; FEMININE ORDINAL INDICATOR | |
| 1172 (#xBC ?\u00BA) ;; MASCULINE ORDINAL INDICATOR | |
| 1173 (#xBD ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA | |
| 1174 (#xBE ?\u00E6) ;; LATIN SMALL LETTER AE | |
| 1175 (#xBF ?\u00F8) ;; LATIN SMALL LETTER O WITH STROKE | |
| 1176 (#xC0 ?\u00BF) ;; INVERTED QUESTION MARK | |
| 1177 (#xC1 ?\u00A1) ;; INVERTED EXCLAMATION MARK | |
| 1178 (#xC2 ?\u00AC) ;; NOT SIGN | |
| 1179 (#xC3 ?\u221A) ;; SQUARE ROOT | |
| 1180 (#xC4 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK | |
| 1181 (#xC5 ?\u2248) ;; ALMOST EQUAL TO | |
| 1182 (#xC6 ?\u2206) ;; INCREMENT | |
| 1183 (#xC7 ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK | |
| 1184 (#xC8 ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK | |
| 1185 (#xC9 ?\u2026) ;; HORIZONTAL ELLIPSIS | |
| 1186 (#xCA ?\u00A0) ;; NO-BREAK SPACE | |
| 1187 (#xCB ?\u00C0) ;; LATIN CAPITAL LETTER A WITH GRAVE | |
| 1188 (#xCC ?\u00C3) ;; LATIN CAPITAL LETTER A WITH TILDE | |
| 1189 (#xCD ?\u00D5) ;; LATIN CAPITAL LETTER O WITH TILDE | |
| 1190 (#xCE ?\u0152) ;; LATIN CAPITAL LIGATURE OE | |
| 1191 (#xCF ?\u0153) ;; LATIN SMALL LIGATURE OE | |
| 1192 (#xD0 ?\u2013) ;; EN DASH | |
| 1193 (#xD1 ?\u2014) ;; EM DASH | |
| 1194 (#xD2 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK | |
| 1195 (#xD3 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK | |
| 1196 (#xD4 ?\u2018) ;; LEFT SINGLE QUOTATION MARK | |
| 1197 (#xD5 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK | |
| 1198 (#xD6 ?\u00F7) ;; DIVISION SIGN | |
| 1199 (#xD7 ?\u25CA) ;; LOZENGE | |
| 1200 (#xD8 ?\u00FF) ;; LATIN SMALL LETTER Y WITH DIAERESIS | |
| 1201 (#xD9 ?\u0178) ;; LATIN CAPITAL LETTER Y WITH DIAERESIS | |
| 1202 (#xDA ?\u2044) ;; FRACTION SLASH | |
| 1203 (#xDB ?\u20AC) ;; EURO SIGN | |
| 1204 (#xDC ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK | |
| 1205 (#xDD ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK | |
| 1206 (#xDE ?\uFB01) ;; LATIN SMALL LIGATURE FI | |
| 1207 (#xDF ?\uFB02) ;; LATIN SMALL LIGATURE FL | |
| 1208 (#xE0 ?\u2021) ;; DOUBLE DAGGER | |
| 1209 (#xE1 ?\u00B7) ;; MIDDLE DOT | |
| 1210 (#xE2 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK | |
| 1211 (#xE3 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK | |
| 1212 (#xE4 ?\u2030) ;; PER MILLE SIGN | |
| 1213 (#xE5 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX | |
| 1214 (#xE6 ?\u00CA) ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX | |
| 1215 (#xE7 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE | |
| 1216 (#xE8 ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS | |
| 1217 (#xE9 ?\u00C8) ;; LATIN CAPITAL LETTER E WITH GRAVE | |
| 1218 (#xEA ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE | |
| 1219 (#xEB ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX | |
| 1220 (#xEC ?\u00CF) ;; LATIN CAPITAL LETTER I WITH DIAERESIS | |
| 1221 (#xED ?\u00CC) ;; LATIN CAPITAL LETTER I WITH GRAVE | |
| 1222 (#xEE ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE | |
| 1223 (#xEF ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX | |
| 1224 (#xF0 ?\uF8FF) ;; Apple logo | |
| 1225 (#xF1 ?\u00D2) ;; LATIN CAPITAL LETTER O WITH GRAVE | |
| 1226 (#xF2 ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE | |
| 1227 (#xF3 ?\u00DB) ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX | |
| 1228 (#xF4 ?\u00D9) ;; LATIN CAPITAL LETTER U WITH GRAVE | |
| 1229 (#xF5 ?\u0131) ;; LATIN SMALL LETTER DOTLESS I | |
| 1230 (#xF6 ?\u02C6) ;; MODIFIER LETTER CIRCUMFLEX ACCENT | |
| 1231 (#xF7 ?\u02DC) ;; SMALL TILDE | |
| 1232 (#xF8 ?\u00AF) ;; MACRON | |
| 1233 (#xF9 ?\u02D8) ;; BREVE | |
| 1234 (#xFA ?\u02D9) ;; DOT ABOVE | |
| 1235 (#xFB ?\u02DA) ;; RING ABOVE | |
| 1236 (#xFC ?\u00B8) ;; CEDILLA | |
| 1237 (#xFD ?\u02DD) ;; DOUBLE ACUTE ACCENT | |
| 1238 (#xFE ?\u02DB) ;; OGONEK | |
| 1239 (#xFF ?\u02C7)) ;; CARON | |
| 1240 "The Macintosh encoding for Western Europe and the Americas" | |
| 1241 '(mnemonic "MR" | |
| 1242 documentation "MacRoman, MIME name macintosh" | |
| 1243 aliases (cp10000 MacRoman))) | |
| 1244 | |
| 1245 (make-8-bit-coding-system | |
| 1246 'windows-1252 | |
| 1247 '((#x80 ?\u20AC) ;; EURO SIGN | |
| 1248 (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK | |
| 1249 (#x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK | |
| 1250 (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK | |
| 1251 (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS | |
| 1252 (#x86 ?\u2020) ;; DAGGER | |
| 1253 (#x87 ?\u2021) ;; DOUBLE DAGGER | |
| 1254 (#x88 ?\u02C6) ;; MODIFIER LETTER CIRCUMFLEX ACCENT | |
| 1255 (#x89 ?\u2030) ;; PER MILLE SIGN | |
| 1256 (#x8A ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON | |
| 1257 (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK | |
| 1258 (#x8C ?\u0152) ;; LATIN CAPITAL LIGATURE OE | |
| 1259 (#x8E ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON | |
| 1260 (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK | |
| 1261 (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK | |
| 1262 (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK | |
| 1263 (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK | |
| 1264 (#x95 ?\u2022) ;; BULLET | |
| 1265 (#x96 ?\u2013) ;; EN DASH | |
| 1266 (#x97 ?\u2014) ;; EM DASH | |
| 1267 (#x98 ?\u02DC) ;; SMALL TILDE | |
| 1268 (#x99 ?\u2122) ;; TRADE MARK SIGN | |
| 1269 (#x9A ?\u0161) ;; LATIN SMALL LETTER S WITH CARON | |
| 1270 (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK | |
| 1271 (#x9C ?\u0153) ;; LATIN SMALL LIGATURE OE | |
| 1272 (#x9E ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON | |
| 1273 (#x9F ?\u0178));; LATIN CAPITAL LETTER Y WITH DIAERESIS | |
| 1274 "Microsoft's extension of iso-8859-1 for Western Europe and the Americas. " | |
| 1275 '(mnemonic "cp1252" | |
| 1276 aliases (cp1252))) | |
| 1277 | |
|
4316
2e528ccfe690
Create "UTF-8" and "WINDOWS-1252" language environments.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4299
diff
changeset
|
1278 ;; Provide language environments that prefer specific coding systems. |
|
2e528ccfe690
Create "UTF-8" and "WINDOWS-1252" language environments.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4299
diff
changeset
|
1279 (loop |
|
2e528ccfe690
Create "UTF-8" and "WINDOWS-1252" language environments.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4299
diff
changeset
|
1280 for coding-system in '(utf-8 windows-1252 macintosh) |
|
2e528ccfe690
Create "UTF-8" and "WINDOWS-1252" language environments.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4299
diff
changeset
|
1281 with name = nil |
|
2e528ccfe690
Create "UTF-8" and "WINDOWS-1252" language environments.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4299
diff
changeset
|
1282 with assocked = nil |
|
2e528ccfe690
Create "UTF-8" and "WINDOWS-1252" language environments.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4299
diff
changeset
|
1283 do |
|
2e528ccfe690
Create "UTF-8" and "WINDOWS-1252" language environments.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4299
diff
changeset
|
1284 (setq name (create-variant-language-environment "English" coding-system) |
|
2e528ccfe690
Create "UTF-8" and "WINDOWS-1252" language environments.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4299
diff
changeset
|
1285 assocked (assoc name language-info-alist)) |
|
2e528ccfe690
Create "UTF-8" and "WINDOWS-1252" language environments.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4299
diff
changeset
|
1286 (setcar assocked |
|
2e528ccfe690
Create "UTF-8" and "WINDOWS-1252" language environments.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4299
diff
changeset
|
1287 (upcase (symbol-name coding-system))) |
|
2e528ccfe690
Create "UTF-8" and "WINDOWS-1252" language environments.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4299
diff
changeset
|
1288 (setcdr assocked |
|
2e528ccfe690
Create "UTF-8" and "WINDOWS-1252" language environments.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4299
diff
changeset
|
1289 (remassq 'locale (cdr assocked)))) |
|
2e528ccfe690
Create "UTF-8" and "WINDOWS-1252" language environments.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4299
diff
changeset
|
1290 |
| 3767 | 1291 ;;; latin.el ends here |