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