|
428
|
1 ;;; european.el --- European languages -*- coding: iso-2022-7bit; -*-
|
|
|
2
|
|
|
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
|
|
4 ;; Licensed to the Free Software Foundation.
|
|
|
5 ;; Copyright (C) 1997 MORIOKA Tomohiko
|
|
728
|
6 ;; Copyright (C) 2002 Free Software Foundation
|
|
428
|
7
|
|
|
8 ;; Keywords: multilingual, European
|
|
|
9
|
|
|
10 ;; This file is part of XEmacs.
|
|
|
11
|
|
|
12 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
|
13 ;; under the terms of the GNU General Public License as published by
|
|
|
14 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
15 ;; any later version.
|
|
|
16
|
|
|
17 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
|
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
20 ;; General Public License for more details.
|
|
|
21
|
|
|
22 ;; You should have received a copy of the GNU General Public License
|
|
|
23 ;; along with XEmacs; see the file COPYING. If not, write to the Free
|
|
|
24 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
|
|
25 ;; 02111-1307, USA.
|
|
|
26
|
|
|
27 ;;; Commentary:
|
|
|
28
|
|
728
|
29 ;; Support six Latin coded character sets ISO8859-1,2,3,4,9,15.
|
|
428
|
30
|
|
440
|
31 ;; #### latin.el would be a better name for this file.
|
|
|
32
|
|
428
|
33 ;;; Code:
|
|
|
34
|
|
|
35 ;; For syntax of Latin-1 characters.
|
|
|
36 (loop for c from 64 to 127 ; from ',A@(B' to ',A(B'
|
|
|
37 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w"))
|
|
|
38
|
|
|
39 (modify-syntax-entry (make-char 'latin-iso8859-1 32) "w") ; no-break space
|
|
|
40 (modify-syntax-entry ?,AW(B "_")
|
|
|
41 (modify-syntax-entry ?,Aw(B "_")
|
|
|
42
|
|
728
|
43 ;; For syntax of Latin-9 characters.
|
|
|
44 ;; Based on Latin-1 and differences from Jukka Korpela
|
|
|
45 ;; http://www.cs.tut.fi/~jkorpela/latin9.html
|
|
|
46 (loop for c in '(?,b&(B ?,b((B ?,b4(B ?,b8(B ?,b<(B ?,b=(B ?,b>(B)
|
|
|
47 do (modify-syntax-entry c "w"))
|
|
|
48
|
|
|
49 (loop for c from 64 to 127 ; from ',b@(B' to ',b(B'
|
|
|
50 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w"))
|
|
|
51
|
|
|
52 (modify-syntax-entry (make-char 'latin-iso8859-15 32) "w") ; no-break space
|
|
|
53 (modify-syntax-entry ?,bW(B "_")
|
|
|
54 (modify-syntax-entry ?,bw(B "_")
|
|
|
55
|
|
428
|
56 ;; For syntax of Latin-2
|
|
|
57 (loop for c in '(?,B!(B ?,B#(B ?,B%(B ?,B&(B ?,B)(B ?,B*(B ?,B+(B ?,B,(B ?,B.(B ?,B/(B ?,B1(B ?,B3(B ?,B5(B ?,B6(B ?,B9(B ?,B:(B ?,B;(B ?,B<(B)
|
|
|
58 do (modify-syntax-entry c "w"))
|
|
|
59
|
|
|
60 (loop for c from 62 to 126
|
|
|
61 do (modify-syntax-entry (make-char 'latin-iso8859-2 c) "w"))
|
|
|
62
|
|
|
63 (modify-syntax-entry (make-char 'latin-iso8859-2 32) "w") ; no-break space
|
|
|
64 (modify-syntax-entry ?,BW(B ".")
|
|
|
65 (modify-syntax-entry ?,Bw(B ".")
|
|
|
66
|
|
440
|
67 ;; For syntax of Latin-3
|
|
|
68 (loop for c in '(?,C!(B ?,C&(B ?,C)(B ?,C*(B ?,C+(B ?,C,(B ?,C/(B ?,C1(B ?,C5(B ?,C6(B ?,C:(B ?,C;(B ?,C<(B ?,C?(B)
|
|
|
69 do (modify-syntax-entry c "w"))
|
|
|
70
|
|
|
71 (loop for c from 64 to 126
|
|
|
72 do (modify-syntax-entry (make-char 'latin-iso8859-3 c) "w"))
|
|
|
73
|
|
|
74 (modify-syntax-entry (make-char 'latin-iso8859-3 32) "w") ; no-break space
|
|
|
75 (modify-syntax-entry ?,CW(B ".")
|
|
|
76 (modify-syntax-entry ?,Cw(B ".")
|
|
|
77
|
|
|
78 ;; For syntax of Latin-4
|
|
|
79 (loop for c in '(?,D!(B ?,D"(B ?,D#(B ?,D%(B ?,D&(B ?,D)(B ?,D*(B ?,D+(B ?,D,(B ?,D.(B ?,D1(B ?,D3(B ?,D5(B ?,D6(B ?,D9(B ?,D:(B ?,D;(B ?,D<(B ?,D=(B ?,D>(B ?,D?(B)
|
|
|
80 do (modify-syntax-entry c "w"))
|
|
|
81
|
|
|
82 (loop for c from 64 to 126
|
|
|
83 do (modify-syntax-entry (make-char 'latin-iso8859-4 c) "w"))
|
|
|
84
|
|
|
85 (modify-syntax-entry (make-char 'latin-iso8859-4 32) "w") ; no-break space
|
|
|
86 (modify-syntax-entry ?,DW(B ".")
|
|
|
87 (modify-syntax-entry ?,Dw(B ".")
|
|
|
88
|
|
|
89
|
|
428
|
90 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
91 ;;; EUROPEANS
|
|
|
92 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
93
|
|
|
94
|
|
|
95 ;; Latin-1 (ISO-8859-1)
|
|
|
96
|
|
|
97 ;; (make-coding-system
|
|
|
98 ;; 'iso-latin-1 2 ?1
|
|
|
99 ;; "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)"
|
|
|
100 ;; '(ascii latin-iso8859-1 nil nil
|
|
|
101 ;; nil nil nil nil nil nil nil nil nil nil nil nil t)
|
|
|
102 ;; '((safe-charsets ascii latin-iso8859-1)
|
|
|
103 ;; (mime-charset . iso-8859-1)))
|
|
|
104
|
|
|
105 ;; (define-coding-system-alias 'iso-8859-1 'iso-latin-1)
|
|
|
106 ;; (define-coding-system-alias 'latin-1 'iso-latin-1)
|
|
|
107
|
|
|
108 ;; (make-coding-system
|
|
|
109 ;; 'compound-text 2 ?1
|
|
|
110 ;; "ISO 2022 based encoding used in inter client communication of X"
|
|
|
111 ;; '((ascii t) (latin-iso8859-1 t) nil nil
|
|
|
112 ;; nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t)
|
|
|
113 ;; '((safe-charsets . t)))
|
|
|
114
|
|
|
115 ;; (define-coding-system-alias 'ctext 'compound-text)
|
|
|
116
|
|
|
117 (defun setup-latin1-environment ()
|
|
|
118 "Set up multilingual environment (MULE) for European Latin-1 users."
|
|
|
119 (interactive)
|
|
|
120 (set-language-environment "Latin-1"))
|
|
|
121
|
|
|
122 (set-language-info-alist
|
|
|
123 "Latin-1" '((charset ascii latin-iso8859-1)
|
|
|
124 (coding-system iso-8859-1)
|
|
|
125 (coding-priority iso-8859-1)
|
|
|
126 (input-method . "latin-1-prefix")
|
|
|
127 (sample-text
|
|
|
128 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!")
|
|
|
129 (documentation . "\
|
|
|
130 This language environment is a generic one for Latin-1 (ISO-8859-1)
|
|
|
131 character set which supports the following languages:
|
|
|
132 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
|
|
|
133 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.
|
|
|
134 We also have a German specific language environment \"German\"."))
|
|
|
135 '("European"))
|
|
|
136
|
|
|
137 (set-language-info-alist
|
|
|
138 "French" '((charset ascii latin-iso8859-1)
|
|
|
139 (coding-system iso-8859-1)
|
|
|
140 (coding-priority iso-8859-1)
|
|
|
141 (tutorial . "TUTORIAL.fr")
|
|
|
142 (sample-text
|
|
|
143 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!")
|
|
|
144 (documentation . ("\
|
|
|
145 These languages are supported with the Latin-1 (ISO-8859-1) character set:
|
|
|
146 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
|
|
|
147 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.
|
|
|
148 ")))
|
|
|
149 '("European"))
|
|
|
150
|
|
|
151 (set-language-info-alist
|
|
|
152 "Norwegian" '((charset ascii latin-iso8859-1)
|
|
|
153 (coding-system iso-8859-1)
|
|
|
154 (coding-priority iso-8859-1)
|
|
|
155 (tutorial . "TUTORIAL.no")
|
|
|
156 (sample-text
|
|
|
157 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!")
|
|
|
158 (documentation . ("\
|
|
|
159 These languages are supported with the Latin-1 (ISO-8859-1) character set:
|
|
|
160 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
|
|
|
161 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.
|
|
|
162 ")))
|
|
|
163 '("European"))
|
|
|
164
|
|
|
165
|
|
728
|
166 ;; Latin-9 (ISO-8859-15)
|
|
|
167 ;; Latin-1 plus Euro, plus a few accented characters
|
|
|
168
|
|
|
169 ;; (make-charset 'latin-iso8859-15
|
|
|
170 ;; "Latin-9, aka Latin-1 with Euro etc"
|
|
|
171 ;; '(short-name "Latin 9"
|
|
|
172 ;; long-name "Latin-9 (typically GR of ISO 8859/15)"
|
|
|
173 ;; registry "iso8859-15"
|
|
|
174 ;; dimension 1
|
|
|
175 ;; columns 1
|
|
|
176 ;; chars 96
|
|
|
177 ;; final ?b ; ISO-IR-203
|
|
|
178 ;; graphic 1
|
|
|
179 ;; direction l2r))
|
|
|
180
|
|
|
181 (make-coding-system
|
|
|
182 'iso-8859-15 'iso2022
|
|
|
183 "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)"
|
|
|
184 `(mnemonic "MIME/Ltn-9" ; bletch
|
|
|
185 eol-type nil
|
|
|
186 charset-g0 ascii
|
|
|
187 charset-g1 latin-iso8859-15
|
|
|
188 charset-g2 t
|
|
|
189 charset-g3 t
|
|
|
190 ))
|
|
|
191
|
|
|
192 (defun setup-latin9-environment ()
|
|
|
193 "Set up multilingual environment (MULE) for European Latin-9 users."
|
|
|
194 (interactive)
|
|
|
195 (set-language-environment "Latin-9"))
|
|
|
196
|
|
|
197 (set-language-info-alist
|
|
|
198 "Latin-9" '((charset ascii latin-iso8859-15)
|
|
|
199 (coding-system iso-8859-15)
|
|
|
200 (coding-priority iso-8859-15)
|
|
|
201 (input-method . "latin-1-prefix") ; FIXME!!
|
|
|
202 (sample-text
|
|
|
203 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!, my ")
|
|
|
204 (documentation . "\
|
|
|
205 This language environment is a generic one for Latin-9 (ISO-8859-15)
|
|
|
206 character set which supports the Euro sign and the following languages:
|
|
|
207 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
|
|
|
208 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish."))
|
|
|
209 '("European"))
|
|
|
210
|
|
|
211
|
|
428
|
212 ;; Latin-2 (ISO-8859-2)
|
|
|
213
|
|
|
214 ;; (make-coding-system
|
|
|
215 ;; 'iso-latin-2 2 ?2
|
|
|
216 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)"
|
|
|
217 ;; '(ascii latin-iso8859-2 nil nil
|
|
|
218 ;; nil nil nil nil nil nil nil)
|
|
|
219 ;; '((safe-charsets ascii latin-iso8859-2)
|
|
|
220 ;; (mime-charset . iso-8859-2)))
|
|
|
221
|
|
|
222 ;; (define-coding-system-alias 'iso-8859-2 'iso-latin-2)
|
|
|
223 ;; (define-coding-system-alias 'latin-2 'iso-latin-2)
|
|
|
224
|
|
|
225 (make-coding-system
|
|
|
226 'iso-8859-2 'iso2022 "MIME ISO-8859-2"
|
|
|
227 '(charset-g0 ascii
|
|
|
228 charset-g1 latin-iso8859-2
|
|
|
229 charset-g2 t
|
|
|
230 charset-g3 t
|
|
|
231 mnemonic "MIME/Ltn-2"
|
|
|
232 ))
|
|
|
233
|
|
|
234 (defun setup-latin2-environment ()
|
|
|
235 "Set up multilingual environment (MULE) for European Latin-2 users."
|
|
|
236 (interactive)
|
|
|
237 (set-language-environment "Latin-2"))
|
|
|
238
|
|
|
239 (set-language-info-alist
|
|
|
240 "Latin-2" '((charset ascii latin-iso8859-2)
|
|
|
241 (coding-system iso-8859-2)
|
|
|
242 (coding-priority iso-8859-2)
|
|
|
243 (input-method . "latin-2-prefix")
|
|
|
244 (documentation . "\
|
|
|
245 This language environment is a generic one for Latin-2 (ISO-8859-2)
|
|
|
246 character set which supports the following languages:
|
|
|
247 Albanian, Czech, English, German, Hungarian, Polish, Romanian,
|
|
|
248 Serbian, Croatian, Slovak, Slovene, Sorbian (upper and lower),
|
|
|
249 and Swedish."))
|
|
|
250 '("European"))
|
|
|
251
|
|
|
252 (set-language-info-alist
|
|
|
253 "Croatian" '((charset ascii latin-iso8859-2)
|
|
|
254 (coding-system iso-8859-2)
|
|
|
255 (coding-priority iso-8859-2)
|
|
|
256 (tutorial . "TUTORIAL.hr")
|
|
|
257 (documentation . "\
|
|
|
258 This language environment is a generic one for Latin-2 (ISO-8859-2)
|
|
|
259 character set which supports the following languages:
|
|
|
260 Albanian, Czech, English, German, Hungarian, Polish, Romanian,
|
|
|
261 Serbian, Croatian, Slovak, Slovene, Sorbian (upper and lower),
|
|
|
262 and Swedish."))
|
|
|
263 '("European"))
|
|
|
264
|
|
|
265 (set-language-info-alist
|
|
|
266 "Polish" '((charset ascii latin-iso8859-2)
|
|
|
267 (coding-system iso-8859-2)
|
|
|
268 (coding-priority iso-8859-2)
|
|
|
269 (tutorial . "TUTORIAL.pl")
|
|
|
270 (documentation . "\
|
|
|
271 This language environment is a generic one for Latin-2 (ISO-8859-2)
|
|
|
272 character set which supports the following languages:
|
|
|
273 Albanian, Czech, English, German, Hungarian, Polish, Romanian,
|
|
|
274 Serbian, Croatian, Slovak, Slovene, Sorbian (upper and lower),
|
|
|
275 and Swedish."))
|
|
|
276 '("European"))
|
|
|
277
|
|
|
278 ;; Romanian support originally from romanian.el
|
|
|
279
|
|
|
280 (defun setup-romanian-environment ()
|
|
|
281 "Setup multilingual environment (MULE) for Romanian."
|
|
|
282 (interactive)
|
|
|
283 (set-language-environment "Romanian"))
|
|
|
284
|
|
|
285 (set-language-info-alist
|
|
|
286 "Romanian" '((charset ascii latin-iso8859-2)
|
|
|
287 (coding-system iso-8859-2)
|
|
|
288 (coding-priority iso-8859-2)
|
|
|
289 (input-method . "latin-2-postfix")
|
|
|
290 (tutorial . "TUTORIAL.ro")
|
|
|
291 (sample-text . "Bun,Bc(B ziua, bine a,B~(Bi venit!")
|
|
|
292 (documentation . t))
|
|
|
293 '("European"))
|
|
|
294
|
|
|
295 (provide 'romanian)
|
|
|
296
|
|
|
297 ;; Czech support originally from czech.el
|
|
|
298 ;; Author: Milan Zamazal <pdm@fi.muni.cz>
|
|
|
299 ;; Maintainer(for XEmacs): David Sauer <davids@penguin.cz>
|
|
|
300
|
|
|
301 (defun setup-czech-environment ()
|
|
|
302 "Set up multilingual environment (MULE) for czech users."
|
|
|
303 (interactive)
|
|
|
304 (set-language-environment "Czech"))
|
|
|
305
|
|
|
306 (set-language-info-alist
|
|
|
307 "Czech" '((charset ascii latin-iso8859-2)
|
|
|
308 (coding-system iso-8859-2)
|
|
|
309 (coding-priority iso-8859-2)
|
|
|
310 (tutorial . "TUTORIAL.cs")
|
|
|
311 (sample-text . "P,Bx(Bejeme v,Ba(Bm hezk,B}(B den!")
|
|
|
312 (documentation . t))
|
|
|
313 '("European"))
|
|
|
314
|
|
|
315 (provide 'czech)
|
|
|
316
|
|
|
317
|
|
|
318 ;; Latin-3 (ISO-8859-3)
|
|
|
319
|
|
|
320 ;; (make-coding-system
|
|
|
321 ;; 'iso-latin-3 2 ?3
|
|
|
322 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)"
|
|
|
323 ;; '(ascii latin-iso8859-3 nil nil
|
|
|
324 ;; nil nil nil nil nil nil nil)
|
|
|
325 ;; '((safe-charsets ascii latin-iso8859-3)
|
|
|
326 ;; (mime-charset . iso-8859-3)))
|
|
|
327
|
|
|
328 ;; (define-coding-system-alias 'iso-8859-3 'iso-latin-3)
|
|
|
329 ;; (define-coding-system-alias 'latin-3 'iso-latin-3)
|
|
|
330
|
|
|
331 (make-coding-system
|
|
|
332 'iso-8859-3 'iso2022 "MIME ISO-8859-3"
|
|
|
333 '(charset-g0 ascii
|
|
|
334 charset-g1 latin-iso8859-3
|
|
|
335 charset-g2 t
|
|
|
336 charset-g3 t
|
|
|
337 mnemonic "MIME/Ltn-3"
|
|
|
338 ))
|
|
|
339
|
|
|
340 (defun setup-latin3-environment ()
|
|
|
341 "Set up multilingual environment (MULE) for European Latin-3 users."
|
|
|
342 (interactive)
|
|
|
343 (set-language-environment "Latin-3"))
|
|
|
344
|
|
|
345 (set-language-info-alist
|
|
|
346 "Latin-3" '((charset ascii latin-iso8859-3)
|
|
|
347 (coding-system iso-8859-3)
|
|
|
348 (coding-priority iso-8859-3)
|
|
|
349 (input-method . "latin-3-prefix")
|
|
|
350 (documentation . "\
|
|
|
351 These languages are supported with the Latin-3 (ISO-8859-3) character set:
|
|
|
352 Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician,
|
|
|
353 German, Italian, Maltese, Spanish, and Turkish."))
|
|
|
354 '("European"))
|
|
|
355
|
|
|
356
|
|
|
357 ;; Latin-4 (ISO-8859-4)
|
|
|
358
|
|
|
359 ;; (make-coding-system
|
|
|
360 ;; 'iso-latin-4 2 ?4
|
|
|
361 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)"
|
|
|
362 ;; '(ascii latin-iso8859-4 nil nil
|
|
|
363 ;; nil nil nil nil nil nil nil)
|
|
|
364 ;; '((safe-charsets ascii latin-iso8859-4)
|
|
|
365 ;; (mime-charset . iso-8895-4)))
|
|
|
366
|
|
|
367 ;; (define-coding-system-alias 'iso-8859-4 'iso-latin-4)
|
|
|
368 ;; (define-coding-system-alias 'latin-4 'iso-latin-4)
|
|
|
369
|
|
|
370 (make-coding-system
|
|
|
371 'iso-8859-4 'iso2022 "MIME ISO-8859-4"
|
|
|
372 '(charset-g0 ascii
|
|
|
373 charset-g1 latin-iso8859-4
|
|
|
374 charset-g2 t
|
|
|
375 charset-g3 t
|
|
|
376 mnemonic "MIME/Ltn-4"
|
|
|
377 ))
|
|
|
378
|
|
|
379 (defun setup-latin4-environment ()
|
|
|
380 "Set up multilingual environment (MULE) for European Latin-4 users."
|
|
|
381 (interactive)
|
|
|
382 (set-language-environment "Latin-4"))
|
|
|
383
|
|
|
384 (set-language-info-alist
|
|
|
385 "Latin-4" '((charset ascii latin-iso8859-4)
|
|
|
386 (coding-system iso-8859-4)
|
|
|
387 (coding-priority iso-8859-4)
|
|
|
388 (input-method . "latin-4-prefix")
|
|
|
389 (documentation . "\
|
|
|
390 These languages are supported with the Latin-4 (ISO-8859-4) character set:
|
|
|
391 Danish, English, Estonian, Finnish, German, Greenlandic, Lappish,
|
|
|
392 Latvian, Lithuanian, and Norwegian."))
|
|
|
393 '("European"))
|
|
|
394
|
|
|
395
|
|
|
396 ;; Latin-5 (ISO-8859-9)
|
|
|
397
|
|
|
398 ;; (make-coding-system
|
|
|
399 ;; 'iso-latin-5 2 ?9
|
|
|
400 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)"
|
|
|
401 ;; '(ascii latin-iso8859-9 nil nil
|
|
|
402 ;; nil nil nil nil nil nil nil)
|
|
|
403 ;; '((safe-charsets ascii latin-iso8859-9)
|
|
|
404 ;; (mime-charset . iso-8859-9)))
|
|
|
405
|
|
|
406 ;; (define-coding-system-alias 'iso-8859-9 'iso-latin-5)
|
|
|
407 ;; (define-coding-system-alias 'latin-5 'iso-latin-5)
|
|
|
408
|
|
|
409 (make-coding-system
|
|
|
410 'iso-8859-9 'iso2022 "MIME ISO-8859-9"
|
|
|
411 '(charset-g0 ascii
|
|
|
412 charset-g1 latin-iso8859-9
|
|
|
413 charset-g2 t
|
|
|
414 charset-g3 t
|
|
|
415 mnemonic "MIME/Ltn-5"
|
|
|
416 ))
|
|
|
417
|
|
|
418 (defun setup-latin5-environment ()
|
|
|
419 "Set up multilingual environment (MULE) for European Latin-5 users."
|
|
|
420 (interactive)
|
|
|
421 (set-language-environment "Latin-5"))
|
|
|
422
|
|
|
423 (set-language-info-alist
|
|
|
424 "Latin-5" '((charset ascii latin-iso8859-9)
|
|
|
425 (coding-system iso-8859-9)
|
|
|
426 (coding-priority iso-8859-9)
|
|
|
427 (input-method . "latin-5-prefix")
|
|
|
428 (documentation . "\
|
|
|
429 These languages are supported with the Latin-5 (ISO-8859-9) character set."))
|
|
|
430 '("European"))
|
|
|
431
|
|
|
432
|
|
|
433 (defun setup-german-environment ()
|
|
|
434 "Set up multilingual environment (MULE) for German users."
|
|
|
435 (interactive)
|
|
|
436 (set-language-environment "German"))
|
|
|
437
|
|
|
438 (set-language-info-alist
|
|
|
439 "German" '((tutorial . "TUTORIAL.de")
|
|
|
440 (charset ascii latin-iso8859-1)
|
|
|
441 (coding-system iso-8859-1)
|
|
|
442 (coding-priority iso-8859-1)
|
|
|
443 (input-method . "german-postfix")
|
|
|
444 (sample-text . "\
|
|
|
445 German (Deutsch Nord) Guten Tag
|
|
|
446 German (Deutsch S,A|(Bd) Gr,A|_(B Gott")
|
|
|
447 (documentation . "\
|
|
|
448 This language environment is almost the same as Latin-1,
|
|
|
449 but default input method is set to \"german-postfix\"."))
|
|
|
450 '("European"))
|
|
|
451
|
|
|
452 (defun setup-slovenian-environment ()
|
|
|
453 "Setup multilingual environment (MULE) for Slovenian."
|
|
|
454 (interactive)
|
|
|
455 (set-language-environment "Slovenian"))
|
|
|
456
|
|
|
457 (set-language-info-alist
|
|
|
458 "Slovenian" '((charset . (ascii latin-iso8859-2))
|
|
|
459 (coding-system . (iso-8859-2))
|
|
|
460 (coding-priority . (iso-8859-2))
|
|
|
461 (input-method . "latin-2-postfix")
|
|
|
462 (tutorial . "TUTORIAL.sl")
|
|
|
463 (sample-text . ",B.(Belimo vam uspe,B9(Ben dan!")
|
|
|
464 (documentation . t))
|
|
|
465 '("European"))
|
|
|
466
|
|
|
467 (provide 'slovenian)
|
|
|
468
|
|
|
469 ;;; european.el ends here
|
