/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.178 by monnier, Sun Nov 18 03:55:01 2001 UTC revision 1.179 by fx, Sat Dec 15 17:42:33 2001 UTC
# Line 1433  specifies the character set for the majo Line 1433  specifies the character set for the majo
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)))
# Line 1659  of buffer-file-coding-system set by this Line 1665  of buffer-file-coding-system set by this
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)
# Line 1682  of buffer-file-coding-system set by this Line 1684  of buffer-file-coding-system set by this
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
# Line 1730  of buffer-file-coding-system set by this Line 1732  of buffer-file-coding-system set by this
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
# Line 1744  of buffer-file-coding-system set by this Line 1746  of buffer-file-coding-system set by this
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
# Line 1794  of buffer-file-coding-system set by this Line 1796  of buffer-file-coding-system set by this
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
# Line 1806  of buffer-file-coding-system set by this Line 1808  of buffer-file-coding-system set by this
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    
# Line 1863  If the language name is nil, there is no Line 1865  If the language name is nil, there is no
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.
# Line 1876  the language name that would otherwise b Line 1878  the language name that would otherwise b
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.")

Legend:
Removed from v.1.178  
changed lines
  Added in v.1.179

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26