Mercurial > hg > xemacs-beta

comparison lisp/mule/european.el @ 422:95016f13131a r21-2-19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-19
author cvs
date Mon, 13 Aug 2007 11:25:01 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
421:fff06e11db74 422:95016f13131a
1 ;;; european.el --- Support for European languages 1 ;;; european.el --- European languages -*- coding: iso-2022-7bit; -*-
2 2
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 1997 MORIOKA Tomohiko 5 ;; Copyright (C) 1997 MORIOKA Tomohiko
6 6
50 50
51 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 51 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
52 ;;; EUROPEANS 52 ;;; EUROPEANS
53 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 53 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
54 54
55 ;; (define-prefix-command 'describe-european-environment-map)
56 ;; (define-key-after describe-language-environment-map [European]
57 ;; '("European" . describe-european-environment-map)
58 ;; t)
59
60 ;; (define-prefix-command 'setup-european-environment-map)
61 ;; (define-key-after setup-language-environment-map [European]
62 ;; '("European" . setup-european-environment-map)
63 ;; t)
64
65 ;; Setup for LANGAUGE which uses one-byte 8-bit CHARSET, one-byte
66 ;; 8-bit CODING-SYSTEM, and INPUT-METHOD.
67 (defun setup-8-bit-environment (language charset coding-system input-method)
68 (setup-english-environment)
69 (set-default-coding-systems coding-system)
70 ;; (setq coding-category-iso-8-1 coding-system
71 ;; coding-category-iso-8-2 coding-system)
72 (set-coding-category-system 'iso-8-1 coding-system)
73 (set-coding-category-system 'iso-8-2 coding-system)
74
75 ;; (if charset
76 ;; (let ((nonascii-offset (- (make-char charset) 128)))
77 ;; ;; Set up for insertion of characters in this character set
78 ;; ;; when codes 0200 - 0377 are typed in.
79 ;; (setq nonascii-insert-offset nonascii-offset)))
80
81 (if input-method
82 (setq default-input-method input-method))
83
84 ;; If this is a Latin-N character set, set up syntax for it in
85 ;; single-byte mode. We can't use require because the file
86 ;; must be eval'd each time in case we change from one Latin-N to another.
87 ;; (if (string-match "^Latin-\\([1-9]\\)$" language)
88 ;; (load (downcase language) nil t))
89 )
90 55
91 ;; Latin-1 (ISO-8859-1) 56 ;; Latin-1 (ISO-8859-1)
92 57
93 ;; (make-coding-system 58 ;; (make-coding-system
94 ;; 'iso-latin-1 2 ?1 59 ;; 'iso-latin-1 2 ?1
95 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-1, Compound Text Encoding)" 60 ;; "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)"
96 ;; '((ascii t) (latin-iso8859-1 t) nil nil 61 ;; '(ascii latin-iso8859-1 nil nil
97 ;; nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t)) 62 ;; nil nil nil nil nil nil nil nil nil nil nil nil t)
63 ;; '((safe-charsets ascii latin-iso8859-1)
64 ;; (mime-charset . iso-8859-1)))
98 65
99 ;; (define-coding-system-alias 'iso-8859-1 'iso-latin-1) 66 ;; (define-coding-system-alias 'iso-8859-1 'iso-latin-1)
100 ;; (define-coding-system-alias 'latin-1 'iso-latin-1) 67 ;; (define-coding-system-alias 'latin-1 'iso-latin-1)
101 ;; (define-coding-system-alias 'ctext 'iso-latin-1) 68
69 ;; (make-coding-system
70 ;; 'compound-text 2 ?1
71 ;; "ISO 2022 based encoding used in inter client communication of X"
72 ;; '((ascii t) (latin-iso8859-1 t) nil nil
73 ;; nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t)
74 ;; '((safe-charsets . t)))
75
76 ;; (define-coding-system-alias 'ctext 'compound-text)
102 77
103 (defun setup-latin1-environment () 78 (defun setup-latin1-environment ()
104 "Set up multilingual environment (MULE) for European Latin-1 users." 79 "Set up multilingual environment (MULE) for European Latin-1 users."
105 (interactive) 80 (interactive)
106 (setup-8-bit-environment "Latin-1" 'latin-iso8859-1 'iso-8859-1 81 (set-language-environment "Latin-1"))
107 "latin-1-prefix")) 82
108 83 (set-language-info-alist
109 (set-language-info-alist 84 "Latin-1" '((charset ascii latin-iso8859-1)
110 "Latin-1" '((setup-function . (setup-latin1-environment 85 (coding-system iso-8859-1)
111 . setup-european-environment-map)) 86 (coding-priority iso-8859-1)
112 (charset . (ascii latin-iso8859-1)) 87 (input-method . "latin-1-prefix")
113 (coding-system . (iso-8859-1))
114 (sample-text 88 (sample-text
115 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!") 89 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!")
116 (documentation . ("\ 90 (documentation . "\
91 This language environment is a generic one for Latin-1 (ISO-8859-1)
92 character set which supports the following languages:
93 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
94 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.
95 We also have a German specific language environment \"German\"."))
96 '("European"))
97
98 (set-language-info-alist
99 "French" '((charset ascii latin-iso8859-1)
100 (coding-system iso-8859-1)
101 (coding-priority iso-8859-1)
102 (tutorial . "TUTORIAL.fr")
103 (sample-text
104 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!")
105 (documentation . ("\
117 These languages are supported with the Latin-1 (ISO-8859-1) character set: 106 These languages are supported with the Latin-1 (ISO-8859-1) character set:
118 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic, 107 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
119 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish. 108 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.
120 " . describe-european-environment-map)) 109 ")))
121 )) 110 '("European"))
122 111
123 (set-language-info-alist 112 (set-language-info-alist
124 "German" '((setup-function . (setup-latin1-environment 113 "Norwegian" '((charset ascii latin-iso8859-1)
125 . setup-european-environment-map)) 114 (coding-system iso-8859-1)
126 (charset . (ascii latin-iso8859-1)) 115 (coding-priority iso-8859-1)
127 (coding-system . (iso-8859-1)) 116 (tutorial . "TUTORIAL.no")
128 (tutorial . "TUTORIAL.de") 117 (sample-text
129 (sample-text 118 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!")
130 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!") 119 (documentation . ("\
131 (documentation . ("\
132 These languages are supported with the Latin-1 (ISO-8859-1) character set: 120 These languages are supported with the Latin-1 (ISO-8859-1) character set:
133 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic, 121 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
134 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish. 122 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.
135 " . describe-european-environment-map)) 123 ")))
136 )) 124 '("European"))
137 125
138 (set-language-info-alist
139 "French" '((setup-function . (setup-latin1-environment
140 . setup-european-environment-map))
141 (charset . (ascii latin-iso8859-1))
142 (coding-system . (iso-8859-1))
143 (tutorial . "TUTORIAL.fr")
144 (sample-text
145 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!")
146 (documentation . ("\
147 These languages are supported with the Latin-1 (ISO-8859-1) character set:
148 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
149 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.
150 " . describe-european-environment-map))
151 ))
152
153 (set-language-info-alist
154 "Norwegian" '((setup-function . (setup-latin1-environment
155 . setup-european-environment-map))
156 (charset . (ascii latin-iso8859-1))
157 (coding-system . (iso-8859-1))
158 (tutorial . "TUTORIAL.no")
159 (sample-text
160 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!")
161 (documentation . ("\
162 These languages are supported with the Latin-1 (ISO-8859-1) character set:
163 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
164 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.
165 " . describe-european-environment-map))
166 ))
167 126
168 ;; Latin-2 (ISO-8859-2) 127 ;; Latin-2 (ISO-8859-2)
169 128
170 ;; (make-coding-system 129 ;; (make-coding-system
171 ;; 'iso-latin-2 2 ?2 130 ;; 'iso-latin-2 2 ?2
172 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)" 131 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)"
173 ;; '((ascii t) (latin-iso8859-2 t) nil nil 132 ;; '(ascii latin-iso8859-2 nil nil
174 ;; nil ascii-eol ascii-cntl nil nil nil nil)) 133 ;; nil nil nil nil nil nil nil)
134 ;; '((safe-charsets ascii latin-iso8859-2)
135 ;; (mime-charset . iso-8859-2)))
175 136
176 ;; (define-coding-system-alias 'iso-8859-2 'iso-latin-2) 137 ;; (define-coding-system-alias 'iso-8859-2 'iso-latin-2)
177 ;; (define-coding-system-alias 'latin-2 'iso-latin-2) 138 ;; (define-coding-system-alias 'latin-2 'iso-latin-2)
178 139
179 (make-coding-system 140 (make-coding-system
186 )) 147 ))
187 148
188 (defun setup-latin2-environment () 149 (defun setup-latin2-environment ()
189 "Set up multilingual environment (MULE) for European Latin-2 users." 150 "Set up multilingual environment (MULE) for European Latin-2 users."
190 (interactive) 151 (interactive)
191 (setup-8-bit-environment "Latin-2" 'latin-iso8859-2 'iso-8859-2 152 (set-language-environment "Latin-2"))
192 "latin-2-prefix")) 153
193 154 (set-language-info-alist
194 (set-language-info-alist 155 "Latin-2" '((charset ascii latin-iso8859-2)
195 "Latin-2" '((setup-function . (setup-latin2-environment 156 (coding-system iso-8859-2)
196 . setup-european-environment-map)) 157 (coding-priority iso-8859-2)
197 (charset . (ascii latin-iso8859-2)) 158 (input-method . "latin-2-prefix")
198 (coding-system . (iso-8859-2)) 159 (documentation . "\
199 (documentation . ("\ 160 This language environment is a generic one for Latin-2 (ISO-8859-2)
200 These languages are supported with the Latin-2 (ISO-8859-2) character set: 161 character set which supports the following languages:
201 Albanian, Czech, English, German, Hungarian, Polish, Romanian, 162 Albanian, Czech, English, German, Hungarian, Polish, Romanian,
202 Serbian, Croatian, Slovak, Slovene, and Swedish. 163 Serbian, Croatian, Slovak, Slovene, Sorbian (upper and lower),
203 " . describe-european-environment-map)) 164 and Swedish."))
204 )) 165 '("European"))
205 166
206 (set-language-info-alist 167 (set-language-info-alist
207 "Croatian" '((setup-function . (setup-latin2-environment 168 "Croatian" '((charset ascii latin-iso8859-2)
208 . setup-european-environment-map)) 169 (coding-system iso-8859-2)
209 (charset . (ascii latin-iso8859-2)) 170 (coding-priority iso-8859-2)
210 (tutorial . "TUTORIAL.hr") 171 (tutorial . "TUTORIAL.hr")
211 (coding-system . (iso-8859-2)) 172 (documentation . "\
212 (documentation . ("\ 173 This language environment is a generic one for Latin-2 (ISO-8859-2)
213 These languages are supported with the Latin-2 (ISO-8859-2) character set: 174 character set which supports the following languages:
214 Albanian, Czech, English, German, Hungarian, Polish, Romanian, 175 Albanian, Czech, English, German, Hungarian, Polish, Romanian,
215 Serbian, Croatian, Slovak, Slovene, and Swedish. 176 Serbian, Croatian, Slovak, Slovene, Sorbian (upper and lower),
216 " . describe-european-environment-map)) 177 and Swedish."))
217 )) 178 '("European"))
218 179
219 (set-language-info-alist 180 (set-language-info-alist
220 "Polish" '((setup-function . (setup-latin2-environment 181 "Polish" '((charset ascii latin-iso8859-2)
221 . setup-european-environment-map)) 182 (coding-system iso-8859-2)
222 (charset . (ascii latin-iso8859-2)) 183 (coding-priority iso-8859-2)
223 (tutorial . "TUTORIAL.pl") 184 (tutorial . "TUTORIAL.pl")
224 (coding-system . (iso-8859-2)) 185 (documentation . "\
225 (documentation . ("\ 186 This language environment is a generic one for Latin-2 (ISO-8859-2)
226 These languages are supported with the Latin-2 (ISO-8859-2) character set: 187 character set which supports the following languages:
227 Albanian, Czech, English, German, Hungarian, Polish, Romanian, 188 Albanian, Czech, English, German, Hungarian, Polish, Romanian,
228 Serbian, Croatian, Slovak, Slovene, and Swedish. 189 Serbian, Croatian, Slovak, Slovene, Sorbian (upper and lower),
229 " . describe-european-environment-map)) 190 and Swedish."))
230 )) 191 '("European"))
231 192
232 ;; Romanian support originally from romanian.el 193 ;; Romanian support originally from romanian.el
233 194
234 (defun setup-romanian-environment () 195 (defun setup-romanian-environment ()
235 "Setup multilingual environment (MULE) for Romanian." 196 "Setup multilingual environment (MULE) for Romanian."
236 (interactive) 197 (interactive)
237 (setup-8-bit-environment "Romanian" 'latin-iso8859-2 'iso-8859-2 198 (set-language-environment "Romanian"))
238 "romanian")) 199
239 200 (set-language-info-alist
240 (set-language-info-alist 201 "Romanian" '((charset ascii latin-iso8859-2)
241 "Romanian" '((setup-function . (setup-romanian-environment 202 (coding-system iso-8859-2)
242 . setup-european-environment-map)) 203 (coding-priority iso-8859-2)
243 (charset . (ascii latin-iso8859-2)) 204 (input-method . "latin-2-postfix")
244 (tutorial . "TUTORIAL.ro") 205 (tutorial . "TUTORIAL.ro")
245 (coding-system . (iso-8859-2)) 206 (sample-text . "Bun,Bc(B ziua, bine a,B~(Bi venit!")
246 (documentation . ("\ 207 (documentation . t))
247 These languages are supported with the Latin-2 (ISO-8859-2) character set: 208 '("European"))
248 Albanian, Czech, English, German, Hungarian, Polish, Romanian, 209
249 Serbian, Croatian, Slovak, Slovene, and Swedish. 210 (provide 'romanian)
250 " . describe-european-environment-map))
251 ))
252 211
253 ;; Czech support originally from czech.el 212 ;; Czech support originally from czech.el
254 ;; Author: Milan Zamazal <pdm@fi.muni.cz> 213 ;; Author: Milan Zamazal <pdm@fi.muni.cz>
255 ;; Maintainer(for XEmacs): David Sauer <davids@penguin.cz> 214 ;; Maintainer(for XEmacs): David Sauer <davids@penguin.cz>
256 215
257 (defun setup-czech-environment () 216 (defun setup-czech-environment ()
258 "Set up multilingual environment (MULE) for czech users." 217 "Set up multilingual environment (MULE) for czech users."
259 (interactive) 218 (interactive)
260 (setup-8-bit-environment "Czech" 'latin-iso8859-2 'iso-8859-2 219 (set-language-environment "Czech"))
261 "czech")) 220
262 221 (set-language-info-alist
263 222 "Czech" '((charset ascii latin-iso8859-2)
264 (set-language-info-alist 223 (coding-system iso-8859-2)
265 "Czech" 224 (coding-priority iso-8859-2)
266 '((setup-function . (setup-czech-environment 225 (tutorial . "TUTORIAL.cs")
267 . setup-european-environment-map)) 226 (sample-text . "P,Bx(Bejeme v,Ba(Bm hezk,B}(B den!")
268 (charset . (ascii latin-iso8859-2)) 227 (documentation . t))
269 (coding-system . (iso-8859-2)) 228 '("European"))
270 (tutorial . "TUTORIAL.cs") 229
271 (documentation . ("\ 230 (provide 'czech)
272 These languages are supported with the Latin-2 (ISO-8859-2) character set:
273 Albanian, Czech, English, German, Hungarian, Polish, Romanian,
274 Serbian, Croatian, Slovak, Slovene, and Swedish.
275 " . describe-european-environment-map))
276 ))
277
278 231
279 232
280 ;; Latin-3 (ISO-8859-3) 233 ;; Latin-3 (ISO-8859-3)
281 234
282 ;; (make-coding-system 235 ;; (make-coding-system
283 ;; 'iso-latin-3 2 ?3 236 ;; 'iso-latin-3 2 ?3
284 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)" 237 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)"
285 ;; '((ascii t) (latin-iso8859-3 t) nil nil 238 ;; '(ascii latin-iso8859-3 nil nil
286 ;; nil ascii-eol ascii-cntl nil nil nil nil)) 239 ;; nil nil nil nil nil nil nil)
240 ;; '((safe-charsets ascii latin-iso8859-3)
241 ;; (mime-charset . iso-8859-3)))
287 242
288 ;; (define-coding-system-alias 'iso-8859-3 'iso-latin-3) 243 ;; (define-coding-system-alias 'iso-8859-3 'iso-latin-3)
289 ;; (define-coding-system-alias 'latin-3 'iso-latin-3) 244 ;; (define-coding-system-alias 'latin-3 'iso-latin-3)
290 245
291 (make-coding-system 246 (make-coding-system
298 )) 253 ))
299 254
300 (defun setup-latin3-environment () 255 (defun setup-latin3-environment ()
301 "Set up multilingual environment (MULE) for European Latin-3 users." 256 "Set up multilingual environment (MULE) for European Latin-3 users."
302 (interactive) 257 (interactive)
303 (setup-8-bit-environment "Latin-3" 'latin-iso8859-3 'iso-8859-3 258 (set-language-environment "Latin-3"))
304 "latin-3-prefix")) 259
305 260 (set-language-info-alist
306 (set-language-info-alist 261 "Latin-3" '((charset ascii latin-iso8859-3)
307 "Latin-3" '((setup-function . (setup-latin3-environment 262 (coding-system iso-8859-3)
308 . setup-european-environment-map)) 263 (coding-priority iso-8859-3)
309 (charset . (ascii latin-iso8859-3)) 264 (input-method . "latin-3-prefix")
310 (coding-system . (iso-8859-3)) 265 (documentation . "\
311 (documentation . ("\
312 These languages are supported with the Latin-3 (ISO-8859-3) character set: 266 These languages are supported with the Latin-3 (ISO-8859-3) character set:
313 Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician, 267 Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician,
314 German, Italian, Maltese, Spanish, and Turkish. 268 German, Italian, Maltese, Spanish, and Turkish."))
315 " . describe-european-environment-map)) 269 '("European"))
316 )) 270
317 271
318 ;; Latin-4 (ISO-8859-4) 272 ;; Latin-4 (ISO-8859-4)
319 273
320 ;; (make-coding-system 274 ;; (make-coding-system
321 ;; 'iso-latin-4 2 ?4 275 ;; 'iso-latin-4 2 ?4
322 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)" 276 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)"
323 ;; '((ascii t) (latin-iso8859-4 t) nil nil 277 ;; '(ascii latin-iso8859-4 nil nil
324 ;; nil ascii-eol ascii-cntl nil nil nil nil)) 278 ;; nil nil nil nil nil nil nil)
279 ;; '((safe-charsets ascii latin-iso8859-4)
280 ;; (mime-charset . iso-8895-4)))
325 281
326 ;; (define-coding-system-alias 'iso-8859-4 'iso-latin-4) 282 ;; (define-coding-system-alias 'iso-8859-4 'iso-latin-4)
327 ;; (define-coding-system-alias 'latin-4 'iso-latin-4) 283 ;; (define-coding-system-alias 'latin-4 'iso-latin-4)
328 284
329 (make-coding-system 285 (make-coding-system
336 )) 292 ))
337 293
338 (defun setup-latin4-environment () 294 (defun setup-latin4-environment ()
339 "Set up multilingual environment (MULE) for European Latin-4 users." 295 "Set up multilingual environment (MULE) for European Latin-4 users."
340 (interactive) 296 (interactive)
341 (setup-8-bit-environment "Latin-4" 'latin-iso8859-4 'iso-8859-4 297 (set-language-environment "Latin-4"))
342 "latin-4-prefix")) 298
343 299 (set-language-info-alist
344 (set-language-info-alist 300 "Latin-4" '((charset ascii latin-iso8859-4)
345 "Latin-4" '((setup-function . (setup-latin4-environment 301 (coding-system iso-8859-4)
346 . setup-european-environment-map)) 302 (coding-priority iso-8859-4)
347 (charset . (ascii latin-iso8859-4)) 303 (input-method . "latin-4-prefix")
348 (coding-system . (iso-8859-4)) 304 (documentation . "\
349 (documentation . ("\
350 These languages are supported with the Latin-4 (ISO-8859-4) character set: 305 These languages are supported with the Latin-4 (ISO-8859-4) character set:
351 Danish, English, Estonian, Finnish, German, Greenlandic, Lappish, 306 Danish, English, Estonian, Finnish, German, Greenlandic, Lappish,
352 Latvian, Lithuanian, and Norwegian. 307 Latvian, Lithuanian, and Norwegian."))
353 " . describe-european-environment-map)) 308 '("European"))
354 )) 309
355 310
356 ;; Latin-5 (ISO-8859-9) 311 ;; Latin-5 (ISO-8859-9)
357 312
358 ;; (make-coding-system 313 ;; (make-coding-system
359 ;; 'iso-latin-5 2 ?9 314 ;; 'iso-latin-5 2 ?9
360 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)" 315 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)"
361 ;; '((ascii t) (latin-iso8859-9 t) nil nil 316 ;; '(ascii latin-iso8859-9 nil nil
362 ;; nil ascii-eol ascii-cntl nil nil nil nil)) 317 ;; nil nil nil nil nil nil nil)
318 ;; '((safe-charsets ascii latin-iso8859-9)
319 ;; (mime-charset . iso-8859-9)))
363 320
364 ;; (define-coding-system-alias 'iso-8859-9 'iso-latin-5) 321 ;; (define-coding-system-alias 'iso-8859-9 'iso-latin-5)
365 ;; (define-coding-system-alias 'latin-5 'iso-latin-5) 322 ;; (define-coding-system-alias 'latin-5 'iso-latin-5)
366 323
367 (make-coding-system 324 (make-coding-system
374 )) 331 ))
375 332
376 (defun setup-latin5-environment () 333 (defun setup-latin5-environment ()
377 "Set up multilingual environment (MULE) for European Latin-5 users." 334 "Set up multilingual environment (MULE) for European Latin-5 users."
378 (interactive) 335 (interactive)
379 (setup-8-bit-environment "Latin-5" 'latin-iso8859-9 'iso-8859-5 336 (set-language-environment "Latin-5"))
380 "latin-5-prefix")) 337
381 338 (set-language-info-alist
382 (set-language-info-alist 339 "Latin-5" '((charset ascii latin-iso8859-9)
383 "Latin-5" '((setup-function . (setup-latin5-environment 340 (coding-system iso-8859-9)
384 . setup-european-environment-map)) 341 (coding-priority iso-8859-9)
385 (charset . (ascii latin-iso8859-9)) 342 (input-method . "latin-5-prefix")
386 (coding-system . (iso-8859-5)) 343 (documentation . "\
387 (documentation . ("\ 344 These languages are supported with the Latin-5 (ISO-8859-9) character set."))
388 These languages are supported with the Latin-5 (ISO-8859-9) character set. 345 '("European"))
389 " . describe-european-environment-map)) 346
390 )) 347
391 348 (defun setup-german-environment ()
392 ;; (defun setup-european-environment () 349 "Set up multilingual environment (MULE) for German users."
393 ;; "Setup multilingual environment (MULE) for European languages users. 350 (interactive)
394 ;; It actually reset MULE to the default status, and 351 (set-language-environment "German"))
395 ;; set quail-latin-1 as the default input method to be selected. 352
396 ;; See also the documentation of setup-english-environment." 353 (set-language-info-alist
397 ;; (setup-english-environment) 354 "German" '((tutorial . "TUTORIAL.de")
398 ;; (setq default-input-method '("European" . "quail-latin-1"))) 355 (charset ascii latin-iso8859-1)
399 356 (coding-system iso-8859-1)
400 ;; (defun describe-european-support () 357 (coding-priority iso-8859-1)
401 ;; "Describe how Emacs support European languages." 358 (input-method . "german-postfix")
402 ;; (interactive) 359 (sample-text . "\
403 ;; (describe-language-support-internal "European")) 360 German (Deutsch Nord) Guten Tag
404 361 German (Deutsch S,A|(Bd) Gr,A|_(B Gott")
405 ;; (set-language-info-alist 362 (documentation . "\
406 ;; "European" '((setup-function . setup-european-environment) 363 This language environment is almost the same as Latin-1,
407 ;; (describe-function . describe-european-support) 364 but default input method is set to \"german-postfix\"."))
408 ;; (charset . (ascii latin-iso8859-1 latin-iso8859-2 365 '("European"))
409 ;; latin-iso8859-3 latin-iso8859-4 latin-iso8859-9)) 366
410 ;; (coding-system . (iso-8859-1 iso-8859-2 iso-8859-3 367 (defun setup-slovenian-environment ()
411 ;; iso-8859-4 iso-8859-9)) 368 "Setup multilingual environment (MULE) for Slovenian."
412 ;; (sample-text 369 (interactive)
413 ;; . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!") 370 (set-language-environment "Slovenian"))
414 ;; (documentation . "\ 371
415 ;; Almost all of European languages are supported by the character sets and 372 (set-language-info-alist
416 ;; coding systems listed below. 373 "Slovenian" '((charset . (ascii latin-iso8859-2))
417 ;; To input them, LEIM (Libraries for Emacs Input Methods) should have been 374 (coding-system . (iso-8859-2))
418 ;; installed.") 375 (coding-priority . (iso-8859-2))
419 ;; )) 376 (input-method . "latin-2-postfix")
377 (tutorial . "TUTORIAL.sl")
378 (sample-text . ",B.(Belimo vam uspe,B9(Ben dan!")
379 (documentation . t))
380 '("European"))
381
382 (provide 'slovenian)
420 383
421 ;;; european.el ends here 384 ;;; european.el ends here