|
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
|
|
771
|
6 ;; Copyright (C) 2001 Ben Wing.
|
|
2576
|
7 ;; Copyright (C) 2002, 2005 Free Software Foundation
|
|
428
|
8
|
|
|
9 ;; Keywords: multilingual, European
|
|
|
10
|
|
|
11 ;; This file is part of XEmacs.
|
|
|
12
|
|
|
13 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
|
14 ;; under the terms of the GNU General Public License as published by
|
|
|
15 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
16 ;; any later version.
|
|
|
17
|
|
|
18 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
|
19 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
21 ;; General Public License for more details.
|
|
|
22
|
|
|
23 ;; You should have received a copy of the GNU General Public License
|
|
|
24 ;; along with XEmacs; see the file COPYING. If not, write to the Free
|
|
|
25 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
|
|
26 ;; 02111-1307, USA.
|
|
|
27
|
|
|
28 ;;; Commentary:
|
|
|
29
|
|
2576
|
30 ;; For Roman-alphabet-using Europeans, eight coded character sets,
|
|
|
31 ;; ISO8859-1,2,3,4,9,14,15,16 are supported.
|
|
428
|
32
|
|
440
|
33 ;; #### latin.el would be a better name for this file.
|
|
|
34
|
|
428
|
35 ;;; Code:
|
|
778
|
36 ; (make-charset 'latin-iso8859-1
|
|
|
37 ; "Right-Hand Part of Latin Alphabet 1 (ISO/IEC 8859-1): ISO-IR-100"
|
|
|
38 ; '(dimension
|
|
|
39 ; 1
|
|
|
40 ; registry "ISO8859-1"
|
|
|
41 ; chars 96
|
|
|
42 ; columns 1
|
|
|
43 ; direction l2r
|
|
|
44 ; final ?A
|
|
|
45 ; graphic 1
|
|
|
46 ; short-name "RHP of Latin-1"
|
|
|
47 ; long-name "RHP of Latin-1 (ISO 8859-1): ISO-IR-100"
|
|
|
48 ; ))
|
|
|
49
|
|
|
50 ; (make-charset 'latin-iso8859-2
|
|
|
51 ; "Right-Hand Part of Latin Alphabet 2 (ISO/IEC 8859-2): ISO-IR-101"
|
|
|
52 ; '(dimension
|
|
|
53 ; 1
|
|
|
54 ; registry "ISO8859-2"
|
|
|
55 ; chars 96
|
|
|
56 ; columns 1
|
|
|
57 ; direction l2r
|
|
|
58 ; final ?B
|
|
|
59 ; graphic 1
|
|
|
60 ; short-name "RHP of Latin-2"
|
|
|
61 ; long-name "RHP of Latin-2 (ISO 8859-2): ISO-IR-101"
|
|
|
62 ; ))
|
|
|
63
|
|
|
64 ; (make-charset 'latin-iso8859-3
|
|
|
65 ; "Right-Hand Part of Latin Alphabet 3 (ISO/IEC 8859-3): ISO-IR-109"
|
|
|
66 ; '(dimension
|
|
|
67 ; 1
|
|
|
68 ; registry "ISO8859-3"
|
|
|
69 ; chars 96
|
|
|
70 ; columns 1
|
|
|
71 ; direction l2r
|
|
|
72 ; final ?C
|
|
|
73 ; graphic 1
|
|
|
74 ; short-name "RHP of Latin-3"
|
|
|
75 ; long-name "RHP of Latin-3 (ISO 8859-3): ISO-IR-109"
|
|
|
76 ; ))
|
|
|
77
|
|
|
78 ; (make-charset 'latin-iso8859-4
|
|
|
79 ; "Right-Hand Part of Latin Alphabet 4 (ISO/IEC 8859-4): ISO-IR-110"
|
|
|
80 ; '(dimension
|
|
|
81 ; 1
|
|
|
82 ; registry "ISO8859-4"
|
|
|
83 ; chars 96
|
|
|
84 ; columns 1
|
|
|
85 ; direction l2r
|
|
|
86 ; final ?D
|
|
|
87 ; graphic 1
|
|
|
88 ; short-name "RHP of Latin-4"
|
|
|
89 ; long-name "RHP of Latin-4 (ISO 8859-4): ISO-IR-110"
|
|
|
90 ; ))
|
|
|
91
|
|
|
92 ; (make-charset 'latin-iso8859-9
|
|
|
93 ; "Right-Hand Part of Latin Alphabet 5 (ISO/IEC 8859-9): ISO-IR-148"
|
|
|
94 ; '(dimension
|
|
|
95 ; 1
|
|
|
96 ; registry "ISO8859-9"
|
|
|
97 ; chars 96
|
|
|
98 ; columns 1
|
|
|
99 ; direction l2r
|
|
|
100 ; final ?M
|
|
|
101 ; graphic 1
|
|
|
102 ; short-name "RHP of Latin-5"
|
|
|
103 ; long-name "RHP of Latin-5 (ISO 8859-9): ISO-IR-148"
|
|
|
104 ; ))
|
|
|
105
|
|
|
106 ; (make-charset 'latin-iso8859-15
|
|
|
107 ; "Right-Hand Part of Latin Alphabet 9 (ISO/IEC 8859-15): ISO-IR-203"
|
|
|
108 ; '(dimension
|
|
|
109 ; 1
|
|
|
110 ; registry "ISO8859-15"
|
|
|
111 ; chars 96
|
|
|
112 ; columns 1
|
|
|
113 ; direction l2r
|
|
|
114 ; final ?b
|
|
|
115 ; graphic 1
|
|
|
116 ; short-name "RHP of Latin-9"
|
|
|
117 ; long-name "RHP of Latin-9 (ISO 8859-15): ISO-IR-203"
|
|
|
118 ; ))
|
|
|
119
|
|
|
120 (make-charset 'latin-iso8859-14
|
|
|
121 "Right-Hand Part of Latin Alphabet 8 (ISO/IEC 8859-14)"
|
|
|
122 '(dimension
|
|
|
123 1
|
|
|
124 registry "ISO8859-14"
|
|
|
125 chars 96
|
|
|
126 columns 1
|
|
|
127 direction l2r
|
|
|
128 final ?_
|
|
|
129 graphic 1
|
|
|
130 short-name "RHP of Latin-8"
|
|
|
131 long-name "RHP of Latin-8 (ISO 8859-14)"
|
|
|
132 ))
|
|
|
133
|
|
2575
|
134 (make-charset 'latin-iso8859-16
|
|
|
135 "Right-Hand Part of Latin Alphabet 10 (ISO/IEC 8859-16)"
|
|
|
136 '(dimension
|
|
|
137 1
|
|
|
138 registry "ISO8859-16"
|
|
|
139 chars 96
|
|
|
140 columns 1
|
|
|
141 direction l2r
|
|
|
142 final ?f ; octet 06/06; cf ISO-IR 226
|
|
|
143 graphic 1
|
|
|
144 short-name "RHP of Latin-10"
|
|
|
145 long-name "RHP of Latin-10 (ISO 8859-16)"
|
|
|
146 ))
|
|
|
147
|
|
2765
|
148 ;; Latin-1 is dealt with in iso8859-1.el, which see.
|
|
|
149
|
|
|
150 ;; ISO 8859-14.
|
|
|
151 ;;
|
|
|
152 ;; Initialise all characters to word syntax.
|
|
|
153 (loop for c from #xa0 to #xff
|
|
|
154 do (modify-syntax-entry (make-char 'latin-iso8859-14 c) "w"))
|
|
|
155
|
|
|
156 ;; Now, the exceptions. There's just punctuation in this character set.
|
|
|
157 (dolist (code '(#xa0 ;; NO BREAK SPACE
|
|
|
158 #xa3 ;; POUND SIGN
|
|
|
159 #xa7 ;; SECTION SIGN
|
|
|
160 #xa9 ;; COPYRIGHT
|
|
|
161 #xad ;; SOFT HYPHEN
|
|
|
162 #xae ;; REGISTERED
|
|
|
163 #xb6)) ;; PILCROW SIGN
|
|
|
164 (modify-syntax-entry (make-char 'latin-iso8859-14 code) "_"))
|
|
|
165 ;; end of ISO 8859-14.
|
|
|
166
|
|
|
167 ;; ISO 8859-16.
|
|
|
168 ;;
|
|
|
169 ;; Initialise all of iso-8859-16 to word syntax.
|
|
|
170 (loop for c from #xa0 to #xff
|
|
2575
|
171 do (modify-syntax-entry (make-char 'latin-iso8859-16 c) "w"))
|
|
428
|
172
|
|
2765
|
173 ;; And then do the exceptions. First, the punctuation (following the model
|
|
|
174 ;; of Latin-1):
|
|
|
175 (dolist (code '(#xa0 ;; NO BREAK SPACE
|
|
|
176 #xa4 ;; EURO SIGN
|
|
|
177 #xa7 ;; SECTION SIGN
|
|
|
178 #xa9 ;; COPYRIGHT
|
|
|
179 #xad ;; SOFT HYPHEN
|
|
|
180 #xb0 ;; DEGREE
|
|
|
181 #xb1 ;; PLUS-MINUS SIGN
|
|
|
182 #xb6 ;; PILCROW SIGN
|
|
|
183 #xb7)) ;; MIDDLE DOT
|
|
|
184 (modify-syntax-entry (make-char 'latin-iso8859-16 code) "_"))
|
|
|
185
|
|
|
186 ;; Mark the DOUBLE LOW-9 QUOTATION MARK and its closing character as
|
|
|
187 ;; quotation marks.
|
|
|
188 (modify-syntax-entry (make-char 'latin-iso8859-16 #xa5) "\"")
|
|
|
189 (modify-syntax-entry (make-char 'latin-iso8859-16 #xb5) "\"")
|
|
428
|
190
|
|
2765
|
191 ;; For some crazy reason--well, in truth, probably because Jamie never used
|
|
|
192 ;; them in anger--the guillemets have open- and close-parenthesis syntax in
|
|
|
193 ;; Latin 1. We will probably change that in the future; for the moment, I'm
|
|
|
194 ;; preserving it.
|
|
|
195 (modify-syntax-entry (make-char 'latin-iso8859-16 #xab)
|
|
|
196 (format "(%c" (make-char 'latin-iso8859-16 #xbb)))
|
|
|
197 (modify-syntax-entry (make-char 'latin-iso8859-16 #xbb)
|
|
|
198 (format ")%c" (make-char 'latin-iso8859-16 #xab)))
|
|
|
199
|
|
|
200 ;; end of ISO 8859-16.
|
|
428
|
201
|
|
2765
|
202 ;; ISO 8859-15.
|
|
|
203 ;;
|
|
|
204 ;; Based on Latin-1 and differences therefrom.
|
|
|
205 ;;
|
|
|
206 ;; First, initialise the syntax from the corresponding Latin-1 characters.
|
|
|
207 (loop for c from #xa0 to #xff
|
|
|
208 do (modify-syntax-entry
|
|
|
209 (make-char 'latin-iso8859-15 c)
|
|
|
210 (string (char-syntax (make-char 'latin-iso8859-1 c)))))
|
|
|
211 ;; Now, the exceptions
|
|
728
|
212 (loop for c in '(?,b&(B ?,b((B ?,b4(B ?,b8(B ?,b<(B ?,b=(B ?,b>(B)
|
|
|
213 do (modify-syntax-entry c "w"))
|
|
|
214
|
|
2765
|
215 ;; Again, perpetuating insanity with the guillemets.
|
|
|
216 (modify-syntax-entry (make-char 'latin-iso8859-16 #xab)
|
|
|
217 (format "(%c" (make-char 'latin-iso8859-16 #xbb)))
|
|
|
218 (modify-syntax-entry (make-char 'latin-iso8859-16 #xbb)
|
|
|
219 (format ")%c" (make-char 'latin-iso8859-16 #xab)))
|
|
|
220 ;; end of ISO 8859-15.
|
|
728
|
221
|
|
428
|
222 ;; For syntax of Latin-2
|
|
|
223 (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)
|
|
|
224 do (modify-syntax-entry c "w"))
|
|
|
225
|
|
|
226 (loop for c from 62 to 126
|
|
|
227 do (modify-syntax-entry (make-char 'latin-iso8859-2 c) "w"))
|
|
|
228
|
|
|
229 (modify-syntax-entry (make-char 'latin-iso8859-2 32) "w") ; no-break space
|
|
|
230 (modify-syntax-entry ?,BW(B ".")
|
|
|
231 (modify-syntax-entry ?,Bw(B ".")
|
|
|
232
|
|
440
|
233 ;; For syntax of Latin-3
|
|
|
234 (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)
|
|
|
235 do (modify-syntax-entry c "w"))
|
|
|
236
|
|
|
237 (loop for c from 64 to 126
|
|
|
238 do (modify-syntax-entry (make-char 'latin-iso8859-3 c) "w"))
|
|
|
239
|
|
|
240 (modify-syntax-entry (make-char 'latin-iso8859-3 32) "w") ; no-break space
|
|
|
241 (modify-syntax-entry ?,CW(B ".")
|
|
|
242 (modify-syntax-entry ?,Cw(B ".")
|
|
|
243
|
|
|
244 ;; For syntax of Latin-4
|
|
|
245 (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)
|
|
|
246 do (modify-syntax-entry c "w"))
|
|
|
247
|
|
|
248 (loop for c from 64 to 126
|
|
|
249 do (modify-syntax-entry (make-char 'latin-iso8859-4 c) "w"))
|
|
|
250
|
|
|
251 (modify-syntax-entry (make-char 'latin-iso8859-4 32) "w") ; no-break space
|
|
|
252 (modify-syntax-entry ?,DW(B ".")
|
|
|
253 (modify-syntax-entry ?,Dw(B ".")
|
|
|
254
|
|
|
255
|
|
428
|
256 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
257 ;;; EUROPEANS
|
|
|
258 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
259
|
|
|
260
|
|
|
261 ;; Latin-1 (ISO-8859-1)
|
|
|
262
|
|
|
263 ;; (make-coding-system
|
|
|
264 ;; 'iso-latin-1 2 ?1
|
|
|
265 ;; "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)"
|
|
|
266 ;; '(ascii latin-iso8859-1 nil nil
|
|
|
267 ;; nil nil nil nil nil nil nil nil nil nil nil nil t)
|
|
|
268 ;; '((safe-charsets ascii latin-iso8859-1)
|
|
|
269 ;; (mime-charset . iso-8859-1)))
|
|
|
270
|
|
|
271 ;; (define-coding-system-alias 'iso-8859-1 'iso-latin-1)
|
|
|
272 ;; (define-coding-system-alias 'latin-1 'iso-latin-1)
|
|
|
273
|
|
|
274 ;; (make-coding-system
|
|
|
275 ;; 'compound-text 2 ?1
|
|
|
276 ;; "ISO 2022 based encoding used in inter client communication of X"
|
|
|
277 ;; '((ascii t) (latin-iso8859-1 t) nil nil
|
|
|
278 ;; nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t)
|
|
|
279 ;; '((safe-charsets . t)))
|
|
|
280
|
|
|
281 ;; (define-coding-system-alias 'ctext 'compound-text)
|
|
|
282
|
|
771
|
283 ;; "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!"
|
|
428
|
284
|
|
|
285
|
|
728
|
286 ;; Latin-9 (ISO-8859-15)
|
|
|
287 ;; Latin-1 plus Euro, plus a few accented characters
|
|
|
288
|
|
|
289 ;; (make-charset 'latin-iso8859-15
|
|
|
290 ;; "Latin-9, aka Latin-1 with Euro etc"
|
|
|
291 ;; '(short-name "Latin 9"
|
|
|
292 ;; long-name "Latin-9 (typically GR of ISO 8859/15)"
|
|
|
293 ;; registry "iso8859-15"
|
|
|
294 ;; dimension 1
|
|
|
295 ;; columns 1
|
|
|
296 ;; chars 96
|
|
|
297 ;; final ?b ; ISO-IR-203
|
|
|
298 ;; graphic 1
|
|
|
299 ;; direction l2r))
|
|
|
300
|
|
|
301 (make-coding-system
|
|
|
302 'iso-8859-15 'iso2022
|
|
|
303 "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)"
|
|
|
304 `(mnemonic "MIME/Ltn-9" ; bletch
|
|
|
305 eol-type nil
|
|
|
306 charset-g0 ascii
|
|
|
307 charset-g1 latin-iso8859-15
|
|
|
308 charset-g2 t
|
|
|
309 charset-g3 t
|
|
|
310 ))
|
|
|
311
|
|
|
312
|
|
428
|
313 ;; Latin-2 (ISO-8859-2)
|
|
|
314
|
|
|
315 ;; (make-coding-system
|
|
|
316 ;; 'iso-latin-2 2 ?2
|
|
|
317 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)"
|
|
|
318 ;; '(ascii latin-iso8859-2 nil nil
|
|
|
319 ;; nil nil nil nil nil nil nil)
|
|
|
320 ;; '((safe-charsets ascii latin-iso8859-2)
|
|
|
321 ;; (mime-charset . iso-8859-2)))
|
|
|
322
|
|
|
323 ;; (define-coding-system-alias 'iso-8859-2 'iso-latin-2)
|
|
|
324 ;; (define-coding-system-alias 'latin-2 'iso-latin-2)
|
|
|
325
|
|
|
326 (make-coding-system
|
|
771
|
327 'iso-8859-2 'iso2022 "ISO-8859-2 (Latin-2)"
|
|
428
|
328 '(charset-g0 ascii
|
|
|
329 charset-g1 latin-iso8859-2
|
|
|
330 charset-g2 t
|
|
|
331 charset-g3 t
|
|
|
332 mnemonic "MIME/Ltn-2"
|
|
|
333 ))
|
|
|
334
|
|
|
335 (provide 'romanian)
|
|
|
336
|
|
|
337 ;; Czech support originally from czech.el
|
|
778
|
338 ;; Author: Milan Zamazal <pdm@zamazal.org>
|
|
|
339 ;; Maintainer (FSF): Pavel Jan,Am(Bk <Pavel@Janik.cz>
|
|
|
340 ;; Maintainer (for XEmacs): David Sauer <davids@penguin.cz>
|
|
428
|
341
|
|
771
|
342 (provide 'czech)
|
|
428
|
343
|
|
771
|
344 ;; Slovak support originally from slovak.el
|
|
|
345 ;; Authors: Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk>,
|
|
|
346 ;; Milan Zamazal <pdm@fi.muni.cz>
|
|
|
347 ;; Maintainer: Milan Zamazal <pdm@fi.muni.cz>
|
|
428
|
348
|
|
771
|
349 (provide 'slovenian)
|
|
428
|
350
|
|
|
351
|
|
|
352 ;; Latin-3 (ISO-8859-3)
|
|
|
353
|
|
|
354 ;; (make-coding-system
|
|
|
355 ;; 'iso-latin-3 2 ?3
|
|
|
356 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)"
|
|
|
357 ;; '(ascii latin-iso8859-3 nil nil
|
|
|
358 ;; nil nil nil nil nil nil nil)
|
|
|
359 ;; '((safe-charsets ascii latin-iso8859-3)
|
|
|
360 ;; (mime-charset . iso-8859-3)))
|
|
|
361
|
|
|
362 ;; (define-coding-system-alias 'iso-8859-3 'iso-latin-3)
|
|
|
363 ;; (define-coding-system-alias 'latin-3 'iso-latin-3)
|
|
|
364
|
|
|
365 (make-coding-system
|
|
771
|
366 'iso-8859-3 'iso2022 "ISO-8859-3 (Latin-3)"
|
|
428
|
367 '(charset-g0 ascii
|
|
|
368 charset-g1 latin-iso8859-3
|
|
|
369 charset-g2 t
|
|
|
370 charset-g3 t
|
|
|
371 mnemonic "MIME/Ltn-3"
|
|
|
372 ))
|
|
|
373
|
|
|
374
|
|
|
375 ;; Latin-4 (ISO-8859-4)
|
|
|
376
|
|
|
377 ;; (make-coding-system
|
|
|
378 ;; 'iso-latin-4 2 ?4
|
|
|
379 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)"
|
|
|
380 ;; '(ascii latin-iso8859-4 nil nil
|
|
|
381 ;; nil nil nil nil nil nil nil)
|
|
|
382 ;; '((safe-charsets ascii latin-iso8859-4)
|
|
|
383 ;; (mime-charset . iso-8895-4)))
|
|
|
384
|
|
|
385 ;; (define-coding-system-alias 'iso-8859-4 'iso-latin-4)
|
|
|
386 ;; (define-coding-system-alias 'latin-4 'iso-latin-4)
|
|
|
387
|
|
|
388 (make-coding-system
|
|
771
|
389 'iso-8859-4 'iso2022 "ISO-8859-4 (Latin-4)"
|
|
428
|
390 '(charset-g0 ascii
|
|
|
391 charset-g1 latin-iso8859-4
|
|
|
392 charset-g2 t
|
|
|
393 charset-g3 t
|
|
|
394 mnemonic "MIME/Ltn-4"
|
|
|
395 ))
|
|
|
396
|
|
|
397
|
|
|
398 ;; Latin-5 (ISO-8859-9)
|
|
|
399
|
|
|
400 ;; (make-coding-system
|
|
|
401 ;; 'iso-latin-5 2 ?9
|
|
|
402 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)"
|
|
|
403 ;; '(ascii latin-iso8859-9 nil nil
|
|
|
404 ;; nil nil nil nil nil nil nil)
|
|
|
405 ;; '((safe-charsets ascii latin-iso8859-9)
|
|
|
406 ;; (mime-charset . iso-8859-9)))
|
|
|
407
|
|
|
408 ;; (define-coding-system-alias 'iso-8859-9 'iso-latin-5)
|
|
|
409 ;; (define-coding-system-alias 'latin-5 'iso-latin-5)
|
|
|
410
|
|
|
411 (make-coding-system
|
|
771
|
412 'iso-8859-9 'iso2022 "ISO-8859-9 (Latin-5)"
|
|
428
|
413 '(charset-g0 ascii
|
|
|
414 charset-g1 latin-iso8859-9
|
|
|
415 charset-g2 t
|
|
|
416 charset-g3 t
|
|
|
417 mnemonic "MIME/Ltn-5"
|
|
|
418 ))
|
|
|
419
|
|
2575
|
420 ;; Add a coding system for ISO 8859-16.
|
|
|
421 (make-coding-system
|
|
|
422 'iso-8859-16 'iso2022 "MIME ISO-8859-16"
|
|
|
423 '(charset-g0 ascii
|
|
|
424 charset-g1 latin-iso8859-16
|
|
|
425 charset-g2 t ; grrr
|
|
|
426 charset-g3 t ; grrr
|
|
|
427 mnemonic "MIME/Ltn-10"))
|
|
|
428
|
|
771
|
429 (loop for ((charset codesys default-input nice-charset-1 nice-charset-2
|
|
|
430 supported-langs ;; a list if the doc string is replaced
|
|
|
431 ;; entirely
|
|
|
432 )
|
|
|
433 langenvs) in
|
|
|
434 '(
|
|
|
435 ((latin-iso8859-1 iso-8859-1 "latin-1-prefix" "Latin-1" "ISO-8859-1"
|
|
|
436 " Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
|
|
|
437 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.")
|
|
|
438 (("Danish" "da")
|
|
|
439 ("Dutch" "nl" "TUTORIAL.nl")
|
|
|
440 ("Faeroese")
|
|
|
441 ("Finnish" "fi")
|
|
|
442 ("French" "fr" "TUTORIAL.fr" "Bonjour, ,Ag(Ba va?")
|
|
|
443 ("German" "de" "TUTORIAL.de" "\
|
|
428
|
444 German (Deutsch Nord) Guten Tag
|
|
771
|
445 German (Deutsch S,A|(Bd) Gr,A|_(B Gott"
|
|
|
446 "german-postfix")
|
|
|
447 ("Icelandic" "is")
|
|
|
448 ("Irish" "ga")
|
|
|
449 ("Italian" "it")
|
|
|
450 ("Norwegian" "no" "TUTORIAL.no")
|
|
|
451 ("Portuguese" "pt" nil "Bem-vindo! Tudo bem?")
|
|
|
452 ("Spanish" "es" "TUTORIAL.es" ",A!(BHola!")
|
|
821
|
453 ("Swedish" "sv" "TUTORIAL.se" "Hej!")))
|
|
771
|
454 ((latin-iso8859-15 iso-8859-15 "latin-1-prefix" ;; #### FIXME
|
|
|
455 "Latin-9" "ISO-8859-15"
|
|
|
456 ("\
|
|
|
457 This language environment is a generic one for Latin-9 (ISO-8859-15)
|
|
|
458 character set which supports the Euro sign and the following languages
|
|
|
459 (they use the Latin-1 character set by default):
|
|
|
460 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
|
|
|
461 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.
|
|
|
462 Each also has its own specific language environment."))
|
|
|
463 ())
|
|
|
464 ((latin-iso8859-2 iso-8859-2 "latin-2-prefix" "Latin-2" "ISO-8859-2"
|
|
|
465 " Albanian, Czech, English, German, Hungarian, Polish, Romanian,
|
|
|
466 Serbian, Croatian, Slovak, Slovene, Sorbian (upper and lower),
|
|
|
467 and Swedish.")
|
|
|
468 (("Albanian" nil)
|
|
|
469 ("Croatian" ("hrvatski" "hr") "TUTORIAL.hr")
|
|
|
470 ("Czech" ("cs" "cz") "TUTORIAL.cs" "P,Bx(Bejeme v,Ba(Bm hezk,B}(B den!"
|
|
|
471 "latin-2-postfix")
|
|
|
472 ("Hungarian" ("hungarian" "hu"))
|
|
|
473 ("Polish" "po" "TUTORIAL.pl")
|
|
|
474 ("Romanian" "ro" "TUTORIAL.ro" "Bun,Bc(B ziua, bine a,B~(Bi venit!"
|
|
|
475 "latin-2-postfix")
|
|
|
476 ("Serbian" "sr")
|
|
|
477 ("Slovak" "sk" "TUTORIAL.sk" "Prajeme V,Ba(Bm pr,Bm(Bjemn,B}(B de,Br(B!"
|
|
|
478 ;; !!#### FSF "slovak"
|
|
|
479 "latin-2-postfix")
|
|
|
480 ("Slovenian" "sl" "TUTORIAL.sl" ",B.(Belimo vam uspe,B9(Ben dan!"
|
|
|
481 "latin-2-postfix")
|
|
|
482 ("Sorbian" nil)))
|
|
|
483 ((latin-iso8859-3 iso-8859-3 "latin-3-prefix" "Latin-3" "ISO-8859-3"
|
|
|
484 " Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician,
|
|
|
485 German, Italian, Maltese, Spanish, and Turkish.")
|
|
|
486 (("Afrikaans" "af")
|
|
|
487 ("Catalan" ("catalan" "ca"))
|
|
|
488 ("Esperanto")
|
|
|
489 ("Galician")
|
|
|
490 ("Maltese")))
|
|
|
491 ((latin-iso8859-4 iso-8859-4 "latin-4-prefix" "Latin-4" "ISO-8859-4"
|
|
|
492 " Danish, English, Estonian, Finnish, German, Greenlandic, Lappish,
|
|
|
493 Latvian, Lithuanian, and Norwegian.")
|
|
|
494 (("Estonian" "et")
|
|
|
495 ("Greenlandic")
|
|
|
496 ("Lappish")
|
|
|
497 ("Latvian" "lv")
|
|
|
498 ("Lithuanian" "li")))
|
|
|
499 ((latin-iso8859-5 iso-8859-9 "latin-5-prefix" "Latin-5" "ISO-8859-9")
|
|
|
500 (("Turkish" "tr"))))
|
|
|
501 do
|
|
|
502 (set-language-info-alist
|
|
|
503 nice-charset-1
|
|
|
504 `((charset ascii ,charset)
|
|
|
505 (coding-system ,codesys)
|
|
|
506 (coding-priority ,codesys)
|
|
|
507 (documentation . ,(if (listp supported-langs) (car supported-langs)
|
|
|
508 (format "\
|
|
|
509 This language environment is a generic one for %s (%s)
|
|
|
510 character set which supports the following languages (not all of them may
|
|
|
511 use this character set by default):
|
|
|
512 %s
|
|
|
513 Each also has its own specific language environment."
|
|
|
514 nice-charset-1 nice-charset-2
|
|
|
515 supported-langs))))
|
|
|
516 '("European"))
|
|
|
517 (loop for (name locale tutorial sample-text input-method) in langenvs
|
|
|
518 do
|
|
|
519 (set-language-info-alist
|
|
|
520 name
|
|
|
521 `((charset ascii ,charset)
|
|
|
522 (coding-system ,codesys)
|
|
|
523 (coding-priority ,codesys)
|
|
|
524 ,@(if locale `((locale . ,locale)))
|
|
|
525 ,@(if tutorial `((tutorial . ,tutorial)))
|
|
|
526 ,@(if sample-text `((sample-text . ,sample-text)))
|
|
|
527 (input-method . ,(or input-method default-input))
|
|
|
528 (documentation . ,(format "\
|
|
|
529 This language environment supports %s using the Latin-1 (ISO-8859-1)
|
|
|
530 character set. Languages supported by Latin-1 are Danish, Dutch, English,
|
|
|
531 Faeroese, Finnish, French, German, Icelandic, Irish, Italian, Norwegian,
|
|
|
532 Portuguese, Spanish, and Swedish. The various language environments for
|
|
|
533 these languages are similar to the Latin-1 environment, but typically have
|
|
|
534 their own locale specified (for subprocesses and for selection of the
|
|
|
535 correct language environment at startup), and may have their own tutorials
|
|
|
536 and/or a different input method."
|
|
|
537 name)))
|
|
|
538 '("European"))
|
|
|
539 ))
|
|
428
|
540
|
|
|
541 ;;; european.el ends here
|
