1 ;;; european.el --- European languages -*- coding: iso-2022-7bit; -*-
3 ;; Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
6 ;; Keywords: multilingual, European
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
27 ;; For Europeans, character sets ISO8859-1,2,3,4,9,14,15 are supported.
31 ;; Latin-1 (ISO-8859-1)
35 "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)"
36 '(ascii latin-iso8859-1 nil nil
37 nil nil nil nil nil nil nil nil nil nil nil nil t)
38 '((safe-charsets ascii latin-iso8859-1)
39 (mime-charset . iso-8859-1)))
41 (define-coding-system-alias 'iso-8859-1 'iso-latin-1)
42 (define-coding-system-alias 'latin-1 'iso-latin-1)
46 "ISO 2022 based encoding used in inter client communication of X"
47 '((ascii t) (latin-iso8859-1 katakana-jisx0201 t) nil nil
48 nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t)
49 '((safe-charsets . t)))
51 (define-coding-system-alias 'ctext 'compound-text)
53 (set-language-info-alist
54 "Latin-1" '((charset ascii latin-iso8859-1)
55 (coding-system iso-latin-1)
56 (coding-priority iso-latin-1)
57 (nonascii-translation . latin-iso8859-1)
58 (unibyte-syntax . "latin-1")
59 (unibyte-display . iso-latin-1)
60 (input-method . "latin-1-prefix")
62 . "Hello, Hej, Tere, Hei, Bonjour, Gr
\e,A|_
\e(B Gott, Ciao,
\e,A!
\e(BHola!")
64 This language environment is a generic one for the Latin-1 (ISO-8859-1)
65 character set which supports the following European languages:
66 Albanian, Basque, Breton, Catalan, Danish, Dutch, English, Faeroese,
67 Finnish, French (with restrictions -- see Latin-9), Frisian, Galician,
68 German, Greenlandic, Icelandic, Irish Gaelic (new orthography),
69 Italian, Latin, Luxemburgish, Norwegian, Portuguese, Rhaeto-Romanic,
70 Scottish Gaelic, Spanish, and Swedish.
71 We also have a German specific language environment \"German\".
73 Latin-1 also covers several written languages outside Europe, including
74 Indonesian/Malay, Tagalog (Philippines), Swahili and Afrikaans."))
78 ;; Latin-2 (ISO-8859-2)
82 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)"
83 '(ascii latin-iso8859-2 nil nil
84 nil nil nil nil nil nil nil)
85 '((safe-charsets ascii latin-iso8859-2)
86 (mime-charset . iso-8859-2)))
88 (define-coding-system-alias 'iso-8859-2 'iso-latin-2)
89 (define-coding-system-alias 'latin-2 'iso-latin-2)
91 (set-language-info-alist
92 "Latin-2" '((charset ascii latin-iso8859-2)
93 (coding-system iso-latin-2)
94 (coding-priority iso-latin-2)
95 (nonascii-translation . latin-iso8859-2)
96 (unibyte-syntax . "latin-2")
97 (unibyte-display . iso-latin-2)
98 (input-method . "latin-2-prefix")
100 This language environment is a generic one for the Latin-2 (ISO-8859-2)
101 character set which supports the following languages:
102 Albanian, Czech, English, German, Hungarian, Polish, Romanian,
103 Serbo-Croatian or Croatian, Slovak, Slovene, Sorbian (upper and lower),
105 We also have specific language environments for the following languages:
106 For Czech, \"Czech\".
107 For Romanian, \"Romanian\".
108 For Slovak, \"Slovak\"."))
112 ;; Latin-3 (ISO-8859-3)
116 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)"
117 '(ascii latin-iso8859-3 nil nil
118 nil nil nil nil nil nil nil)
119 '((safe-charsets ascii latin-iso8859-3)
120 (mime-charset . iso-8859-3)))
122 (define-coding-system-alias 'iso-8859-3 'iso-latin-3)
123 (define-coding-system-alias 'latin-3 'iso-latin-3)
125 (set-language-info-alist
126 "Latin-3" '((charset ascii latin-iso8859-3)
127 (coding-system iso-latin-3)
128 (coding-priority iso-latin-3)
129 (nonascii-translation . latin-iso8859-3)
130 (unibyte-syntax . "latin-3")
131 (unibyte-display . iso-latin-3)
132 (input-method . "latin-3-prefix")
134 These languages are supported with the Latin-3 (ISO-8859-3) character set:
135 Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician,
136 German, Italian, Maltese, Spanish, and Turkish."))
140 ;; Latin-4 (ISO-8859-4)
144 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)"
145 '(ascii latin-iso8859-4 nil nil
146 nil nil nil nil nil nil nil)
147 '((safe-charsets ascii latin-iso8859-4)
148 (mime-charset . iso-8859-4)))
150 (define-coding-system-alias 'iso-8859-4 'iso-latin-4)
151 (define-coding-system-alias 'latin-4 'iso-latin-4)
153 (set-language-info-alist
154 "Latin-4" '((charset ascii latin-iso8859-4)
155 (coding-system iso-8859-4)
156 (coding-priority iso-8859-4)
157 (nonascii-translation . latin-iso8859-4)
158 (unibyte-syntax . "latin-4")
159 (unibyte-display . iso-8859-4)
160 (input-method . "latin-4-prefix")
162 These languages are supported with the Latin-4 (ISO-8859-4) character set:
163 Danish, English, Estonian, Finnish, German, Greenlandic, Lappish,
164 Latvian, Lithuanian, and Norwegian."))
168 ;; Latin-5 (ISO-8859-9)
172 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)"
173 '(ascii latin-iso8859-9 nil nil
174 nil nil nil nil nil nil nil)
175 '((safe-charsets ascii latin-iso8859-9)
176 (mime-charset . iso-8859-9)))
178 (define-coding-system-alias 'iso-8859-9 'iso-latin-5)
179 (define-coding-system-alias 'latin-5 'iso-latin-5)
181 (set-language-info-alist
182 "Latin-5" '((charset ascii latin-iso8859-9)
183 (coding-system iso-latin-5)
184 (coding-priority iso-latin-5)
185 (nonascii-translation . latin-iso8859-9)
186 (unibyte-syntax . "latin-5")
187 (unibyte-display . iso-latin-5)
188 (input-method . "latin-5-prefix")
190 These languages are supported with the Latin-5 (ISO-8859-9) character set:
191 Bulgarian, Byelorussian, (Slavic) Macedonian, Russian, Serbian and
192 Ukranian.")) ; says ISO 8859-1
196 ;; Latin-8 (ISO-8859-14)
199 'iso-latin-8 2 ?W ; `W' for `Welsh', since `C'
200 ; for `Celtic' is taken.
201 "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)"
202 '(ascii latin-iso8859-14 nil nil
203 nil nil nil nil nil nil nil nil nil nil nil nil t)
204 '((safe-charsets ascii latin-iso8859-14)
205 (mime-charset . iso-8859-14)))
207 (define-coding-system-alias 'iso-8859-14 'iso-latin-8)
208 (define-coding-system-alias 'latin-8 'iso-latin-8)
210 (set-language-info-alist
211 "Latin-8" '((charset ascii latin-iso8859-14)
212 (coding-system iso-latin-8)
213 (coding-priority iso-latin-8)
214 (nonascii-translation . latin-iso8859-14)
215 (unibyte-syntax . "latin-8")
216 (unibyte-display . iso-latin-8)
217 (input-method . "latin-1-prefix") ; fixme
218 ;;; Fixme: Welsh/Ga{e}lic greetings
222 This language environment is a generic one for the Latin-8 (ISO-8859-14)
223 character set which supports the Celtic languages which are not covered
224 by other ISO-8859 character sets, specifically Welsh, Manx Gaelic and
225 Irish Gaelic (old orthography)."))
228 ;; Latin-9 (ISO-8859-15)
231 'iso-latin-9 2 ?0 ; `0' for `Latin-0'
232 "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)"
233 '(ascii latin-iso8859-15 nil nil
234 nil nil nil nil nil nil nil nil nil nil nil nil t)
235 '((safe-charsets ascii latin-iso8859-15)
236 (mime-charset . iso-8859-15)))
238 (define-coding-system-alias 'iso-8859-15 'iso-latin-9)
239 (define-coding-system-alias 'latin-9 'iso-latin-9)
240 (define-coding-system-alias 'latin-0 'iso-latin-9)
242 (set-language-info-alist
243 "Latin-9" '((charset ascii latin-iso8859-15)
244 (coding-system iso-latin-9)
245 (coding-priority iso-latin-9)
246 (nonascii-translation . latin-iso8859-15)
247 (unibyte-syntax . "latin-9")
248 (unibyte-display . iso-latin-9)
249 (input-method . "latin-1-prefix") ; fixme?
251 . "Ave Latinum IX,
\e,b&(48<=>
\e(B
\e,b$$$
\e(B")
253 This language environment is a generic one for the Latin-9 (ISO-8859-15)
254 character set which supports the same languages as Latin-1 with the
255 addition of the Euro sign and some additional French and Finnish letters.
256 Latin-9 is sometimes nicknamed `Latin-0'."))
259 (set-language-info-alist
260 "German" '((tutorial . "TUTORIAL.de")
261 (charset ascii latin-iso8859-1)
262 (coding-system iso-latin-1)
263 (coding-priority iso-latin-1)
264 (input-method . "german-postfix")
265 (nonascii-translation . iso-latin-1)
266 (unibyte-syntax . "latin-1")
267 (unibyte-display . iso-latin-1)
269 German (Deutsch Nord) Guten Tag
270 German (Deutsch S
\e,A|
\e(Bd) Gr
\e,A|_
\e(B Gott")
272 This language environment is almost the same as Latin-1,
273 but default input method is set to \"german-postfix\"."))
276 (set-language-info-alist
277 "Slovenian" '((charset . (ascii latin-iso8859-2))
278 (coding-system . (iso-8859-2))
279 (coding-priority . (iso-8859-2))
280 (nonascii-translation . latin-iso8859-2)
281 (input-method . "latin-2-postfix")
282 (unibyte-syntax . "latin-2")
283 (unibyte-display . iso-8859-2)
284 (tutorial . "TUTORIAL.sl")
285 (sample-text . "
\e,B.
\e(Belimo vam uspe
\e,B9
\e(Ben dan!")
289 ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used. But,
290 ;; before the introduction of ISO-8859-9 in 1988, ISO-8859-3 (Latin-3)
291 ;; was used for Turkish. Those who use Latin-3 for Turkish should use
292 ;; "Latin-3" language environment.
294 (set-language-info-alist
295 "Turkish" '((charset ascii latin-iso8859-9)
296 (coding-system iso-latin-5)
297 (coding-priority iso-latin-5)
298 (nonascii-translation . latin-iso8859-9)
299 (unibyte-syntax . "latin-5")
300 (unibyte-display . iso-latin-5)
301 (input-method . "turkish-postfix")
302 (sample-text . "Turkish (T
\e,M|
\e(Brk
\e,Mg
\e(Be) Merhaba")
303 (documentation . t)))
305 ;; Polish ISO 8859-2 environment.
306 ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl>
307 ;; Keywords: multilingual, Polish
309 (set-language-info-alist
310 "Polish" '((charset . (ascii latin-iso8859-2))
311 (coding-system . (iso-8859-2))
312 (coding-priority . (iso-8859-2))
313 (input-method . "polish-slash")
314 (nonascii-translation . latin-iso8859-2)
315 (unibyte-syntax . "latin-2")
316 (unibyte-display . iso-8859-2)
317 (tutorial . "TUTORIAL.pl")
318 (sample-text . "
\e,B1!fFjJ3#qQsS6&?/<,
\e(B")
322 ;;; european.el ends here