LCOV - code coverage report
Current view: top level - lisp/language - european.el (source / functions) Hit Total Coverage
Test: tramp-tests.info Lines: 0 7 0.0 %
Date: 2017-08-27 09:44:50 Functions: 0 2 0.0 %

          Line data    Source code
       1             : ;;; european.el --- support for European languages -*- coding: utf-8; -*-
       2             : 
       3             : ;; Copyright (C) 1997-1998, 2000-2017 Free Software Foundation, Inc.
       4             : ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
       5             : ;;   2005, 2006, 2007, 2008, 2009, 2010, 2011
       6             : ;;   National Institute of Advanced Industrial Science and Technology (AIST)
       7             : ;;   Registration Number H14PRO021
       8             : ;; Copyright (C) 2003
       9             : ;;   National Institute of Advanced Industrial Science and Technology (AIST)
      10             : ;;   Registration Number H13PRO009
      11             : 
      12             : ;; Keywords: multilingual, European
      13             : 
      14             : ;; This file is part of GNU Emacs.
      15             : 
      16             : ;; GNU Emacs is free software: you can redistribute it and/or modify
      17             : ;; it under the terms of the GNU General Public License as published by
      18             : ;; the Free Software Foundation, either version 3 of the License, or
      19             : ;; (at your option) any later version.
      20             : 
      21             : ;; GNU Emacs is distributed in the hope that it will be useful,
      22             : ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
      23             : ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
      24             : ;; GNU General Public License for more details.
      25             : 
      26             : ;; You should have received a copy of the GNU General Public License
      27             : ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
      28             : 
      29             : ;;; Commentary:
      30             : 
      31             : ;; For European scripts, all the ISO Latin character sets are
      32             : ;; supported, along with various others.
      33             : 
      34             : ;;; Code:
      35             : 
      36             : ;; Latin-1 (ISO-8859-1)
      37             : 
      38             : (set-language-info-alist
      39             :  "Latin-1" '((charset iso-8859-1)
      40             :              (coding-system iso-latin-1 iso-latin-9 windows-1252)
      41             :              (coding-priority iso-latin-1)
      42             :              (nonascii-translation . iso-8859-1)
      43             :              (unibyte-display . iso-latin-1)
      44             :              (input-method . "latin-1-prefix")
      45             :              (sample-text
      46             :               . "Hello, Hej, Tere, Hei, Bonjour, Grüß Gott, Ciao, ¡Hola!")
      47             :              (documentation . "\
      48             : This language environment is a generic one for the Latin-1 (ISO-8859-1)
      49             : character set which supports the following European languages:
      50             :  Albanian, Basque, Breton, Catalan, Danish, Dutch, English, Faeroese,
      51             :  Finnish, French (with restrictions -- see Latin-9), Frisian, Galician,
      52             :  German, Greenlandic, Icelandic, Irish Gaelic (new orthography),
      53             :  Italian, Latin, Luxemburgish, Norwegian, Portuguese, Rhaeto-Romanic,
      54             :  Scottish Gaelic, Spanish, and Swedish.
      55             : We also have specific language environments for the following languages:
      56             :   For Dutch, \"Dutch\".
      57             :   For German, \"German\".
      58             :   For French, \"French\".
      59             :   For Italian, \"Italian\".
      60             :   For Slovenian, \"Slovenian\".
      61             :   For Spanish, \"Spanish\".
      62             : 
      63             : Latin-1 also covers several written languages outside Europe, including
      64             : Indonesian/Malay, Tagalog (Philippines), Swahili and Afrikaans."))
      65             :  '("European"))
      66             : 
      67             : 
      68             : ;; Latin-2 (ISO-8859-2)
      69             : 
      70             : (define-coding-system 'iso-latin-2
      71             :    "ISO 2022 based 8-bit encoding for Latin-2 (MIME:ISO-8859-2)."
      72             :   :coding-type 'charset
      73             :   :mnemonic ?2
      74             :   :charset-list '(iso-8859-2)
      75             :   :mime-charset 'iso-8859-2)
      76             : 
      77             : (define-coding-system-alias 'iso-8859-2 'iso-latin-2)
      78             : (define-coding-system-alias 'latin-2 'iso-latin-2)
      79             : 
      80             : (set-language-info-alist
      81             :  "Latin-2" '((charset iso-8859-2)
      82             :              (coding-system iso-latin-2 windows-1250)
      83             :              (coding-priority iso-latin-2)
      84             :              (nonascii-translation . iso-8859-2)
      85             :              (unibyte-display . iso-latin-2)
      86             :              (input-method . "latin-2-prefix")
      87             :              (documentation . "\
      88             : This language environment is a generic one for the Latin-2 (ISO-8859-2)
      89             : character set which supports the following languages:
      90             :  Albanian, Czech, English, German, Hungarian, Polish, Romanian,
      91             :  Serbo-Croatian or Croatian, Slovak, Slovene, Sorbian (upper and lower),
      92             :  and Swedish.
      93             : We also have specific language environments for the following languages:
      94             :   For Czech, \"Czech\".
      95             :   For Croatian, \"Croatian\".
      96             :   For Polish, \"Polish\".
      97             :   For Romanian, \"Romanian\".
      98             :   For Slovak, \"Slovak\"."))
      99             :  '("European"))
     100             : 
     101             : 
     102             : ;; Latin-3 (ISO-8859-3)
     103             : 
     104             : (define-coding-system 'iso-latin-3
     105             :   "ISO 2022 based 8-bit encoding for Latin-3 (MIME:ISO-8859-3)."
     106             :   :coding-type 'charset
     107             :   :mnemonic ?3
     108             :   :charset-list '(iso-8859-3)
     109             :   :mime-charset 'iso-8859-3)
     110             : 
     111             : (define-coding-system-alias 'iso-8859-3 'iso-latin-3)
     112             : (define-coding-system-alias 'latin-3 'iso-latin-3)
     113             : 
     114             : (set-language-info-alist
     115             :  "Latin-3" '((charset iso-8859-3)
     116             :              (coding-system iso-latin-3)
     117             :              (coding-priority iso-latin-3)
     118             :              (nonascii-translation . iso-8859-3)
     119             :              (unibyte-display . iso-latin-3)
     120             :              (input-method . "latin-3-prefix")
     121             :              (documentation . "\
     122             : These languages are supported with the Latin-3 (ISO-8859-3) character set:
     123             :  Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician,
     124             :  German, Italian, Maltese, Spanish, and Turkish."))
     125             :  '("European"))
     126             : 
     127             : 
     128             : ;; Latin-4 (ISO-8859-4)
     129             : 
     130             : (define-coding-system 'iso-latin-4
     131             :   "ISO 2022 based 8-bit encoding for Latin-4 (MIME:ISO-8859-4)."
     132             :   :coding-type 'charset
     133             :   :mnemonic ?4
     134             :   :charset-list '(iso-8859-4)
     135             :   :mime-charset 'iso-8859-4)
     136             : 
     137             : (define-coding-system-alias 'iso-8859-4 'iso-latin-4)
     138             : (define-coding-system-alias 'latin-4 'iso-latin-4)
     139             : 
     140             : (set-language-info-alist
     141             :  "Latin-4" '((charset iso-8859-4)
     142             :              (coding-system iso-8859-4)
     143             :              (coding-priority iso-8859-4)
     144             :              (nonascii-translation . iso-8859-4)
     145             :              (unibyte-display . iso-8859-4)
     146             :              (input-method . "latin-4-postfix")
     147             :              (documentation . "\
     148             : These languages are supported with the Latin-4 (ISO-8859-4) character set:
     149             :  Danish, English, Estonian, Finnish, German, Greenlandic, Latvian,
     150             :  Lithuanian, Norwegian, and Sami."))
     151             :  '("European"))
     152             : 
     153             : 
     154             : ;; Latin-5 (ISO-8859-9)
     155             : 
     156             : (define-coding-system 'iso-latin-5
     157             :   "ISO 2022 based 8-bit encoding for Latin-5 (MIME:ISO-8859-9)."
     158             :   :coding-type 'charset
     159             :   :mnemonic ?9
     160             :   :charset-list '(iso-8859-9)
     161             :   :mime-charset 'iso-8859-9)
     162             : 
     163             : (define-coding-system-alias 'iso-8859-9 'iso-latin-5)
     164             : (define-coding-system-alias 'latin-5 'iso-latin-5)
     165             : 
     166             : (set-language-info-alist
     167             :  "Latin-5" '((charset iso-8859-9)
     168             :              (coding-system iso-latin-5)
     169             :              (coding-priority iso-latin-5)
     170             :              (nonascii-translation . iso-8859-9)
     171             :              (unibyte-display . iso-latin-5)
     172             :              (input-method . "latin-5-postfix")
     173             :              (documentation . "Support for Latin-5.\
     174             : See also the Turkish environment."))
     175             :  '("European"))
     176             : 
     177             : 
     178             : ;; Latin-6 (ISO-8859-10)
     179             : 
     180             : (define-coding-system 'iso-latin-6
     181             :   "ISO 2022 based 8-bit encoding for Latin-6 (MIME:ISO-8859-10)."
     182             :   :coding-type 'charset
     183             :   :mnemonic ?9
     184             :   :charset-list '(iso-8859-10)
     185             :   :mime-charset 'iso-8859-10)
     186             : 
     187             : (define-coding-system-alias 'iso-8859-10 'iso-latin-6)
     188             : (define-coding-system-alias 'latin-6 'iso-latin-6)
     189             : 
     190             : (set-language-info-alist
     191             :  "Latin-6" '((charset iso-8859-10)
     192             :              (coding-system iso-latin-6)
     193             :              (coding-priority iso-latin-6)
     194             :              (nonascii-translation . iso-8859-10)
     195             :              (unibyte-display . iso-latin-6)
     196             :              ;; Fixme: input method.
     197             :              (documentation . "Support for generic Latin-6 (Northern European)."))
     198             :  '("European"))
     199             : 
     200             : 
     201             : ;; Latin-7 (ISO-8859-13)
     202             : 
     203             : (define-coding-system 'iso-latin-7
     204             :   "ISO 2022 based 8-bit encoding for Latin-7 (MIME:ISO-8859-13)."
     205             :   :coding-type 'charset
     206             :   :mnemonic ?9
     207             :   :charset-list '(iso-8859-13)
     208             :   :mime-charset 'iso-8859-13)
     209             : 
     210             : (define-coding-system-alias 'iso-8859-13 'iso-latin-7)
     211             : (define-coding-system-alias 'latin-7 'iso-latin-7)
     212             : 
     213             : (set-language-info-alist
     214             :  "Latin-7" '((charset iso-8859-13)
     215             :              (coding-system iso-latin-7)
     216             :              (coding-priority iso-latin-7)
     217             :              (nonascii-translation . iso-8859-13)
     218             :              (unibyte-display . iso-latin-7)
     219             :              ;; Fixme: input method.
     220             :              (documentation . "Support for generic Latin-7 (Baltic Rim)."))
     221             :  '("European"))
     222             : 
     223             : ;; Latin-8 (ISO-8859-14)
     224             : 
     225             : (define-coding-system 'iso-latin-8
     226             :   "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)."
     227             :   :coding-type 'charset
     228             :   ;; `W' for `Welsh', since `C' for `Celtic' is taken.
     229             :   :mnemonic ?W
     230             :   :charset-list '(iso-8859-14)
     231             :   :mime-charset 'iso-8859-14)
     232             : 
     233             : (define-coding-system-alias 'iso-8859-14 'iso-latin-8)
     234             : (define-coding-system-alias 'latin-8 'iso-latin-8)
     235             : 
     236             : (set-language-info-alist
     237             :  "Latin-8" '((charset iso-8859-14)
     238             :              (coding-system iso-latin-8)
     239             :              (coding-priority iso-latin-8)
     240             :              (nonascii-translation . iso-8859-14)
     241             :              (unibyte-display . iso-latin-8)
     242             :              (input-method . "latin-8-prefix")
     243             :              ;; Fixme: Welsh/Ga{e}lic greetings
     244             :              (sample-text . "ḃ ŵ Ŷ")
     245             :              (documentation . "\
     246             : This language environment is a generic one for the Latin-8 (ISO-8859-14)
     247             : character set which supports the Celtic languages, including those not
     248             : covered by other ISO-8859 character sets:
     249             :  Welsh, Manx Gaelic and Irish Gaelic (old orthography)."))
     250             :  '("European"))
     251             : 
     252             : ;; Latin-9 (ISO-8859-15)
     253             : 
     254             : (define-coding-system 'iso-latin-9
     255             :   "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)."
     256             :   :coding-type 'charset
     257             :   ;; `0' for `Latin-0'
     258             :   :mnemonic ?0
     259             :   :charset-list '(iso-8859-15)
     260             :   :mime-charset 'iso-8859-15)
     261             : 
     262             : (define-coding-system-alias 'iso-8859-15 'iso-latin-9)
     263             : (define-coding-system-alias 'latin-9 'iso-latin-9)
     264             : (define-coding-system-alias 'latin-0 'iso-latin-9)
     265             : 
     266             : (set-language-info-alist
     267             :  "Latin-9" '((charset iso-8859-15)
     268             :              (coding-system iso-latin-9)
     269             :              (coding-priority iso-latin-9)
     270             :              (nonascii-translation . iso-8859-15)
     271             :              (unibyte-display . iso-latin-9)
     272             :              (input-method . "latin-9-prefix")
     273             :              (sample-text
     274             :               . "AVE. ŠšŽžŒœŸ €")
     275             :              (documentation . "\
     276             : This language environment is a generic one for the Latin-9 (ISO-8859-15)
     277             : character set which supports the same languages as Latin-1 with the
     278             : addition of the Euro sign and some additional French and Finnish letters.
     279             : Latin-9 is sometimes nicknamed `Latin-0'."))
     280             :  '("European"))
     281             : 
     282             : (set-language-info-alist
     283             :  "Esperanto" '((tutorial . "TUTORIAL.eo")
     284             :                (charset iso-8859-3)
     285             :                (coding-system iso-latin-3)
     286             :                (coding-priority iso-latin-3)
     287             :                (nonascii-translation . latin-iso8859-3)
     288             :                (unibyte-syntax . "latin-3")
     289             :                (unibyte-display . iso-latin-3)
     290             :                (input-method . "latin-3-prefix")
     291             :                (documentation . "Support for Esperanto with ISO-8859-3 character set."))
     292             :  '("European"))
     293             : 
     294             : 
     295             : (define-coding-system 'windows-1250
     296             :   "windows-1250 (Central European) encoding (MIME: WINDOWS-1250)"
     297             :   :coding-type 'charset
     298             :   :mnemonic ?*
     299             :   :charset-list '(windows-1250)
     300             :   :mime-charset 'windows-1250)
     301             : (define-coding-system-alias 'cp1250 'windows-1250)
     302             : 
     303             : (define-coding-system 'windows-1252
     304             :   "windows-1252 (Western European) encoding (MIME: WINDOWS-1252)"
     305             :   :coding-type 'charset
     306             :   :mnemonic ?*
     307             :   :charset-list '(windows-1252)
     308             :   :mime-charset 'windows-1252)
     309             : (define-coding-system-alias 'cp1252 'windows-1252)
     310             : 
     311             : (define-coding-system 'windows-1254
     312             :   "windows-1254 (Turkish) encoding (MIME: WINDOWS-1254)"
     313             :   :coding-type 'charset
     314             :   :mnemonic ?*
     315             :   :charset-list '(windows-1254)
     316             :   :mime-charset 'windows-1254)
     317             : (define-coding-system-alias 'cp1254 'windows-1254)
     318             : 
     319             : (define-coding-system 'windows-1257
     320             :   "windows-1257 (Baltic) encoding (MIME: WINDOWS-1257)"
     321             :   :coding-type 'charset
     322             :   :mnemonic ?*
     323             :   :charset-list '(windows-1257)
     324             :   :mime-charset 'windows-1257)
     325             : (define-coding-system-alias 'cp1257 'windows-1257)
     326             : 
     327             : (define-coding-system 'cp775
     328             :   "DOS codepage 775 (PC Baltic, MS-DOS Baltic Rim)"
     329             :   :coding-type 'charset
     330             :   :mnemonic ?D
     331             :   :charset-list '(cp775)
     332             :   :mime-charset 'cp775)
     333             : (define-coding-system-alias 'ibm775 'cp775)
     334             : 
     335             : (define-coding-system 'cp850
     336             :   "DOS codepage 850 (Western European)"
     337             :   :coding-type 'charset
     338             :   :mnemonic ?D
     339             :   :charset-list '(cp850)
     340             :   :mime-charset 'cp850)
     341             : (define-coding-system-alias 'ibm850 'cp850)
     342             : 
     343             : (define-coding-system 'cp852
     344             :   "DOS codepage 852 (Slavic)"
     345             :   :coding-type 'charset
     346             :   :mnemonic ?D
     347             :   :charset-list '(cp852)
     348             :   :mime-charset 'cp852)
     349             : (define-coding-system-alias 'ibm852 'cp852)
     350             : 
     351             : (define-coding-system 'cp857
     352             :   "DOS codepage 857 (Turkish)"
     353             :   :coding-type 'charset
     354             :   :mnemonic ?D
     355             :   :charset-list '(cp857)
     356             :   :mime-charset 'cp857)
     357             : (define-coding-system-alias 'ibm857 'cp857)
     358             : 
     359             : (define-coding-system 'cp858
     360             :   "Codepage 858 (Multilingual Latin I + Euro)"
     361             :   :coding-type 'charset
     362             :   :mnemonic ?D
     363             :   :charset-list '(cp858)
     364             :   :mime-charset 'cp858)
     365             : 
     366             : (define-coding-system 'cp860
     367             :   "DOS codepage 860 (Portuguese)"
     368             :   :coding-type 'charset
     369             :   :mnemonic ?D
     370             :   :charset-list '(cp860)
     371             :   :mime-charset 'cp860)
     372             : (define-coding-system-alias 'ibm860 'cp860)
     373             : 
     374             : (define-coding-system 'cp861
     375             :   "DOS codepage 861 (Icelandic)"
     376             :   :coding-type 'charset
     377             :   :mnemonic ?D
     378             :   :charset-list '(cp861)
     379             :   :mime-charset 'cp861)
     380             : (define-coding-system-alias 'ibm861 'cp861)
     381             : 
     382             : (define-coding-system 'cp863
     383             :   "DOS codepage 863 (French Canadian)"
     384             :   :coding-type 'charset
     385             :   :mnemonic ?D
     386             :   :charset-list '(cp863)
     387             :   :mime-charset 'cp863)
     388             : (define-coding-system-alias 'ibm863 'cp863)
     389             : 
     390             : (define-coding-system 'cp865
     391             :   "DOS codepage 865 (Norwegian/Danish)"
     392             :   :coding-type 'charset
     393             :   :mnemonic ?D
     394             :   :charset-list '(cp865)
     395             :   :mime-charset 'cp865)
     396             : (define-coding-system-alias 'ibm865 'cp865)
     397             : 
     398             : (define-coding-system 'cp437
     399             :   "DOS codepage 437"
     400             :   :coding-type 'charset
     401             :   :mnemonic ?D
     402             :   :charset-list '(cp437)
     403             :   :mime-charset 'cp437)
     404             : (define-coding-system-alias 'ibm437 'cp437)
     405             : 
     406             : (set-language-info-alist
     407             :  "Dutch" '((tutorial . "TUTORIAL.nl")
     408             :            (charset iso-8859-1)
     409             :            (coding-system iso-latin-1 iso-latin-9)
     410             :            (coding-priority iso-latin-1)
     411             :            (nonascii-translation . iso-8859-1)
     412             :            (unibyte-display . iso-latin-1)
     413             :            (input-method . "dutch")
     414             :            (sample-text . "Er is een aantal manieren waarop je dit kan doen")
     415             :            (documentation . "\
     416             : This language environment is almost the same as Latin-1,
     417             : but it selects the Dutch tutorial and input method."))
     418             :  '("European"))
     419             : 
     420             : (set-language-info-alist
     421             :  "German" '((tutorial . "TUTORIAL.de")
     422             :             (charset iso-8859-1)
     423             :             (coding-system iso-latin-1 iso-latin-9)
     424             :             (coding-priority iso-latin-1)
     425             :             (nonascii-translation . iso-8859-1)
     426             :             (input-method . "german-postfix")
     427             :             (unibyte-display . iso-latin-1)
     428             :             (sample-text . "\
     429             : German (Deutsch Nord)   Guten Tag
     430             : German (Deutsch Süd)   Grüß Gott")
     431             :             (documentation . "\
     432             : This language environment is almost the same as Latin-1,
     433             : but sets the default input method to \"german-postfix\".
     434             : Additionally, it selects the German tutorial."))
     435             :  '("European"))
     436             : 
     437             : (set-language-info-alist
     438             :  "French" '((tutorial . "TUTORIAL.fr")
     439             :             (charset iso-8859-1)
     440             :             (coding-system iso-latin-1 iso-latin-9)
     441             :             (coding-priority iso-latin-1)
     442             :             (nonascii-translation . iso-8859-1)
     443             :             (unibyte-display . iso-latin-1)
     444             :             (input-method . "latin-1-prefix")
     445             :             (sample-text . "French (Français)     Bonjour, Salut")
     446             :             (documentation . "\
     447             : This language environment is almost the same as Latin-1,
     448             : but it selects the French tutorial and input method."))
     449             :  '("European"))
     450             : 
     451             : (set-language-info-alist
     452             :  "Italian" '((tutorial . "TUTORIAL.it")
     453             :             (charset iso-8859-1)
     454             :             (coding-system iso-latin-1 iso-latin-9)
     455             :             (coding-priority iso-latin-1)
     456             :             (nonascii-translation . iso-8859-1)
     457             :             (unibyte-display . iso-latin-1)
     458             :             (input-method . "italian-postfix")
     459             :             (sample-text . "Salve, ciao!")
     460             :             (documentation . "\
     461             : This language environment is almost the same as Latin-1,
     462             : but sets the default input method to \"italian-postfix\".
     463             : Additionally, it selects the Italian tutorial."))
     464             :  '("European"))
     465             : 
     466             : (set-language-info-alist
     467             :  "Slovenian" '((charset iso-8859-2)
     468             :               (coding-system . (iso-8859-2 windows-1250))
     469             :               (coding-priority . (iso-8859-2))
     470             :               (nonascii-translation . iso-8859-2)
     471             :               (input-method . "slovenian")
     472             :               (unibyte-display . iso-8859-2)
     473             :               (tutorial . "TUTORIAL.sl")
     474             :               (sample-text . "Želimo vam uspešen dan!")
     475             :               (documentation . "\
     476             : This language environment is almost the same as Latin-2,
     477             : but it selects the Slovenian tutorial and input method."))
     478             :  '("European"))
     479             : 
     480             : (set-language-info-alist
     481             :  "Spanish" '((tutorial . "TUTORIAL.es")
     482             :             (charset iso-8859-1)
     483             :             (coding-system iso-latin-1 iso-latin-9)
     484             :             (coding-priority iso-latin-1)
     485             :             (input-method . "spanish-postfix")
     486             :             (nonascii-translation . iso-8859-1)
     487             :             (unibyte-display . iso-latin-1)
     488             :             (sample-text . "Spanish (Español)     ¡Hola!")
     489             :             (documentation . "\
     490             : This language environment is almost the same as Latin-1,
     491             : but it sets the default input method to \"spanish-postfix\",
     492             : and it selects the Spanish tutorial."))
     493             :  '("European"))
     494             : 
     495             : ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used.  But,
     496             : ;; before the introduction of ISO-8859-9 in 1988, ISO-8859-3 (Latin-3)
     497             : ;; was used for Turkish.  Those who use Latin-3 for Turkish should use
     498             : ;; "Latin-3" language environment.
     499             : 
     500             : (set-language-info-alist
     501             :  "Turkish" '((charset iso-8859-9)
     502             :              (coding-system iso-latin-5 windows-1254 iso-latin-3)
     503             :              (coding-priority iso-latin-5)
     504             :              (nonascii-translation . iso-8859-9)
     505             :              (unibyte-display . iso-latin-5)
     506             :              (input-method . "turkish-postfix")
     507             :              (sample-text . "Turkish (Türkçe)    Merhaba")
     508             :              (setup-function . turkish-case-conversion-enable)
     509             :              (exit-function . turkish-case-conversion-disable)
     510             :              (documentation . "Support for Turkish.
     511             : Differs from the Latin-5 environment in using the `turkish-postfix' input
     512             : method and applying Turkish case rules for the characters i, I, ı, İ.")))
     513             : 
     514             : (defun turkish-case-conversion-enable ()
     515             :   "Set up Turkish case conversion of `i' and `I' into `İ' and `ı'."
     516           0 :   (let ((table (standard-case-table)))
     517           0 :     (set-case-syntax-pair ?İ ?i table)
     518           0 :     (set-case-syntax-pair ?I ?ı table)))
     519             : 
     520             : (defun turkish-case-conversion-disable ()
     521             :   "Set up normal (non-Turkish) case conversion of `i' into `I'."
     522           0 :   (let ((table (standard-case-table)))
     523           0 :     (set-case-syntax-pair ?I ?i table)
     524           0 :     (set-case-syntax ?İ "w" table)
     525           0 :     (set-case-syntax ?ı "w" table)))
     526             : 
     527             : ;; Polish ISO 8859-2 environment.
     528             : ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl>
     529             : ;; Keywords: multilingual, Polish
     530             : 
     531             : (set-language-info-alist
     532             :  "Polish" '((charset iso-8859-2)
     533             :            (coding-system iso-8859-2 windows-1250)
     534             :            (coding-priority iso-8859-2)
     535             :            (input-method . "polish-slash")
     536             :            (nonascii-translation . iso-8859-2)
     537             :            (unibyte-display . iso-8859-2)
     538             :            (tutorial . "TUTORIAL.pl")
     539             :            (sample-text . "Pójdź, kiń-że tę chmurność w głąb flaszy")
     540             :            (documentation . t))
     541             :  '("European"))
     542             : 
     543             : (set-language-info-alist
     544             :  "Welsh" `((coding-system utf-8 latin-8) ; the input method is Unicode-based
     545             :            (coding-priority utf-8 latin-8)
     546             :            (nonascii-translation . iso-8859-14)
     547             :            (input-method . "welsh")
     548             :            (documentation . "Support for Welsh, using Unicode."))
     549             :  '("European"))
     550             : 
     551             : (set-language-info-alist
     552             :  "Latin-6" `((coding-system latin-6)
     553             :              (coding-priority latin-6)
     554             :              (nonascii-translation . ,(get 'decode-iso-latin-6 'translation-table))
     555             :              (input-method . "latin-prefix")
     556             :              (features code-pages)
     557             :              (documentation . "Support for Latin-6."))
     558             :  '("European"))
     559             : 
     560             : (set-language-info-alist
     561             :  "Latin-7" `((coding-system latin-7)
     562             :              (coding-priority latin-7)
     563             :              (nonascii-translation . iso-8859-13)
     564             :              (input-method . "latin-prefix")
     565             :              (documentation . "Support for Latin-7, e.g. Latvian, Lithuanian."))
     566             :  '("European"))
     567             : 
     568             : (set-language-info-alist
     569             :  "Lithuanian" `((coding-system latin-7 windows-1257)
     570             :                 (coding-priority latin-7)
     571             :                 (nonascii-translation . iso-8859-13)
     572             :                 (input-method . "lithuanian-keyboard")
     573             :                 (documentation . "Support for Lithuanian."))
     574             :  '("European"))
     575             : 
     576             : (set-language-info-alist
     577             :  "Latvian" `((coding-system latin-7 windows-1257)
     578             :              (coding-priority latin-7)
     579             :              (nonascii-translation . iso-8859-13)
     580             :              (input-method . "latvian-keyboard")
     581             :              (documentation . "Support for Latvian."))
     582             :  '("European"))
     583             : 
     584             : (set-language-info-alist
     585             :  "Swedish" '((tutorial . "TUTORIAL.sv")
     586             :             (charset iso-8859-1)
     587             :             (coding-system iso-latin-1)
     588             :             (coding-priority iso-latin-1)
     589             :             (nonascii-translation . iso-8859-1)
     590             :             (unibyte-display . iso-latin-1)
     591             :             (sample-text . "Goddag Hej")
     592             :             (documentation . "Support for Swedish"))
     593             :  '("European"))
     594             : 
     595             : (set-language-info-alist
     596             :  "Croatian" '((charset iso-8859-2)
     597             :               (coding-system iso-8859-2)
     598             :               (coding-priority iso-8859-2)
     599             :               (input-method . "croatian")
     600             :               (nonascii-translation . iso-8859-2)
     601             :               (unibyte-display . iso-8859-2)
     602             :               (documentation . "Support for Croatian with Latin-2 encoding."))
     603             :  '("European"))
     604             : 
     605             : (set-language-info-alist
     606             :  "Brazilian Portuguese" '((tutorial . "TUTORIAL.pt_BR")
     607             :             (charset iso-8859-1)
     608             :             (coding-system iso-latin-1 iso-latin-9)
     609             :             (coding-priority iso-latin-1)
     610             :             (nonascii-translation . iso-8859-1)
     611             :             (unibyte-display . iso-8859-1)
     612             :             (input-method . "latin-1-prefix")
     613             :             (sample-text . "Oi")
     614             :             (documentation . "Support for Brazilian Portuguese."))
     615             :  '("European"))
     616             : 
     617             : (set-language-info-alist
     618             :  "Catalan" '((charset iso-8859-1)
     619             :              (coding-system iso-8859-1 iso-8859-15)
     620             :              (coding-priority iso-8859-1)
     621             :              (input-method . "catalan-prefix")
     622             :              (nonascii-translation . iso-8859-1)
     623             :              (unibyte-display . iso-8859-1)
     624             :              (setup-function
     625             :               . (lambda ()
     626             :                   (modify-syntax-entry ?· "w" (standard-syntax-table))))
     627             :              (exit-function
     628             :               . (lambda ()
     629             :                   (modify-syntax-entry ?· "_" (standard-syntax-table))))
     630             :              (sample-text . "\
     631             : Catalan (Català)  Avui demà i ahir s'esfullarà una rosa.")
     632             :              (documentation . "\
     633             : This language environment uses the ISO-8859-1 character set,
     634             : sets the default input method to \"catalan-prefix\", and sets
     635             : the syntax of the middle dot character `·' to word."))
     636             :   '("European"))
     637             : 
     638             : 
     639             : 
     640             : (define-coding-system 'mac-roman
     641             :   "Mac Roman Encoding (MIME:MACINTOSH)."
     642             :   :coding-type 'charset
     643             :   :mnemonic ?M
     644             :   :charset-list '(mac-roman)
     645             :   :mime-charset 'macintosh)
     646             : (define-coding-system-alias 'macintosh 'mac-roman)
     647             : 
     648             : (define-coding-system 'next
     649             :   "NeXTstep encoding"
     650             :   :coding-type 'charset
     651             :   :mnemonic ?*
     652             :   :charset-list '(next)
     653             :   :mime-charset 'next)
     654             : 
     655             : (define-coding-system 'hp-roman8
     656             :   "Hewlet-Packard roman-8 encoding (MIME:ROMAN-8)"
     657             :   :coding-type 'charset
     658             :   :mnemonic ?*
     659             :   :charset-list '(hp-roman8)
     660             :   :mime-charset 'hp-roman8)
     661             : (define-coding-system-alias 'roman8 'hp-roman8)
     662             : 
     663             : (define-coding-system 'adobe-standard-encoding
     664             :   "Adobe `standard' encoding for PostScript"
     665             :   :coding-type 'charset
     666             :   :mnemonic ?*
     667             :   :charset-list '(adobe-standard-encoding)
     668             :   :mime-charset 'adobe-standard-encoding)
     669             : 
     670             : (provide 'european)
     671             : 
     672             : ;;; european.el ends here

Generated by: LCOV version 1.12