Mercurial > emacs

comparison lisp/language/european.el @ 88806:7618cfcfaeea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
("German", "French", "Spanish"): Add latin-9 as alternative coding system. ("Slovenian", "Polish"): Add windows-1250 as alternative coding system. ("Dutch"): Add latin-9 as alternative coding system. Add input method. ("Turkish"): Add windows-1254 and latin-3 as alternative coding systems. ("Lithuanian", "Latvian"): Add windows-1257 as alternative coding system.
author Dave Love <fx@gnu.org>
date Thu, 27 Jun 2002 21:54:39 +0000
parents 93cfa81ccf00
children 7d361fc41696
comparison
equal deleted inserted replaced
88805:7956f7e0336b 88806:7618cfcfaeea
389 (define-coding-system-alias 'ibm437 'cp437) 389 (define-coding-system-alias 'ibm437 'cp437)
390 390
391 (set-language-info-alist 391 (set-language-info-alist
392 "German" '((tutorial . "TUTORIAL.de") 392 "German" '((tutorial . "TUTORIAL.de")
393 (charset iso-8859-1) 393 (charset iso-8859-1)
394 (coding-system iso-latin-1) 394 (coding-system iso-latin-1 iso-latin-9)
395 (coding-priority iso-latin-1) 395 (coding-priority iso-latin-1)
396 (nonascii-translation . iso-8859-1) 396 (nonascii-translation . iso-8859-1)
397 (input-method . "german-postfix") 397 (input-method . "german-postfix")
398 (unibyte-syntax . "latin-1") 398 (unibyte-syntax . "latin-1")
399 (unibyte-display . iso-latin-1) 399 (unibyte-display . iso-latin-1)
407 '("European")) 407 '("European"))
408 408
409 (set-language-info-alist 409 (set-language-info-alist
410 "French" '((tutorial . "TUTORIAL.fr") 410 "French" '((tutorial . "TUTORIAL.fr")
411 (charset iso-8859-1) 411 (charset iso-8859-1)
412 (coding-system iso-latin-1) 412 (coding-system iso-latin-1 iso-latin-9)
413 (coding-priority iso-latin-1) 413 (coding-priority iso-latin-1)
414 (nonascii-translation . iso-8859-1) 414 (nonascii-translation . iso-8859-1)
415 (unibyte-syntax . "latin-1") 415 (unibyte-syntax . "latin-1")
416 (unibyte-display . iso-latin-1) 416 (unibyte-display . iso-latin-1)
417 (input-method . "latin-1-prefix") 417 (input-method . "latin-1-prefix")
421 but it selects the French tutorial.")) 421 but it selects the French tutorial."))
422 '("European")) 422 '("European"))
423 423
424 (set-language-info-alist 424 (set-language-info-alist
425 "Slovenian" '((charset iso-8859-2) 425 "Slovenian" '((charset iso-8859-2)
426 (coding-system . (iso-8859-2)) 426 (coding-system . (iso-8859-2 windows-1250))
427 (coding-priority . (iso-8859-2)) 427 (coding-priority . (iso-8859-2))
428 (nonascii-translation . iso-8859-2) 428 (nonascii-translation . iso-8859-2)
429 (input-method . "latin-2-postfix") 429 (input-method . "latin-2-postfix")
430 (unibyte-syntax . "latin-2") 430 (unibyte-syntax . "latin-2")
431 (unibyte-display . iso-8859-2) 431 (unibyte-display . iso-8859-2)
435 '("European")) 435 '("European"))
436 436
437 (set-language-info-alist 437 (set-language-info-alist
438 "Spanish" '((tutorial . "TUTORIAL.es") 438 "Spanish" '((tutorial . "TUTORIAL.es")
439 (charset iso-8859-1) 439 (charset iso-8859-1)
440 (coding-system iso-latin-1) 440 (coding-system iso-latin-1 iso-latin-9)
441 (coding-priority iso-latin-1) 441 (coding-priority iso-latin-1)
442 (nonascii-translation . iso-8859-1) 442 (nonascii-translation . iso-8859-1)
443 (input-method . "spanish-postfix") 443 (input-method . "spanish-postfix")
444 (unibyte-syntax . "latin-1") 444 (unibyte-syntax . "latin-1")
445 (unibyte-display . iso-latin-1) 445 (unibyte-display . iso-latin-1)
451 '("European")) 451 '("European"))
452 452
453 (set-language-info-alist 453 (set-language-info-alist
454 "Dutch" '((tutorial . "TUTORIAL.nl") 454 "Dutch" '((tutorial . "TUTORIAL.nl")
455 (charset iso-8859-1) 455 (charset iso-8859-1)
456 (coding-system iso-latin-1) 456 (coding-system iso-latin-1 iso-latin-9)
457 (coding-priority iso-latin-1) 457 (coding-priority iso-latin-1)
458 (nonascii-translation . iso-8859-1) 458 (nonascii-translation . iso-8859-1)
459 (unibyte-syntax . "latin-1") 459 (unibyte-syntax . "latin-1")
460 (unibyte-display . iso-latin-1) 460 (unibyte-display . iso-latin-1)
461 (input-method . "dutch")
461 (sample-text . "Er is een aantal manieren waarop je dit kan doen") 462 (sample-text . "Er is een aantal manieren waarop je dit kan doen")
462 (documentation . "\ 463 (documentation . "\
463 This language environment is almost the same as Latin-1, 464 This language environment is almost the same as Latin-1,
464 but it selects the Dutch tutorial.")) 465 but it selects the Dutch tutorial and input method."))
465 '("European")) 466 '("European"))
466 467
467 ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used. But, 468 ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used. But,
468 ;; before the introduction of ISO-8859-9 in 1988, ISO-8859-3 (Latin-3) 469 ;; before the introduction of ISO-8859-9 in 1988, ISO-8859-3 (Latin-3)
469 ;; was used for Turkish. Those who use Latin-3 for Turkish should use 470 ;; was used for Turkish. Those who use Latin-3 for Turkish should use
470 ;; "Latin-3" language environment. 471 ;; "Latin-3" language environment.
471 472
472 (set-language-info-alist 473 (set-language-info-alist
473 "Turkish" '((charset iso-8859-9) 474 "Turkish" '((charset iso-8859-9)
474 (coding-system iso-latin-5) 475 (coding-system iso-latin-5 windows-1254 iso-latin-3)
475 (coding-priority iso-latin-5) 476 (coding-priority iso-latin-5)
476 (nonascii-translation . iso-8859-9) 477 (nonascii-translation . iso-8859-9)
477 (unibyte-syntax . "latin-5") 478 (unibyte-syntax . "latin-5")
478 (unibyte-display . iso-latin-5) 479 (unibyte-display . iso-latin-5)
479 (input-method . "turkish-postfix") 480 (input-method . "turkish-postfix")
484 ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl> 485 ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl>
485 ;; Keywords: multilingual, Polish 486 ;; Keywords: multilingual, Polish
486 487
487 (set-language-info-alist 488 (set-language-info-alist
488 "Polish" '((charset . (iso-8859-2)) 489 "Polish" '((charset . (iso-8859-2))
489 (coding-system . (iso-8859-2)) 490 (coding-system . (iso-8859-2 windows-1250))
490 (coding-priority . (iso-8859-2)) 491 (coding-priority . (iso-8859-2))
491 (nonascii-translation . iso-8859-2) 492 (nonascii-translation . iso-8859-2)
492 (input-method . "polish-slash") 493 (input-method . "polish-slash")
493 (unibyte-syntax . "latin-2") 494 (unibyte-syntax . "latin-2")
494 (unibyte-display . iso-8859-2) 495 (unibyte-display . iso-8859-2)
512 ;; Fixme: input-method 513 ;; Fixme: input-method
513 (documentation . "Support for Latin-7, e.g. Latvian, Lithuanian.")) 514 (documentation . "Support for Latin-7, e.g. Latvian, Lithuanian."))
514 '("European")) 515 '("European"))
515 516
516 (set-language-info-alist 517 (set-language-info-alist
517 "Lithuanian" `((coding-system latin-7) 518 "Lithuanian" `((coding-system latin-7 windows-1257)
518 (coding-priority latin-7) 519 (coding-priority latin-7)
519 (nonascii-translation . iso-8859-13) 520 (nonascii-translation . iso-8859-13)
520 (input-method . "lithuanian-keyboard") 521 (input-method . "lithuanian-keyboard")
521 (documentation . "Support for Lithuanian.")) 522 (documentation . "Support for Lithuanian."))
522 '("European")) 523 '("European"))
523 524
524 (set-language-info-alist 525 (set-language-info-alist
525 "Latvian" `((coding-system latin-7) 526 "Latvian" `((coding-system latin-7 windows-1257)
526 (coding-priority latin-7) 527 (coding-priority latin-7)
527 (nonascii-translation . iso-8859-13) 528 (nonascii-translation . iso-8859-13)
528 (input-method . "latvian-keyboard") 529 (input-method . "latvian-keyboard")
529 (documentation . "Support for Latvian.")) 530 (documentation . "Support for Latvian."))
530 '("European")) 531 '("European"))