[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el

[Dave Love]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.178 
emacs/lisp/international/mule-cmds.el:1.179
*** emacs/lisp/international/mule-cmds.el:1.178 Sat Nov 17 22:55:01 2001
--- emacs/lisp/international/mule-cmds.el       Sat Dec 15 12:42:33 2001
***************
*** 1433,1438 ****
--- 1433,1444 ----
                           default-buffer-file-coding-system)))
      (reset-language-environment)
  
+     ;; The fetaures might set up coding systems.
+     (let ((required-features (get-language-info language-name 'features)))
+       (while required-features
+       (require (car required-features))
+       (setq required-features (cdr required-features))))
+ 
      (setq current-language-environment language-name)
      (set-language-environment-coding-systems language-name default-eol-type))
    (let ((input-method (get-language-info language-name 'input-method)))
***************
*** 1659,1668 ****
  (defconst locale-language-names
    (purecopy
     '(
-      ;; UTF-8 is not yet implemented.
-      ;; Put this first, so that e.g. "ko.UTF-8" does not match "ko" below.
-      (".*[._]utf" . nil)
- 
      ;; Locale names of the form address@hidden
      ;; as specified in the Single Unix Spec, Version 2.
      ;; LANGUAGE is a language code taken from ISO 639:1988 (E/F)
--- 1665,1670 ----
***************
*** 1682,1689 ****
      ; ay Aymara
      ; az Azerbaijani
      ; ba Bashkir
!     ("be" . "Latin-5") ; Byelorussian
!     ("bg" . "Latin-5") ; Bulgarian
      ; bh Bihari
      ; bi Bislama
      ; bn Bengali, Bangla
--- 1684,1691 ----
      ; ay Aymara
      ; az Azerbaijani
      ; ba Bashkir
!     ("be" . "Belarussian") ; Belarussian [Byelorussian]
!     ("bg" . "Bulgarian") ; Bulgarian
      ; bh Bihari
      ; bi Bislama
      ; bn Bengali, Bangla
***************
*** 1730,1736 ****
      ; iu Inuktitut
      ("ja" . "Japanese")
      ; jw Javanese
!     ; ka Georgian
      ; kk Kazakh
      ("kl" . "Latin-1") ; Greenlandic
      ; km Cambodian
--- 1732,1738 ----
      ; iu Inuktitut
      ("ja" . "Japanese")
      ; jw Javanese
!     ("ka" . "Georgian") ; Georgian
      ; kk Kazakh
      ("kl" . "Latin-1") ; Greenlandic
      ; km Cambodian
***************
*** 1744,1751 ****
      ("lb" . "Latin-1") ; Luxemburgish
      ; ln Lingala
      ("lo" . "Lao") ; Laothian
!     ("lt" . "Latin-4") ; Lithuanian
!     ("lv" . "Latin-4") ; Latvian, Lettish
      ; mg Malagasy
      ("mi" . "Latin-7") ; Maori
      ("mk" . "Latin-5") ; Macedonian
--- 1746,1753 ----
      ("lb" . "Latin-1") ; Luxemburgish
      ; ln Lingala
      ("lo" . "Lao") ; Laothian
!     ("lt" . "Lithuanian")
!     ("lv" . "Latvian") ; Latvian, Lettish
      ; mg Malagasy
      ("mi" . "Latin-7") ; Maori
      ("mk" . "Latin-5") ; Macedonian
***************
*** 1794,1800 ****
      ("sw" . "Latin-1") ; Swahili
      ; ta Tamil  glibc uses utf-8
      ; te Telugu  glibc uses utf-8
!     ; tg Tajik "Cyrillic-KOI8-T"
      ("th" . "Thai")
      ; ti Tigrinya
      ; tk Turkmen
--- 1796,1802 ----
      ("sw" . "Latin-1") ; Swahili
      ; ta Tamil  glibc uses utf-8
      ; te Telugu  glibc uses utf-8
!     ("tg" . "Cyrillic-KOI8-T") ; Tajik
      ("th" . "Thai")
      ; ti Tigrinya
      ; tk Turkmen
***************
*** 1806,1819 ****
      ; tt Tatar
      ; tw Twi
      ; ug Uighur
!     ("uk" . "Latin-5") ; Ukrainian
      ; ur Urdu  glibc uses utf-8
      ("uz" . "Latin-1") ; Uzbek
      ("vi" . "Vietnamese") ;  glibc uses utf-8
      ; vo Volapuk
      ; wo Wolof
      ; xh Xhosa
!     ; yi Yiddish
      ; yo Yoruba
      ; za Zhuang
  
--- 1808,1821 ----
      ; tt Tatar
      ; tw Twi
      ; ug Uighur
!     ("uk" . "Ukrainian") ; Ukrainian
      ; ur Urdu  glibc uses utf-8
      ("uz" . "Latin-1") ; Uzbek
      ("vi" . "Vietnamese") ;  glibc uses utf-8
      ; vo Volapuk
      ; wo Wolof
      ; xh Xhosa
!     ("yi" . "Windows-1255") ; Yiddish
      ; yo Yoruba
      ; za Zhuang
  
***************
*** 1863,1869 ****
       (".*8859[-_]?14\\>" . "Latin-8")
       (".*8859[-_]?15\\>" . "Latin-9")
       ("address@hidden>" . "Latin-9")
!      ))
    "List of pairs of locale regexps and charset language names.
  The first element whose locale regexp matches the start of a downcased locale
  specifies the language name whose charsets corresponds to that locale.
--- 1865,1871 ----
       (".*8859[-_]?14\\>" . "Latin-8")
       (".*8859[-_]?15\\>" . "Latin-9")
       ("address@hidden>" . "Latin-9")
!      (".*utf\\(-?8\\)\\>" . "UTF-8")))
    "List of pairs of locale regexps and charset language names.
  The first element whose locale regexp matches the start of a downcased locale
  specifies the language name whose charsets corresponds to that locale.
***************
*** 1876,1882 ****
       ("ja.*[._]jis7" . iso-2022-jp)
       ("ja.*[._]pck" . japanese-shift-jis)
       ("ja.*[._]sjis" . japanese-shift-jis)
!      ))
    "List of pairs of locale regexps and preferred coding systems.
  The first element whose locale regexp matches the start of a downcased locale
  specifies the coding system to prefer when using that locale.")
--- 1878,1884 ----
       ("ja.*[._]jis7" . iso-2022-jp)
       ("ja.*[._]pck" . japanese-shift-jis)
       ("ja.*[._]sjis" . japanese-shift-jis)
!      (".*[._]utf" . utf-8)))
    "List of pairs of locale regexps and preferred coding systems.
  The first element whose locale regexp matches the start of a downcased locale
  specifies the coding system to prefer when using that locale.")