Commit | Line | Data |
---|---|---|
e8af40ee | 1 | ;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*- |
4ed46869 | 2 | |
38141d20 | 3 | ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, |
49f70d46 | 4 | ;; 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. |
7976eda0 | 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
5df4f04c | 6 | ;; 2005, 2006, 2007, 2008, 2009, 2010, 2011 |
eaa61218 KH |
7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 | ;; Registration Number H14PRO021 | |
8f924df7 KH |
9 | ;; Copyright (C) 2003 |
10 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | |
11 | ;; Registration Number H13PRO009 | |
4ed46869 KH |
12 | |
13 | ;; Keywords: multilingual, European | |
14 | ||
15 | ;; This file is part of GNU Emacs. | |
16 | ||
4936186e | 17 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
4ed46869 | 18 | ;; it under the terms of the GNU General Public License as published by |
4936186e GM |
19 | ;; the Free Software Foundation, either version 3 of the License, or |
20 | ;; (at your option) any later version. | |
4ed46869 KH |
21 | |
22 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
23 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
24 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
25 | ;; GNU General Public License for more details. | |
26 | ||
27 | ;; You should have received a copy of the GNU General Public License | |
4936186e | 28 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
4ed46869 KH |
29 | |
30 | ;;; Commentary: | |
31 | ||
6b61353c KH |
32 | ;; For European scripts, all the ISO Latin character sets are |
33 | ;; supported, along with various others. | |
4ed46869 KH |
34 | |
35 | ;;; Code: | |
36 | ||
5c4794f3 | 37 | ;; Latin-1 (ISO-8859-1) |
335a7ad7 | 38 | |
335a7ad7 | 39 | (set-language-info-alist |
e1915ab3 | 40 | "Latin-1" '((charset iso-8859-1) |
98a51523 | 41 | (coding-system iso-latin-1 iso-latin-9 windows-1252) |
3617715a | 42 | (coding-priority iso-latin-1) |
e1915ab3 | 43 | (nonascii-translation . iso-8859-1) |
bed54678 | 44 | (unibyte-display . iso-latin-1) |
3e56710f | 45 | (input-method . "latin-1-prefix") |
5c4794f3 | 46 | (sample-text |
327719ee | 47 | . "Hello, Hej, Tere, Hei, Bonjour, Gr\e$(D+d)N\e(B Gott, Ciao, \e$(D"B\e(BHola!") |
3617715a | 48 | (documentation . "\ |
cce3ba48 DL |
49 | This language environment is a generic one for the Latin-1 (ISO-8859-1) |
50 | character set which supports the following European languages: | |
51 | Albanian, Basque, Breton, Catalan, Danish, Dutch, English, Faeroese, | |
52 | Finnish, French (with restrictions -- see Latin-9), Frisian, Galician, | |
53 | German, Greenlandic, Icelandic, Irish Gaelic (new orthography), | |
54 | Italian, Latin, Luxemburgish, Norwegian, Portuguese, Rhaeto-Romanic, | |
55 | Scottish Gaelic, Spanish, and Swedish. | |
cd53f29e KH |
56 | We also have specific language environments for the following languages: |
57 | For Dutch, \"Dutch\". | |
58 | For German, \"German\". | |
cc01e274 | 59 | For French, \"French\". |
6f3ab39c FP |
60 | For Italian, \"Italian\". |
61 | For Slovenian, \"Slovenian\". | |
62 | For Spanish, \"Spanish\". | |
cce3ba48 DL |
63 | |
64 | Latin-1 also covers several written languages outside Europe, including | |
65 | Indonesian/Malay, Tagalog (Philippines), Swahili and Afrikaans.")) | |
3617715a KH |
66 | '("European")) |
67 | ||
335a7ad7 | 68 | \f |
5c4794f3 | 69 | ;; Latin-2 (ISO-8859-2) |
335a7ad7 | 70 | |
e1915ab3 KH |
71 | (define-coding-system 'iso-latin-2 |
72 | "ISO 2022 based 8-bit encoding for Latin-2 (MIME:ISO-8859-2)." | |
73 | :coding-type 'charset | |
74 | :mnemonic ?2 | |
75 | :charset-list '(iso-8859-2) | |
f15f44a9 | 76 | :mime-charset 'iso-8859-2) |
4ed46869 | 77 | |
71eabd24 | 78 | (define-coding-system-alias 'iso-8859-2 'iso-latin-2) |
300c450d | 79 | (define-coding-system-alias 'latin-2 'iso-latin-2) |
4b9121fc | 80 | |
335a7ad7 | 81 | (set-language-info-alist |
e1915ab3 | 82 | "Latin-2" '((charset iso-8859-2) |
98a51523 | 83 | (coding-system iso-latin-2 windows-1250) |
3617715a | 84 | (coding-priority iso-latin-2) |
e1915ab3 | 85 | (nonascii-translation . iso-8859-2) |
bed54678 | 86 | (unibyte-display . iso-latin-2) |
3e56710f | 87 | (input-method . "latin-2-prefix") |
3617715a | 88 | (documentation . "\ |
cce3ba48 | 89 | This language environment is a generic one for the Latin-2 (ISO-8859-2) |
e325120d | 90 | character set which supports the following languages: |
60763153 | 91 | Albanian, Czech, English, German, Hungarian, Polish, Romanian, |
59c1ccf2 | 92 | Serbo-Croatian or Croatian, Slovak, Slovene, Sorbian (upper and lower), |
e325120d KH |
93 | and Swedish. |
94 | We also have specific language environments for the following languages: | |
95 | For Czech, \"Czech\". | |
eae03b2d | 96 | For Croatian, \"Croatian\". |
a49f9488 | 97 | For Polish, \"Polish\". |
e325120d KH |
98 | For Romanian, \"Romanian\". |
99 | For Slovak, \"Slovak\".")) | |
3617715a KH |
100 | '("European")) |
101 | ||
335a7ad7 | 102 | \f |
5c4794f3 | 103 | ;; Latin-3 (ISO-8859-3) |
335a7ad7 | 104 | |
e1915ab3 KH |
105 | (define-coding-system 'iso-latin-3 |
106 | "ISO 2022 based 8-bit encoding for Latin-3 (MIME:ISO-8859-3)." | |
107 | :coding-type 'charset | |
108 | :mnemonic ?3 | |
109 | :charset-list '(iso-8859-3) | |
f15f44a9 | 110 | :mime-charset 'iso-8859-3) |
4ed46869 | 111 | |
71eabd24 | 112 | (define-coding-system-alias 'iso-8859-3 'iso-latin-3) |
300c450d | 113 | (define-coding-system-alias 'latin-3 'iso-latin-3) |
4b9121fc | 114 | |
335a7ad7 | 115 | (set-language-info-alist |
e1915ab3 | 116 | "Latin-3" '((charset iso-8859-3) |
3617715a KH |
117 | (coding-system iso-latin-3) |
118 | (coding-priority iso-latin-3) | |
e1915ab3 | 119 | (nonascii-translation . iso-8859-3) |
bed54678 | 120 | (unibyte-display . iso-latin-3) |
3e56710f | 121 | (input-method . "latin-3-prefix") |
3617715a | 122 | (documentation . "\ |
60763153 RS |
123 | These languages are supported with the Latin-3 (ISO-8859-3) character set: |
124 | Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician, | |
3617715a KH |
125 | German, Italian, Maltese, Spanish, and Turkish.")) |
126 | '("European")) | |
127 | ||
335a7ad7 | 128 | \f |
5c4794f3 | 129 | ;; Latin-4 (ISO-8859-4) |
335a7ad7 | 130 | |
e1915ab3 KH |
131 | (define-coding-system 'iso-latin-4 |
132 | "ISO 2022 based 8-bit encoding for Latin-4 (MIME:ISO-8859-4)." | |
133 | :coding-type 'charset | |
134 | :mnemonic ?4 | |
135 | :charset-list '(iso-8859-4) | |
f15f44a9 | 136 | :mime-charset 'iso-8859-4) |
4ed46869 | 137 | |
71eabd24 | 138 | (define-coding-system-alias 'iso-8859-4 'iso-latin-4) |
300c450d | 139 | (define-coding-system-alias 'latin-4 'iso-latin-4) |
4b9121fc | 140 | |
335a7ad7 | 141 | (set-language-info-alist |
e1915ab3 | 142 | "Latin-4" '((charset iso-8859-4) |
3617715a KH |
143 | (coding-system iso-8859-4) |
144 | (coding-priority iso-8859-4) | |
e1915ab3 | 145 | (nonascii-translation . iso-8859-4) |
bed54678 | 146 | (unibyte-display . iso-8859-4) |
11f340ed | 147 | (input-method . "latin-4-postfix") |
3617715a | 148 | (documentation . "\ |
60763153 RS |
149 | These languages are supported with the Latin-4 (ISO-8859-4) character set: |
150 | Danish, English, Estonian, Finnish, German, Greenlandic, Lappish, | |
3617715a KH |
151 | Latvian, Lithuanian, and Norwegian.")) |
152 | '("European")) | |
153 | ||
335a7ad7 | 154 | \f |
5c4794f3 | 155 | ;; Latin-5 (ISO-8859-9) |
335a7ad7 | 156 | |
e1915ab3 KH |
157 | (define-coding-system 'iso-latin-5 |
158 | "ISO 2022 based 8-bit encoding for Latin-5 (MIME:ISO-8859-9)." | |
159 | :coding-type 'charset | |
160 | :mnemonic ?9 | |
161 | :charset-list '(iso-8859-9) | |
f15f44a9 | 162 | :mime-charset 'iso-8859-9) |
4ed46869 | 163 | |
71eabd24 | 164 | (define-coding-system-alias 'iso-8859-9 'iso-latin-5) |
300c450d | 165 | (define-coding-system-alias 'latin-5 'iso-latin-5) |
4b9121fc | 166 | |
3617715a | 167 | (set-language-info-alist |
e1915ab3 | 168 | "Latin-5" '((charset iso-8859-9) |
3617715a KH |
169 | (coding-system iso-latin-5) |
170 | (coding-priority iso-latin-5) | |
e1915ab3 | 171 | (nonascii-translation . iso-8859-9) |
bed54678 | 172 | (unibyte-display . iso-latin-5) |
11f340ed | 173 | (input-method . "latin-5-postfix") |
a49f9488 DL |
174 | (documentation . "Support for Latin-5.\ |
175 | See also the Turkish environment.")) | |
cce3ba48 DL |
176 | '("European")) |
177 | ||
178 | \f | |
0859301a DL |
179 | ;; Latin-6 (ISO-8859-10) |
180 | ||
181 | (define-coding-system 'iso-latin-6 | |
182 | "ISO 2022 based 8-bit encoding for Latin-6 (MIME:ISO-8859-10)." | |
183 | :coding-type 'charset | |
184 | :mnemonic ?9 | |
185 | :charset-list '(iso-8859-10) | |
186 | :mime-charset 'iso-8859-10) | |
187 | ||
188 | (define-coding-system-alias 'iso-8859-10 'iso-latin-6) | |
189 | (define-coding-system-alias 'latin-6 'iso-latin-6) | |
190 | ||
191 | (set-language-info-alist | |
192 | "Latin-6" '((charset iso-8859-10) | |
193 | (coding-system iso-latin-6) | |
194 | (coding-priority iso-latin-6) | |
195 | (nonascii-translation . iso-8859-10) | |
0859301a DL |
196 | (unibyte-display . iso-latin-6) |
197 | ;; Fixme: input method. | |
198 | (documentation . "Support for generic Latin-6 (Northern European).")) | |
199 | '("European")) | |
200 | ||
201 | \f | |
202 | ;; Latin-7 (ISO-8859-13) | |
203 | ||
204 | (define-coding-system 'iso-latin-7 | |
205 | "ISO 2022 based 8-bit encoding for Latin-7 (MIME:ISO-8859-13)." | |
206 | :coding-type 'charset | |
207 | :mnemonic ?9 | |
208 | :charset-list '(iso-8859-13) | |
209 | :mime-charset 'iso-8859-13) | |
210 | ||
211 | (define-coding-system-alias 'iso-8859-13 'iso-latin-7) | |
212 | (define-coding-system-alias 'latin-7 'iso-latin-7) | |
213 | ||
214 | (set-language-info-alist | |
215 | "Latin-7" '((charset iso-8859-13) | |
216 | (coding-system iso-latin-7) | |
217 | (coding-priority iso-latin-7) | |
218 | (nonascii-translation . iso-8859-13) | |
0859301a DL |
219 | (unibyte-display . iso-latin-7) |
220 | ;; Fixme: input method. | |
221 | (documentation . "Support for generic Latin-7 (Baltic Rim).")) | |
222 | '("European")) | |
223 | \f | |
cce3ba48 DL |
224 | ;; Latin-8 (ISO-8859-14) |
225 | ||
e1915ab3 KH |
226 | (define-coding-system 'iso-latin-8 |
227 | "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)." | |
228 | :coding-type 'charset | |
229 | ;; `W' for `Welsh', since `C' for `Celtic' is taken. | |
230 | :mnemonic ?W | |
231 | :charset-list '(iso-8859-14) | |
f15f44a9 | 232 | :mime-charset 'iso-8859-14) |
cce3ba48 DL |
233 | |
234 | (define-coding-system-alias 'iso-8859-14 'iso-latin-8) | |
235 | (define-coding-system-alias 'latin-8 'iso-latin-8) | |
236 | ||
cce3ba48 | 237 | (set-language-info-alist |
e1915ab3 | 238 | "Latin-8" '((charset iso-8859-14) |
cce3ba48 DL |
239 | (coding-system iso-latin-8) |
240 | (coding-priority iso-latin-8) | |
e1915ab3 | 241 | (nonascii-translation . iso-8859-14) |
cce3ba48 | 242 | (unibyte-display . iso-latin-8) |
27ff18c9 DL |
243 | (input-method . "latin-8-prefix") |
244 | ;; Fixme: Welsh/Ga{e}lic greetings | |
327719ee | 245 | (sample-text . "\e,_"\e(B \e$(D+q\e(B \e$(D*t\e(B") |
cce3ba48 DL |
246 | (documentation . "\ |
247 | This language environment is a generic one for the Latin-8 (ISO-8859-14) | |
27ff18c9 | 248 | character set which supports the Celtic languages, including those not |
5ef35063 WL |
249 | covered by other ISO-8859 character sets: |
250 | Welsh, Manx Gaelic and Irish Gaelic (old orthography).")) | |
3617715a | 251 | '("European")) |
cce3ba48 DL |
252 | \f |
253 | ;; Latin-9 (ISO-8859-15) | |
254 | ||
e1915ab3 KH |
255 | (define-coding-system 'iso-latin-9 |
256 | "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)." | |
257 | :coding-type 'charset | |
258 | ;; `0' for `Latin-0' | |
259 | :mnemonic ?0 | |
260 | :charset-list '(iso-8859-15) | |
f15f44a9 | 261 | :mime-charset 'iso-8859-15) |
cce3ba48 DL |
262 | |
263 | (define-coding-system-alias 'iso-8859-15 'iso-latin-9) | |
264 | (define-coding-system-alias 'latin-9 'iso-latin-9) | |
265 | (define-coding-system-alias 'latin-0 'iso-latin-9) | |
3617715a | 266 | |
cce3ba48 | 267 | (set-language-info-alist |
e1915ab3 | 268 | "Latin-9" '((charset iso-8859-15) |
cce3ba48 DL |
269 | (coding-system iso-latin-9) |
270 | (coding-priority iso-latin-9) | |
e1915ab3 | 271 | (nonascii-translation . iso-8859-15) |
cce3ba48 | 272 | (unibyte-display . iso-latin-9) |
27ff18c9 | 273 | (input-method . "latin-9-prefix") |
cce3ba48 | 274 | (sample-text |
327719ee | 275 | . "AVE. \e$(D*^+^*v+v)-)M*s\e(B \e$(Q)!\e(B") |
cce3ba48 DL |
276 | (documentation . "\ |
277 | This language environment is a generic one for the Latin-9 (ISO-8859-15) | |
278 | character set which supports the same languages as Latin-1 with the | |
279 | addition of the Euro sign and some additional French and Finnish letters. | |
280 | Latin-9 is sometimes nicknamed `Latin-0'.")) | |
281 | '("European")) | |
a73d7753 MB |
282 | |
283 | (set-language-info-alist | |
284 | "Esperanto" '((tutorial . "TUTORIAL.eo") | |
ae67001c | 285 | (charset iso-8859-3) |
a73d7753 MB |
286 | (coding-system iso-latin-3) |
287 | (coding-priority iso-latin-3) | |
288 | (nonascii-translation . latin-iso8859-3) | |
289 | (unibyte-syntax . "latin-3") | |
290 | (unibyte-display . iso-latin-3) | |
291 | (input-method . "latin-3-prefix") | |
292 | (documentation . "Support for Esperanto with ISO-8859-3 character set.")) | |
293 | '("European")) | |
294 | ||
3617715a | 295 | \f |
accf24cd DL |
296 | (define-coding-system 'windows-1250 |
297 | "windows-1250 (Central European) encoding (MIME: WINDOWS-1250)" | |
298 | :coding-type 'charset | |
299 | :mnemonic ?* | |
300 | :charset-list '(windows-1250) | |
301 | :mime-charset 'windows-1250) | |
302 | (define-coding-system-alias 'cp1250 'windows-1250) | |
303 | ||
06d5cc88 | 304 | (define-coding-system 'windows-1252 |
accf24cd | 305 | "windows-1252 (Western European) encoding (MIME: WINDOWS-1252)" |
06d5cc88 DL |
306 | :coding-type 'charset |
307 | :mnemonic ?* | |
308 | :charset-list '(windows-1252) | |
309 | :mime-charset 'windows-1252) | |
310 | (define-coding-system-alias 'cp1252 'windows-1252) | |
accf24cd DL |
311 | |
312 | (define-coding-system 'windows-1254 | |
313 | "windows-1254 (Turkish) encoding (MIME: WINDOWS-1254)" | |
314 | :coding-type 'charset | |
315 | :mnemonic ?* | |
316 | :charset-list '(windows-1254) | |
317 | :mime-charset 'windows-1254) | |
318 | (define-coding-system-alias 'cp1254 'windows-1254) | |
319 | ||
320 | (define-coding-system 'windows-1257 | |
321 | "windows-1257 (Baltic) encoding (MIME: WINDOWS-1257)" | |
322 | :coding-type 'charset | |
323 | :mnemonic ?* | |
324 | :charset-list '(windows-1257) | |
325 | :mime-charset 'windows-1257) | |
326 | (define-coding-system-alias 'cp1257 'windows-1257) | |
0859301a DL |
327 | |
328 | (define-coding-system 'cp850 | |
329 | "DOS codepage 850 (Western European)" | |
330 | :coding-type 'charset | |
331 | :mnemonic ?D | |
332 | :charset-list '(cp850) | |
333 | :mime-charset 'cp850) | |
334 | (define-coding-system-alias 'ibm850 'cp850) | |
6d2186ff DL |
335 | |
336 | (define-coding-system 'cp852 | |
337 | "DOS codepage 852 (Slavic)" | |
338 | :coding-type 'charset | |
339 | :mnemonic ?D | |
340 | :charset-list '(cp852) | |
341 | :mime-charset 'cp852) | |
342 | (define-coding-system-alias 'ibm852 'cp852) | |
343 | ||
344 | (define-coding-system 'cp857 | |
345 | "DOS codepage 857 (Turkish)" | |
346 | :coding-type 'charset | |
347 | :mnemonic ?D | |
348 | :charset-list '(cp857) | |
349 | :mime-charset 'cp857) | |
350 | (define-coding-system-alias 'ibm857 'cp857) | |
351 | ||
24d51014 DL |
352 | (define-coding-system 'cp858 |
353 | "Codepage 858 (Multilingual Latin I + Euro)" | |
354 | :coding-type 'charset | |
355 | :mnemonic ?D | |
356 | :charset-list '(cp858) | |
357 | :mime-charset 'cp858) | |
358 | ||
6d2186ff DL |
359 | (define-coding-system 'cp860 |
360 | "DOS codepage 860 (Portuguese)" | |
361 | :coding-type 'charset | |
362 | :mnemonic ?D | |
363 | :charset-list '(cp860) | |
364 | :mime-charset 'cp860) | |
365 | (define-coding-system-alias 'ibm860 'cp860) | |
366 | ||
367 | (define-coding-system 'cp861 | |
368 | "DOS codepage 861 (Icelandic)" | |
369 | :coding-type 'charset | |
370 | :mnemonic ?D | |
371 | :charset-list '(cp861) | |
372 | :mime-charset 'cp861) | |
373 | (define-coding-system-alias 'ibm861 'cp861) | |
374 | ||
375 | (define-coding-system 'cp863 | |
376 | "DOS codepage 863 (French Canadian)" | |
377 | :coding-type 'charset | |
378 | :mnemonic ?D | |
379 | :charset-list '(cp863) | |
380 | :mime-charset 'cp863) | |
381 | (define-coding-system-alias 'ibm863 'cp863) | |
382 | ||
383 | (define-coding-system 'cp865 | |
384 | "DOS codepage 865 (Norwegian/Danish)" | |
385 | :coding-type 'charset | |
386 | :mnemonic ?D | |
387 | :charset-list '(cp865) | |
388 | :mime-charset 'cp865) | |
389 | (define-coding-system-alias 'ibm865 'cp865) | |
390 | ||
391 | (define-coding-system 'cp437 | |
392 | "DOS codepage 437" | |
393 | :coding-type 'charset | |
394 | :mnemonic ?D | |
395 | :charset-list '(cp437) | |
396 | :mime-charset 'cp437) | |
397 | (define-coding-system-alias 'ibm437 'cp437) | |
06d5cc88 | 398 | \f |
6f3ab39c FP |
399 | (set-language-info-alist |
400 | "Dutch" '((tutorial . "TUTORIAL.nl") | |
8f924df7 | 401 | (charset iso-8859-1) |
6f3ab39c FP |
402 | (coding-system iso-latin-1 iso-latin-9) |
403 | (coding-priority iso-latin-1) | |
8f924df7 | 404 | (nonascii-translation . iso-8859-1) |
6f3ab39c FP |
405 | (unibyte-display . iso-latin-1) |
406 | (input-method . "dutch") | |
407 | (sample-text . "Er is een aantal manieren waarop je dit kan doen") | |
408 | (documentation . "\ | |
409 | This language environment is almost the same as Latin-1, | |
410 | but it selects the Dutch tutorial and input method.")) | |
411 | '("European")) | |
412 | ||
4ed46869 | 413 | (set-language-info-alist |
bed54678 | 414 | "German" '((tutorial . "TUTORIAL.de") |
e1915ab3 | 415 | (charset iso-8859-1) |
edc64f42 | 416 | (coding-system iso-latin-1 iso-latin-9) |
3617715a | 417 | (coding-priority iso-latin-1) |
e1915ab3 | 418 | (nonascii-translation . iso-8859-1) |
3e56710f | 419 | (input-method . "german-postfix") |
bed54678 | 420 | (unibyte-display . iso-latin-1) |
3617715a KH |
421 | (sample-text . "\ |
422 | German (Deutsch Nord) Guten Tag | |
327719ee | 423 | German (Deutsch S\e$(D+d\e(Bd) Gr\e$(D+d)N\e(B Gott") |
3617715a KH |
424 | (documentation . "\ |
425 | This language environment is almost the same as Latin-1, | |
70a4f3ea WL |
426 | but sets the default input method to \"german-postfix\". |
427 | Additionally, it selects the German tutorial.")) | |
3617715a | 428 | '("European")) |
8dfef503 | 429 | |
fdd2d14d EZ |
430 | (set-language-info-alist |
431 | "French" '((tutorial . "TUTORIAL.fr") | |
e1915ab3 | 432 | (charset iso-8859-1) |
edc64f42 | 433 | (coding-system iso-latin-1 iso-latin-9) |
fdd2d14d | 434 | (coding-priority iso-latin-1) |
e1915ab3 | 435 | (nonascii-translation . iso-8859-1) |
fdd2d14d EZ |
436 | (unibyte-display . iso-latin-1) |
437 | (input-method . "latin-1-prefix") | |
327719ee | 438 | (sample-text . "French (Fran\e$(D+.\e(Bais) Bonjour, Salut") |
fdd2d14d EZ |
439 | (documentation . "\ |
440 | This language environment is almost the same as Latin-1, | |
b1c0272c | 441 | but it selects the French tutorial and input method.")) |
fdd2d14d EZ |
442 | '("European")) |
443 | ||
0dcfc7bc FP |
444 | (set-language-info-alist |
445 | "Italian" '((tutorial . "TUTORIAL.it") | |
8f924df7 | 446 | (charset iso-8859-1) |
0dcfc7bc FP |
447 | (coding-system iso-latin-1 iso-latin-9) |
448 | (coding-priority iso-latin-1) | |
8f924df7 | 449 | (nonascii-translation . iso-8859-1) |
0dcfc7bc FP |
450 | (unibyte-display . iso-latin-1) |
451 | (input-method . "italian-postfix") | |
452 | (sample-text . "Salve, ciao!") | |
453 | (documentation . "\ | |
454 | This language environment is almost the same as Latin-1, | |
455 | but sets the default input method to \"italian-postfix\". | |
456 | Additionally, it selects the Italian tutorial.")) | |
457 | '("European")) | |
458 | ||
e0980142 | 459 | (set-language-info-alist |
e1915ab3 | 460 | "Slovenian" '((charset iso-8859-2) |
0fbd0425 | 461 | (coding-system . (iso-8859-2 windows-1250)) |
e0980142 | 462 | (coding-priority . (iso-8859-2)) |
e1915ab3 | 463 | (nonascii-translation . iso-8859-2) |
57ef7816 | 464 | (input-method . "slovenian") |
e0980142 RS |
465 | (unibyte-display . iso-8859-2) |
466 | (tutorial . "TUTORIAL.sl") | |
327719ee | 467 | (sample-text . "\e$(D*v\e(Belimo vam uspe\e$(D+^\e(Ben dan!") |
b1c0272c FP |
468 | (documentation . "\ |
469 | This language environment is almost the same as Latin-2, | |
470 | but it selects the Slovenian tutorial and input method.")) | |
e0980142 RS |
471 | '("European")) |
472 | ||
891258f2 GM |
473 | (set-language-info-alist |
474 | "Spanish" '((tutorial . "TUTORIAL.es") | |
e1915ab3 | 475 | (charset iso-8859-1) |
edc64f42 | 476 | (coding-system iso-latin-1 iso-latin-9) |
891258f2 GM |
477 | (coding-priority iso-latin-1) |
478 | (input-method . "spanish-postfix") | |
8f924df7 | 479 | (nonascii-translation . iso-8859-1) |
891258f2 | 480 | (unibyte-display . iso-latin-1) |
327719ee | 481 | (sample-text . "Spanish (Espa\e$(D+P\e(Bol) \e$(D"B\e(BHola!") |
891258f2 GM |
482 | (documentation . "\ |
483 | This language environment is almost the same as Latin-1, | |
70a4f3ea | 484 | but it sets the default input method to \"spanish-postfix\", |
a959e723 | 485 | and it selects the Spanish tutorial.")) |
891258f2 GM |
486 | '("European")) |
487 | ||
d22c4fb9 KH |
488 | ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used. But, |
489 | ;; before the introduction of ISO-8859-9 in 1988, ISO-8859-3 (Latin-3) | |
490 | ;; was used for Turkish. Those who use Latin-3 for Turkish should use | |
491 | ;; "Latin-3" language environment. | |
492 | ||
493 | (set-language-info-alist | |
e1915ab3 | 494 | "Turkish" '((charset iso-8859-9) |
0fbd0425 | 495 | (coding-system iso-latin-5 windows-1254 iso-latin-3) |
d22c4fb9 | 496 | (coding-priority iso-latin-5) |
e1915ab3 | 497 | (nonascii-translation . iso-8859-9) |
d22c4fb9 KH |
498 | (unibyte-display . iso-latin-5) |
499 | (input-method . "turkish-postfix") | |
327719ee | 500 | (sample-text . "Turkish (T\e$(D+d\e(Brk\e$(D+.\e(Be) Merhaba") |
09e5eab5 KH |
501 | (setup-function . turkish-case-conversion-enable) |
502 | (setup-function . turkish-case-conversion-disable) | |
24d51014 DL |
503 | (documentation . "Support for Turkish. |
504 | Differs from the Latin-5 environment in using the `turkish-postfix' input | |
327719ee | 505 | method and applying Turkish case rules for the characters i, I, \e$(D)E\e(B, \e$(D*D\e(B."))) |
d22c4fb9 | 506 | |
09e5eab5 KH |
507 | (defun turkish-case-conversion-enable () |
508 | "Set up Turkish case conversion of `i' and `I' into `\e$(D*D\e(B' and `\e$(D)E\e(B'." | |
509 | (let ((table (standard-case-table))) | |
510 | (set-case-syntax-pair ?\e$(D*D\e(B ?i table) | |
511 | (set-case-syntax-pair ?I ?\e$(D)E\e(B table))) | |
512 | ||
513 | (defun turkish-case-conversion-disable () | |
514 | "Set up normal (non-Turkish) case conversion of `i' into `I'." | |
515 | (let ((table (standard-case-table))) | |
516 | (set-case-syntax-pair ?I ?i table) | |
517 | (set-case-syntax ?\e$(D*D\e(B "w" table) | |
518 | (set-case-syntax ?\e$(D)E\e(B "w" table))) | |
519 | ||
b9427ca6 KH |
520 | ;; Polish ISO 8859-2 environment. |
521 | ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl> | |
522 | ;; Keywords: multilingual, Polish | |
523 | ||
b9427ca6 | 524 | (set-language-info-alist |
8f924df7 KH |
525 | "Polish" '((charset iso-8859-2) |
526 | (coding-system iso-8859-2 windows-1250) | |
527 | (coding-priority iso-8859-2) | |
b9427ca6 | 528 | (input-method . "polish-slash") |
8f924df7 | 529 | (nonascii-translation . iso-8859-2) |
b9427ca6 KH |
530 | (unibyte-display . iso-8859-2) |
531 | (tutorial . "TUTORIAL.pl") | |
327719ee | 532 | (sample-text . "P\e$(D+Q\e(Bjd\e$(D+u\e(B, ki\e$(D+M\e(B-\e$(D+w\e(Be t\e$(D+8\e(B chmurno\e$(D+\++\e(B w g\e$(D)H+(\e(Bb flaszy") |
b9427ca6 KH |
533 | (documentation . t)) |
534 | '("European")) | |
535 | ||
3286933f DL |
536 | (set-language-info-alist |
537 | "Welsh" `((coding-system utf-8 latin-8) ; the input method is Unicode-based | |
538 | (coding-priority utf-8 latin-8) | |
e1915ab3 | 539 | (nonascii-translation . iso-8859-14) |
3286933f DL |
540 | (input-method . "welsh") |
541 | (documentation . "Support for Welsh, using Unicode.")) | |
542 | '("European")) | |
543 | ||
eae03b2d DL |
544 | (set-language-info-alist |
545 | "Latin-6" `((coding-system latin-6) | |
546 | (coding-priority latin-6) | |
547 | (nonascii-translation . ,(get 'decode-iso-latin-6 'translation-table)) | |
bccb30c4 | 548 | (input-method . "latin-prefix") |
eae03b2d DL |
549 | (features code-pages) |
550 | (documentation . "Support for Latin-6.")) | |
551 | '("European")) | |
552 | ||
3286933f DL |
553 | (set-language-info-alist |
554 | "Latin-7" `((coding-system latin-7) | |
555 | (coding-priority latin-7) | |
e1915ab3 | 556 | (nonascii-translation . iso-8859-13) |
bccb30c4 | 557 | (input-method . "latin-prefix") |
3286933f DL |
558 | (documentation . "Support for Latin-7, e.g. Latvian, Lithuanian.")) |
559 | '("European")) | |
560 | ||
561 | (set-language-info-alist | |
0fbd0425 | 562 | "Lithuanian" `((coding-system latin-7 windows-1257) |
3286933f | 563 | (coding-priority latin-7) |
e1915ab3 | 564 | (nonascii-translation . iso-8859-13) |
3286933f | 565 | (input-method . "lithuanian-keyboard") |
3286933f DL |
566 | (documentation . "Support for Lithuanian.")) |
567 | '("European")) | |
568 | ||
569 | (set-language-info-alist | |
0fbd0425 | 570 | "Latvian" `((coding-system latin-7 windows-1257) |
3286933f | 571 | (coding-priority latin-7) |
e1915ab3 | 572 | (nonascii-translation . iso-8859-13) |
3286933f | 573 | (input-method . "latvian-keyboard") |
3286933f DL |
574 | (documentation . "Support for Latvian.")) |
575 | '("European")) | |
adc7d9cd RS |
576 | |
577 | (set-language-info-alist | |
88ee27e5 | 578 | "Swedish" '((tutorial . "TUTORIAL.sv") |
8f924df7 | 579 | (charset iso-8859-1) |
adc7d9cd RS |
580 | (coding-system iso-latin-1) |
581 | (coding-priority iso-latin-1) | |
8f924df7 | 582 | (nonascii-translation . iso-8859-1) |
adc7d9cd RS |
583 | (unibyte-display . iso-latin-1) |
584 | (sample-text . "Goddag Hej") | |
585 | (documentation . "Support for Swedish")) | |
586 | '("European")) | |
eae03b2d DL |
587 | |
588 | (set-language-info-alist | |
8f924df7 KH |
589 | "Croatian" '((charset iso-8859-2) |
590 | (coding-system iso-8859-2) | |
591 | (coding-priority iso-8859-2) | |
eae03b2d | 592 | (input-method . "croatian") |
8f924df7 | 593 | (nonascii-translation . iso-8859-2) |
eae03b2d DL |
594 | (unibyte-display . iso-8859-2) |
595 | (documentation . "Support for Croatian with Latin-2 encoding.")) | |
596 | '("European")) | |
8f924df7 | 597 | |
c7a73294 DK |
598 | (set-language-info-alist |
599 | "Brazilian Portuguese" '((tutorial . "TUTORIAL.pt_BR") | |
327719ee | 600 | (charset iso-8859-1) |
c7a73294 DK |
601 | (coding-system iso-latin-1 iso-latin-9) |
602 | (coding-priority iso-latin-1) | |
327719ee MB |
603 | (nonascii-translation . iso-8859-1) |
604 | (unibyte-display . iso-8859-1) | |
c7a73294 DK |
605 | (input-method . "latin-1-prefix") |
606 | (sample-text . "Oi") | |
607 | (documentation . "Support for Brazilian Portuguese.")) | |
608 | '("European")) | |
327719ee | 609 | |
71070f12 | 610 | \f |
e1915ab3 KH |
611 | (define-coding-system 'mac-roman |
612 | "Mac Roman Encoding (MIME:MACINTOSH)." | |
613 | :coding-type 'charset | |
614 | :mnemonic ?M | |
615 | :charset-list '(mac-roman) | |
e1915ab3 | 616 | :mime-charset 'macintosh) |
71070f12 | 617 | |
accf24cd DL |
618 | (define-coding-system 'next |
619 | "NeXTstep encoding" | |
620 | :coding-type 'charset | |
621 | :mnemonic ?* | |
622 | :charset-list '(next) | |
623 | :mime-charset 'next) | |
0859301a DL |
624 | |
625 | (define-coding-system 'hp-roman8 | |
626 | "Hewlet-Packard roman-8 encoding (MIME:ROMAN-8)" | |
627 | :coding-type 'charset | |
628 | :mnemonic ?* | |
629 | :charset-list '(hp-roman8) | |
630 | :mime-charset 'hp-roman8) | |
631 | (define-coding-system-alias 'roman8 'hp-roman8) | |
632 | ||
633 | (define-coding-system 'adobe-standard-encoding | |
634 | "Adobe `standard' encoding for PostScript" | |
635 | :coding-type 'charset | |
636 | :mnemonic ?* | |
76429b9a DL |
637 | :charset-list '(adobe-standard-encoding) |
638 | :mime-charset 'adobe-standard-encoding) | |
fc22b4eb | 639 | |
27ff18c9 DL |
640 | (provide 'european) |
641 | ||
cbee283d | 642 | ;; arch-tag: 9e018b12-fb02-4120-907b-9adeaf84b5c2 |
4ed46869 | 643 | ;;; european.el ends here |