1433 |
default-buffer-file-coding-system))) |
default-buffer-file-coding-system))) |
1434 |
(reset-language-environment) |
(reset-language-environment) |
1435 |
|
|
1436 |
|
;; The fetaures might set up coding systems. |
1437 |
|
(let ((required-features (get-language-info language-name 'features))) |
1438 |
|
(while required-features |
1439 |
|
(require (car required-features)) |
1440 |
|
(setq required-features (cdr required-features)))) |
1441 |
|
|
1442 |
(setq current-language-environment language-name) |
(setq current-language-environment language-name) |
1443 |
(set-language-environment-coding-systems language-name default-eol-type)) |
(set-language-environment-coding-systems language-name default-eol-type)) |
1444 |
(let ((input-method (get-language-info language-name 'input-method))) |
(let ((input-method (get-language-info language-name 'input-method))) |
1665 |
(defconst locale-language-names |
(defconst locale-language-names |
1666 |
(purecopy |
(purecopy |
1667 |
'( |
'( |
|
;; UTF-8 is not yet implemented. |
|
|
;; Put this first, so that e.g. "ko.UTF-8" does not match "ko" below. |
|
|
(".*[._]utf" . nil) |
|
|
|
|
1668 |
;; Locale names of the form LANGUAGE[_TERRITORY][.CODESET][@MODIFIER] |
;; Locale names of the form LANGUAGE[_TERRITORY][.CODESET][@MODIFIER] |
1669 |
;; as specified in the Single Unix Spec, Version 2. |
;; as specified in the Single Unix Spec, Version 2. |
1670 |
;; LANGUAGE is a language code taken from ISO 639:1988 (E/F) |
;; LANGUAGE is a language code taken from ISO 639:1988 (E/F) |
1684 |
; ay Aymara |
; ay Aymara |
1685 |
; az Azerbaijani |
; az Azerbaijani |
1686 |
; ba Bashkir |
; ba Bashkir |
1687 |
("be" . "Latin-5") ; Byelorussian |
("be" . "Belarussian") ; Belarussian [Byelorussian] |
1688 |
("bg" . "Latin-5") ; Bulgarian |
("bg" . "Bulgarian") ; Bulgarian |
1689 |
; bh Bihari |
; bh Bihari |
1690 |
; bi Bislama |
; bi Bislama |
1691 |
; bn Bengali, Bangla |
; bn Bengali, Bangla |
1732 |
; iu Inuktitut |
; iu Inuktitut |
1733 |
("ja" . "Japanese") |
("ja" . "Japanese") |
1734 |
; jw Javanese |
; jw Javanese |
1735 |
; ka Georgian |
("ka" . "Georgian") ; Georgian |
1736 |
; kk Kazakh |
; kk Kazakh |
1737 |
("kl" . "Latin-1") ; Greenlandic |
("kl" . "Latin-1") ; Greenlandic |
1738 |
; km Cambodian |
; km Cambodian |
1746 |
("lb" . "Latin-1") ; Luxemburgish |
("lb" . "Latin-1") ; Luxemburgish |
1747 |
; ln Lingala |
; ln Lingala |
1748 |
("lo" . "Lao") ; Laothian |
("lo" . "Lao") ; Laothian |
1749 |
("lt" . "Latin-4") ; Lithuanian |
("lt" . "Lithuanian") |
1750 |
("lv" . "Latin-4") ; Latvian, Lettish |
("lv" . "Latvian") ; Latvian, Lettish |
1751 |
; mg Malagasy |
; mg Malagasy |
1752 |
("mi" . "Latin-7") ; Maori |
("mi" . "Latin-7") ; Maori |
1753 |
("mk" . "Latin-5") ; Macedonian |
("mk" . "Latin-5") ; Macedonian |
1796 |
("sw" . "Latin-1") ; Swahili |
("sw" . "Latin-1") ; Swahili |
1797 |
; ta Tamil glibc uses utf-8 |
; ta Tamil glibc uses utf-8 |
1798 |
; te Telugu glibc uses utf-8 |
; te Telugu glibc uses utf-8 |
1799 |
; tg Tajik "Cyrillic-KOI8-T" |
("tg" . "Cyrillic-KOI8-T") ; Tajik |
1800 |
("th" . "Thai") |
("th" . "Thai") |
1801 |
; ti Tigrinya |
; ti Tigrinya |
1802 |
; tk Turkmen |
; tk Turkmen |
1808 |
; tt Tatar |
; tt Tatar |
1809 |
; tw Twi |
; tw Twi |
1810 |
; ug Uighur |
; ug Uighur |
1811 |
("uk" . "Latin-5") ; Ukrainian |
("uk" . "Ukrainian") ; Ukrainian |
1812 |
; ur Urdu glibc uses utf-8 |
; ur Urdu glibc uses utf-8 |
1813 |
("uz" . "Latin-1") ; Uzbek |
("uz" . "Latin-1") ; Uzbek |
1814 |
("vi" . "Vietnamese") ; glibc uses utf-8 |
("vi" . "Vietnamese") ; glibc uses utf-8 |
1815 |
; vo Volapuk |
; vo Volapuk |
1816 |
; wo Wolof |
; wo Wolof |
1817 |
; xh Xhosa |
; xh Xhosa |
1818 |
; yi Yiddish |
("yi" . "Windows-1255") ; Yiddish |
1819 |
; yo Yoruba |
; yo Yoruba |
1820 |
; za Zhuang |
; za Zhuang |
1821 |
|
|
1865 |
(".*8859[-_]?14\\>" . "Latin-8") |
(".*8859[-_]?14\\>" . "Latin-8") |
1866 |
(".*8859[-_]?15\\>" . "Latin-9") |
(".*8859[-_]?15\\>" . "Latin-9") |
1867 |
(".*@euro\\>" . "Latin-9") |
(".*@euro\\>" . "Latin-9") |
1868 |
)) |
(".*utf\\(-?8\\)\\>" . "UTF-8"))) |
1869 |
"List of pairs of locale regexps and charset language names. |
"List of pairs of locale regexps and charset language names. |
1870 |
The first element whose locale regexp matches the start of a downcased locale |
The first element whose locale regexp matches the start of a downcased locale |
1871 |
specifies the language name whose charsets corresponds to that locale. |
specifies the language name whose charsets corresponds to that locale. |
1878 |
("ja.*[._]jis7" . iso-2022-jp) |
("ja.*[._]jis7" . iso-2022-jp) |
1879 |
("ja.*[._]pck" . japanese-shift-jis) |
("ja.*[._]pck" . japanese-shift-jis) |
1880 |
("ja.*[._]sjis" . japanese-shift-jis) |
("ja.*[._]sjis" . japanese-shift-jis) |
1881 |
)) |
(".*[._]utf" . utf-8))) |
1882 |
"List of pairs of locale regexps and preferred coding systems. |
"List of pairs of locale regexps and preferred coding systems. |
1883 |
The first element whose locale regexp matches the start of a downcased locale |
The first element whose locale regexp matches the start of a downcased locale |
1884 |
specifies the coding system to prefer when using that locale.") |
specifies the coding system to prefer when using that locale.") |