Mercurial > emacs
comparison lisp/language/european.el @ 26014:e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
strings.
author | Dave Love <fx@gnu.org> |
---|---|
date | Thu, 14 Oct 1999 09:53:01 +0000 |
parents | 20234157d093 |
children | 86441316f662 |
comparison
equal
deleted
inserted
replaced
26013:987e55950346 | 26014:e84e2bf4f9fb |
---|---|
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
23 ;; Boston, MA 02111-1307, USA. | 23 ;; Boston, MA 02111-1307, USA. |
24 | 24 |
25 ;;; Commentary: | 25 ;;; Commentary: |
26 | 26 |
27 ;; For Europeans, five character sets ISO8859-1,2,3,4,9 are supported. | 27 ;; For Europeans, character sets ISO8859-1,2,3,4,9,14,15 are supported. |
28 | 28 |
29 ;;; Code: | 29 ;;; Code: |
30 | 30 |
31 ;; Latin-1 (ISO-8859-1) | 31 ;; Latin-1 (ISO-8859-1) |
32 | 32 |
64 (unibyte-display . iso-latin-1) | 64 (unibyte-display . iso-latin-1) |
65 (input-method . "latin-1-prefix") | 65 (input-method . "latin-1-prefix") |
66 (sample-text | 66 (sample-text |
67 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!") | 67 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!") |
68 (documentation . "\ | 68 (documentation . "\ |
69 This language environment is a generic one for Latin-1 (ISO-8859-1) | 69 This language environment is a generic one for the Latin-1 (ISO-8859-1) |
70 character set which supports the following languages: | 70 character set which supports the following European languages: |
71 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic, | 71 Albanian, Basque, Breton, Catalan, Danish, Dutch, English, Faeroese, |
72 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish. | 72 Finnish, French (with restrictions -- see Latin-9), Frisian, Galician, |
73 We also have a German specific language environment \"German\".")) | 73 German, Greenlandic, Icelandic, Irish Gaelic (new orthography), |
74 Italian, Latin, Luxemburgish, Norwegian, Portuguese, Rhaeto-Romanic, | |
75 Scottish Gaelic, Spanish, and Swedish. | |
76 We also have a German specific language environment \"German\". | |
77 | |
78 Latin-1 also covers several written languages outside Europe, including | |
79 Indonesian/Malay, Tagalog (Philippines), Swahili and Afrikaans.")) | |
74 '("European")) | 80 '("European")) |
75 | 81 |
76 | 82 |
77 ;; Latin-2 (ISO-8859-2) | 83 ;; Latin-2 (ISO-8859-2) |
78 | 84 |
99 (nonascii-translation . latin-iso8859-2) | 105 (nonascii-translation . latin-iso8859-2) |
100 (unibyte-syntax . "latin-2") | 106 (unibyte-syntax . "latin-2") |
101 (unibyte-display . iso-latin-2) | 107 (unibyte-display . iso-latin-2) |
102 (input-method . "latin-2-prefix") | 108 (input-method . "latin-2-prefix") |
103 (documentation . "\ | 109 (documentation . "\ |
104 This language environment is a generic one for Latin-2 (ISO-8859-2) | 110 This language environment is a generic one for the Latin-2 (ISO-8859-2) |
105 character set which supports the following languages: | 111 character set which supports the following languages: |
106 Albanian, Czech, English, German, Hungarian, Polish, Romanian, | 112 Albanian, Czech, English, German, Hungarian, Polish, Romanian, |
107 Serbo-Croatian or Croatian, Slovak, Slovene, Sorbian (upper and lower), | 113 Serbo-Croatian or Croatian, Slovak, Slovene, Sorbian (upper and lower), |
108 and Swedish. | 114 and Swedish. |
109 We also have specific language environments for the following languages: | 115 We also have specific language environments for the following languages: |
204 (nonascii-translation . latin-iso8859-9) | 210 (nonascii-translation . latin-iso8859-9) |
205 (unibyte-syntax . "latin-5") | 211 (unibyte-syntax . "latin-5") |
206 (unibyte-display . iso-latin-5) | 212 (unibyte-display . iso-latin-5) |
207 (input-method . "latin-5-prefix") | 213 (input-method . "latin-5-prefix") |
208 (documentation . "\ | 214 (documentation . "\ |
209 These languages are supported with the Latin-5 (ISO-8859-9) character set.")) | 215 These languages are supported with the Latin-5 (ISO-8859-9) character set: |
210 '("European")) | 216 Bulgarian, Byelorussian, (Slavic) Macedonian, Russian, Serbian and |
211 | 217 Ukranian.")) ; says ISO 8859-1 |
218 '("European")) | |
219 | |
220 | |
221 ;; Latin-8 (ISO-8859-14) | |
222 | |
223 (make-coding-system | |
224 'iso-latin-8 2 ?W ; `W' for `Welsh', since `C' | |
225 ; for `Celtic' is taken. | |
226 "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)" | |
227 '(ascii latin-iso8859-14 nil nil | |
228 nil nil nil nil nil nil nil nil nil nil nil nil t) | |
229 '((safe-charsets ascii latin-iso8859-14) | |
230 (mime-charset . iso-8859-14))) | |
231 | |
232 (define-coding-system-alias 'iso-8859-14 'iso-latin-8) | |
233 (define-coding-system-alias 'latin-8 'iso-latin-8) | |
234 | |
235 (defun setup-latin8-environment () | |
236 "Set up multilingual environment (MULE) for European Latin-8 users." | |
237 (interactive) | |
238 (set-language-environment "latin-8")) | |
239 | |
240 (set-language-info-alist | |
241 "Latin-8" '((charset ascii latin-iso8859-14) | |
242 (coding-system iso-latin-8) | |
243 (coding-priority iso-latin-8) | |
244 (nonascii-translation . latin-iso8859-14) | |
245 (unibyte-syntax . "latin-8") | |
246 (unibyte-display . iso-latin-8) | |
247 (input-method . "latin-1-prefix") ; fixme | |
248 ;;; Fixme: Welsh/Ga{e}lic greetings | |
249 ;;; (sample-text | |
250 ;;; . "") | |
251 (documentation . "\ | |
252 This language environment is a generic one for the Latin-8 (ISO-8859-14) | |
253 character set which supports the Celtic languages, specifically Welsh and | |
254 Irish Gaelic (old orthography) which are not covered by other ISO-8859 | |
255 character sets.")) | |
256 '("European")) | |
257 | |
258 ;; Latin-9 (ISO-8859-15) | |
259 | |
260 (make-coding-system | |
261 'iso-latin-9 2 ?0 ; `0' for `Latin-0' | |
262 "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)" | |
263 '(ascii latin-iso8859-15 nil nil | |
264 nil nil nil nil nil nil nil nil nil nil nil nil t) | |
265 '((safe-charsets ascii latin-iso8859-15) | |
266 (mime-charset . iso-8859-15))) | |
267 | |
268 (define-coding-system-alias 'iso-8859-15 'iso-latin-9) | |
269 (define-coding-system-alias 'latin-9 'iso-latin-9) | |
270 (define-coding-system-alias 'latin-0 'iso-latin-9) | |
271 | |
272 (defun setup-latin9-environment () | |
273 "Set up multilingual environment (MULE) for European Latin-9 users." | |
274 (interactive) | |
275 (set-language-environment "latin-9")) | |
276 | |
277 (set-language-info-alist | |
278 "Latin-9" '((charset ascii latin-iso8859-15) | |
279 (coding-system iso-latin-9) | |
280 (coding-priority iso-latin-9) | |
281 (nonascii-translation . latin-iso8859-15) | |
282 (unibyte-syntax . "latin-9") | |
283 (unibyte-display . iso-latin-9) | |
284 (input-method . "latin-1-prefix") ; fixme? | |
285 (sample-text | |
286 . "Ave Latinum IX, ,b&(48<=>(B ,b$$$(B") | |
287 (documentation . "\ | |
288 This language environment is a generic one for the Latin-9 (ISO-8859-15) | |
289 character set which supports the same languages as Latin-1 with the | |
290 addition of the Euro sign and some additional French and Finnish letters. | |
291 Latin-9 is sometimes nicknamed `Latin-0'.")) | |
292 '("European")) | |
212 | 293 |
213 (defun setup-german-environment () | 294 (defun setup-german-environment () |
214 "Set up multilingual environment (MULE) for German users." | 295 "Set up multilingual environment (MULE) for German users." |
215 (interactive) | 296 (interactive) |
216 (set-language-environment "German")) | 297 (set-language-environment "German")) |