Mercurial > emacs

comparison lisp/language/european.el @ 46672:cbba2fbd2b85

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
("German", "French", "Spanish", "Turkish"): Add alternative coding systems. ("Dutch"): Likewise. Add input method. ("Welsh", "Latin-7"): Add nonascii-translation.
author Dave Love <fx@gnu.org>
date Wed, 24 Jul 2002 22:19:28 +0000
parents ff1f9768901a
children fd8d01195320
comparison
equal deleted inserted replaced
46671:1c5996975536 46672:cbba2fbd2b85
1 ;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*- 1 ;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*-
2 2
3 ;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 2001 Free Software Foundation, Inc. 5 ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
6 6
7 ;; Keywords: multilingual, European 7 ;; Keywords: multilingual, European
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
10 10
250 '("European")) 250 '("European"))
251 251
252 (set-language-info-alist 252 (set-language-info-alist
253 "German" '((tutorial . "TUTORIAL.de") 253 "German" '((tutorial . "TUTORIAL.de")
254 (charset ascii latin-iso8859-1) 254 (charset ascii latin-iso8859-1)
255 (coding-system iso-latin-1) 255 (coding-system iso-latin-1 iso-latin-9)
256 (coding-priority iso-latin-1) 256 (coding-priority iso-latin-1)
257 (input-method . "german-postfix") 257 (input-method . "german-postfix")
258 (nonascii-translation . iso-latin-1) 258 (nonascii-translation . iso-latin-1)
259 (unibyte-syntax . "latin-1") 259 (unibyte-syntax . "latin-1")
260 (unibyte-display . iso-latin-1) 260 (unibyte-display . iso-latin-1)
268 '("European")) 268 '("European"))
269 269
270 (set-language-info-alist 270 (set-language-info-alist
271 "French" '((tutorial . "TUTORIAL.fr") 271 "French" '((tutorial . "TUTORIAL.fr")
272 (charset ascii latin-iso8859-1) 272 (charset ascii latin-iso8859-1)
273 (coding-system iso-latin-1) 273 (coding-system iso-latin-1 iso-latin-9)
274 (coding-priority iso-latin-1) 274 (coding-priority iso-latin-1)
275 (nonascii-translation . latin-iso8859-1) 275 (nonascii-translation . latin-iso8859-1)
276 (unibyte-syntax . "latin-1") 276 (unibyte-syntax . "latin-1")
277 (unibyte-display . iso-latin-1) 277 (unibyte-display . iso-latin-1)
278 (input-method . "latin-1-prefix") 278 (input-method . "latin-1-prefix")
296 '("European")) 296 '("European"))
297 297
298 (set-language-info-alist 298 (set-language-info-alist
299 "Spanish" '((tutorial . "TUTORIAL.es") 299 "Spanish" '((tutorial . "TUTORIAL.es")
300 (charset ascii latin-iso8859-1) 300 (charset ascii latin-iso8859-1)
301 (coding-system iso-latin-1) 301 (coding-system iso-latin-1 iso-latin-9)
302 (coding-priority iso-latin-1) 302 (coding-priority iso-latin-1)
303 (input-method . "spanish-postfix") 303 (input-method . "spanish-postfix")
304 (nonascii-translation . iso-latin-1) 304 (nonascii-translation . iso-latin-1)
305 (unibyte-syntax . "latin-1") 305 (unibyte-syntax . "latin-1")
306 (unibyte-display . iso-latin-1) 306 (unibyte-display . iso-latin-1)
312 '("European")) 312 '("European"))
313 313
314 (set-language-info-alist 314 (set-language-info-alist
315 "Dutch" '((tutorial . "TUTORIAL.nl") 315 "Dutch" '((tutorial . "TUTORIAL.nl")
316 (charset ascii latin-iso8859-1) 316 (charset ascii latin-iso8859-1)
317 (coding-system iso-latin-1) 317 (coding-system iso-latin-1 iso-latin-9)
318 (coding-priority iso-latin-1) 318 (coding-priority iso-latin-1)
319 (nonascii-translation . iso-latin-1) 319 (nonascii-translation . iso-latin-1)
320 (unibyte-syntax . "latin-1") 320 (unibyte-syntax . "latin-1")
321 (unibyte-display . iso-latin-1) 321 (unibyte-display . iso-latin-1)
322 (input-method . "dutch")
322 (sample-text . "Er is een aantal manieren waarop je dit kan doen") 323 (sample-text . "Er is een aantal manieren waarop je dit kan doen")
323 (documentation . "\ 324 (documentation . "\
324 This language environment is almost the same as Latin-1, 325 This language environment is almost the same as Latin-1,
325 but it selects the Dutch tutorial.")) 326 but it selects the Dutch tutorial and input method."))
326 '("European")) 327 '("European"))
327 328
328 ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used. But, 329 ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used. But,
329 ;; before the introduction of ISO-8859-9 in 1988, ISO-8859-3 (Latin-3) 330 ;; before the introduction of ISO-8859-9 in 1988, ISO-8859-3 (Latin-3)
330 ;; was used for Turkish. Those who use Latin-3 for Turkish should use 331 ;; was used for Turkish. Those who use Latin-3 for Turkish should use
331 ;; "Latin-3" language environment. 332 ;; "Latin-3" language environment.
332 333
333 (set-language-info-alist 334 (set-language-info-alist
334 "Turkish" '((charset ascii latin-iso8859-9) 335 "Turkish" '((charset ascii latin-iso8859-9)
335 (coding-system iso-latin-5) 336 (coding-system iso-latin-5 iso-latin-3)
336 (coding-priority iso-latin-5) 337 (coding-priority iso-latin-5)
337 (nonascii-translation . latin-iso8859-9) 338 (nonascii-translation . latin-iso8859-9)
338 (unibyte-syntax . "latin-5") 339 (unibyte-syntax . "latin-5")
339 (unibyte-display . iso-latin-5) 340 (unibyte-display . iso-latin-5)
340 (input-method . "turkish-postfix") 341 (input-method . "turkish-postfix")
359 '("European")) 360 '("European"))
360 361
361 (set-language-info-alist 362 (set-language-info-alist
362 "Welsh" `((coding-system utf-8 latin-8) ; the input method is Unicode-based 363 "Welsh" `((coding-system utf-8 latin-8) ; the input method is Unicode-based
363 (coding-priority utf-8 latin-8) 364 (coding-priority utf-8 latin-8)
365 (nonascii-translation . iso-8859-14)
364 (input-method . "welsh") 366 (input-method . "welsh")
365 (documentation . "Support for Welsh, using Unicode.")) 367 (documentation . "Support for Welsh, using Unicode."))
366 '("European")) 368 '("European"))
367 369
368 (set-language-info-alist 370 (set-language-info-alist
369 "Latin-7" `((coding-system latin-7) 371 "Latin-7" `((coding-system latin-7)
370 (coding-priority latin-7) 372 (coding-priority latin-7)
373 (nonascii-translation . iso-8859-13)
371 ;; Fixme: input-method 374 ;; Fixme: input-method
372 (features code-pages) 375 (features code-pages)
373 (documentation . "Support for Latin-7, e.g. Latvian, Lithuanian.")) 376 (documentation . "Support for Latin-7, e.g. Latvian, Lithuanian."))
374 '("European")) 377 '("European"))
375 378