Mercurial > emacs
comparison lisp/language/european.el @ 28906:60eb71a9f901
Remove all the setup-...-environment functions.
author | Dave Love <fx@gnu.org> |
---|---|
date | Sun, 14 May 2000 15:21:41 +0000 |
parents | 8ed2572aa67c |
children | e1671c1d33d2 |
comparison
equal
deleted
inserted
replaced
28905:e96880caf4e5 | 28906:60eb71a9f901 |
---|---|
47 '((ascii t) (latin-iso8859-1 t) nil nil | 47 '((ascii t) (latin-iso8859-1 t) nil nil |
48 nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t) | 48 nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t) |
49 '((safe-charsets . t))) | 49 '((safe-charsets . t))) |
50 | 50 |
51 (define-coding-system-alias 'ctext 'compound-text) | 51 (define-coding-system-alias 'ctext 'compound-text) |
52 | |
53 (defun setup-latin1-environment () | |
54 "Set up multilingual environment (MULE) for European Latin-1 users." | |
55 (interactive) | |
56 (set-language-environment "Latin-1")) | |
57 | 52 |
58 (set-language-info-alist | 53 (set-language-info-alist |
59 "Latin-1" '((charset ascii latin-iso8859-1) | 54 "Latin-1" '((charset ascii latin-iso8859-1) |
60 (coding-system iso-latin-1) | 55 (coding-system iso-latin-1) |
61 (coding-priority iso-latin-1) | 56 (coding-priority iso-latin-1) |
91 (mime-charset . iso-8859-2))) | 86 (mime-charset . iso-8859-2))) |
92 | 87 |
93 (define-coding-system-alias 'iso-8859-2 'iso-latin-2) | 88 (define-coding-system-alias 'iso-8859-2 'iso-latin-2) |
94 (define-coding-system-alias 'latin-2 'iso-latin-2) | 89 (define-coding-system-alias 'latin-2 'iso-latin-2) |
95 | 90 |
96 (defun setup-latin2-environment () | |
97 "Set up multilingual environment (MULE) for European Latin-2 users." | |
98 (interactive) | |
99 (set-language-environment "Latin-2")) | |
100 | |
101 (set-language-info-alist | 91 (set-language-info-alist |
102 "Latin-2" '((charset ascii latin-iso8859-2) | 92 "Latin-2" '((charset ascii latin-iso8859-2) |
103 (coding-system iso-latin-2) | 93 (coding-system iso-latin-2) |
104 (coding-priority iso-latin-2) | 94 (coding-priority iso-latin-2) |
105 (nonascii-translation . latin-iso8859-2) | 95 (nonascii-translation . latin-iso8859-2) |
130 (mime-charset . iso-8859-3))) | 120 (mime-charset . iso-8859-3))) |
131 | 121 |
132 (define-coding-system-alias 'iso-8859-3 'iso-latin-3) | 122 (define-coding-system-alias 'iso-8859-3 'iso-latin-3) |
133 (define-coding-system-alias 'latin-3 'iso-latin-3) | 123 (define-coding-system-alias 'latin-3 'iso-latin-3) |
134 | 124 |
135 (defun setup-latin3-environment () | |
136 "Set up multilingual environment (MULE) for European Latin-3 users." | |
137 (interactive) | |
138 (set-language-environment "Latin-3")) | |
139 | |
140 (set-language-info-alist | 125 (set-language-info-alist |
141 "Latin-3" '((charset ascii latin-iso8859-3) | 126 "Latin-3" '((charset ascii latin-iso8859-3) |
142 (coding-system iso-latin-3) | 127 (coding-system iso-latin-3) |
143 (coding-priority iso-latin-3) | 128 (coding-priority iso-latin-3) |
144 (nonascii-translation . latin-iso8859-3) | 129 (nonascii-translation . latin-iso8859-3) |
163 (mime-charset . iso-8859-4))) | 148 (mime-charset . iso-8859-4))) |
164 | 149 |
165 (define-coding-system-alias 'iso-8859-4 'iso-latin-4) | 150 (define-coding-system-alias 'iso-8859-4 'iso-latin-4) |
166 (define-coding-system-alias 'latin-4 'iso-latin-4) | 151 (define-coding-system-alias 'latin-4 'iso-latin-4) |
167 | 152 |
168 (defun setup-latin4-environment () | |
169 "Set up multilingual environment (MULE) for European Latin-4 users." | |
170 (interactive) | |
171 (set-language-environment "Latin-4")) | |
172 | |
173 (set-language-info-alist | 153 (set-language-info-alist |
174 "Latin-4" '((charset ascii latin-iso8859-4) | 154 "Latin-4" '((charset ascii latin-iso8859-4) |
175 (coding-system iso-8859-4) | 155 (coding-system iso-8859-4) |
176 (coding-priority iso-8859-4) | 156 (coding-priority iso-8859-4) |
177 (nonascii-translation . latin-iso8859-4) | 157 (nonascii-translation . latin-iso8859-4) |
196 (mime-charset . iso-8859-9))) | 176 (mime-charset . iso-8859-9))) |
197 | 177 |
198 (define-coding-system-alias 'iso-8859-9 'iso-latin-5) | 178 (define-coding-system-alias 'iso-8859-9 'iso-latin-5) |
199 (define-coding-system-alias 'latin-5 'iso-latin-5) | 179 (define-coding-system-alias 'latin-5 'iso-latin-5) |
200 | 180 |
201 (defun setup-latin5-environment () | |
202 "Set up multilingual environment (MULE) for European Latin-5 users." | |
203 (interactive) | |
204 (set-language-environment "Latin-5")) | |
205 | |
206 (set-language-info-alist | 181 (set-language-info-alist |
207 "Latin-5" '((charset ascii latin-iso8859-9) | 182 "Latin-5" '((charset ascii latin-iso8859-9) |
208 (coding-system iso-latin-5) | 183 (coding-system iso-latin-5) |
209 (coding-priority iso-latin-5) | 184 (coding-priority iso-latin-5) |
210 (nonascii-translation . latin-iso8859-9) | 185 (nonascii-translation . latin-iso8859-9) |
229 '((safe-charsets ascii latin-iso8859-14) | 204 '((safe-charsets ascii latin-iso8859-14) |
230 (mime-charset . iso-8859-14))) | 205 (mime-charset . iso-8859-14))) |
231 | 206 |
232 (define-coding-system-alias 'iso-8859-14 'iso-latin-8) | 207 (define-coding-system-alias 'iso-8859-14 'iso-latin-8) |
233 (define-coding-system-alias 'latin-8 'iso-latin-8) | 208 (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 | 209 |
240 (set-language-info-alist | 210 (set-language-info-alist |
241 "Latin-8" '((charset ascii latin-iso8859-14) | 211 "Latin-8" '((charset ascii latin-iso8859-14) |
242 (coding-system iso-latin-8) | 212 (coding-system iso-latin-8) |
243 (coding-priority iso-latin-8) | 213 (coding-priority iso-latin-8) |
267 | 237 |
268 (define-coding-system-alias 'iso-8859-15 'iso-latin-9) | 238 (define-coding-system-alias 'iso-8859-15 'iso-latin-9) |
269 (define-coding-system-alias 'latin-9 'iso-latin-9) | 239 (define-coding-system-alias 'latin-9 'iso-latin-9) |
270 (define-coding-system-alias 'latin-0 'iso-latin-9) | 240 (define-coding-system-alias 'latin-0 'iso-latin-9) |
271 | 241 |
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 | 242 (set-language-info-alist |
278 "Latin-9" '((charset ascii latin-iso8859-15) | 243 "Latin-9" '((charset ascii latin-iso8859-15) |
279 (coding-system iso-latin-9) | 244 (coding-system iso-latin-9) |
280 (coding-priority iso-latin-9) | 245 (coding-priority iso-latin-9) |
281 (nonascii-translation . latin-iso8859-15) | 246 (nonascii-translation . latin-iso8859-15) |
289 character set which supports the same languages as Latin-1 with the | 254 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. | 255 addition of the Euro sign and some additional French and Finnish letters. |
291 Latin-9 is sometimes nicknamed `Latin-0'.")) | 256 Latin-9 is sometimes nicknamed `Latin-0'.")) |
292 '("European")) | 257 '("European")) |
293 | 258 |
294 (defun setup-german-environment () | |
295 "Set up multilingual environment (MULE) for German users." | |
296 (interactive) | |
297 (set-language-environment "German")) | |
298 | |
299 (set-language-info-alist | 259 (set-language-info-alist |
300 "German" '((tutorial . "TUTORIAL.de") | 260 "German" '((tutorial . "TUTORIAL.de") |
301 (charset ascii latin-iso8859-1) | 261 (charset ascii latin-iso8859-1) |
302 (coding-system iso-latin-1) | 262 (coding-system iso-latin-1) |
303 (coding-priority iso-latin-1) | 263 (coding-priority iso-latin-1) |
311 (documentation . "\ | 271 (documentation . "\ |
312 This language environment is almost the same as Latin-1, | 272 This language environment is almost the same as Latin-1, |
313 but default input method is set to \"german-postfix\".")) | 273 but default input method is set to \"german-postfix\".")) |
314 '("European")) | 274 '("European")) |
315 | 275 |
316 (defun setup-slovenian-environment () | |
317 "Setup multilingual environment (MULE) for Slovenian." | |
318 (interactive) | |
319 (set-language-environment "Slovenian")) | |
320 | |
321 (set-language-info-alist | 276 (set-language-info-alist |
322 "Slovenian" '((charset . (ascii latin-iso8859-2)) | 277 "Slovenian" '((charset . (ascii latin-iso8859-2)) |
323 (coding-system . (iso-8859-2)) | 278 (coding-system . (iso-8859-2)) |
324 (coding-priority . (iso-8859-2)) | 279 (coding-priority . (iso-8859-2)) |
325 (nonascii-translation . latin-iso8859-2) | 280 (nonascii-translation . latin-iso8859-2) |
349 | 304 |
350 ;; Polish ISO 8859-2 environment. | 305 ;; Polish ISO 8859-2 environment. |
351 ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl> | 306 ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl> |
352 ;; Keywords: multilingual, Polish | 307 ;; Keywords: multilingual, Polish |
353 | 308 |
354 (defun setup-polish-environment () | |
355 "Setup multilingual environment (MULE) for Polish." | |
356 (interactive) | |
357 (set-language-environment "Polish")) | |
358 | |
359 (set-language-info-alist | 309 (set-language-info-alist |
360 "Polish" '((charset . (ascii latin-iso8859-2)) | 310 "Polish" '((charset . (ascii latin-iso8859-2)) |
361 (coding-system . (iso-8859-2)) | 311 (coding-system . (iso-8859-2)) |
362 (coding-priority . (iso-8859-2)) | 312 (coding-priority . (iso-8859-2)) |
363 (input-method . "polish-slash") | 313 (input-method . "polish-slash") |