[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el
From: |
Dave Love |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el |
Date: |
Sat, 15 Dec 2001 12:42:33 -0500 |
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.")
- [Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el,
Dave Love <=