1 |
;;; mule-cmds.el --- commands for mulitilingual environment |
;;; mule-cmds.el --- commands for mulitilingual environment |
|
|
|
2 |
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
3 |
;; Licensed to the Free Software Foundation. |
;; Licensed to the Free Software Foundation. |
4 |
;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc. |
;; Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Keywords: mule, multilingual |
;; Keywords: mule, multilingual |
7 |
|
|
1937 |
("ca" . "Latin-1") ; Catalan |
("ca" . "Latin-1") ; Catalan |
1938 |
; co Corsican |
; co Corsican |
1939 |
("cs" . "Czech") |
("cs" . "Czech") |
1940 |
("cy" . "Welsh") ; Welsh |
("cy" . "Welsh") ; Welsh [glibc uses Latin-8. Did this change?] |
1941 |
("da" . "Latin-1") ; Danish |
("da" . "Latin-1") ; Danish |
1942 |
("de" . "German") |
("de" . "German") |
1943 |
; dz Bhutani |
; dz Bhutani |
1973 |
; ie Interlingue |
; ie Interlingue |
1974 |
; ik Inupiak |
; ik Inupiak |
1975 |
("is" . "Latin-1") ; Icelandic |
("is" . "Latin-1") ; Icelandic |
1976 |
("it" . "Latin-1") ; Italian |
("it" . "Italian") ; Italian |
1977 |
; iu Inuktitut |
; iu Inuktitut |
1978 |
("ja" . "Japanese") |
("ja" . "Japanese") |
1979 |
; jw Javanese |
; jw Javanese |
2018 |
("rm" . "Latin-1") ; Rhaeto-Romanic |
("rm" . "Latin-1") ; Rhaeto-Romanic |
2019 |
; rn Kirundi |
; rn Kirundi |
2020 |
("ro" . "Romanian") |
("ro" . "Romanian") |
2021 |
("ru.*[_.]koi8" . "Cyrillic-KOI8") ; Russian |
("ru.*[_.]koi8" . "Russian") |
2022 |
("ru" . "Cyrillic-ISO") ; Russian |
("ru" . "Cyrillic-ISO") ; Russian |
2023 |
; rw Kinyarwanda |
; rw Kinyarwanda |
2024 |
("sa" . "Devanagari") ; Sanskrit |
("sa" . "Devanagari") ; Sanskrit |
2049 |
("tl" . "Latin-1") ; Tagalog |
("tl" . "Latin-1") ; Tagalog |
2050 |
; tn Setswana |
; tn Setswana |
2051 |
; to Tonga |
; to Tonga |
2052 |
("tr" . "Latin-5") ; Turkish |
("tr" . "Turkish") |
2053 |
; ts Tsonga |
; ts Tsonga |
2054 |
; tt Tatar |
; tt Tatar |
2055 |
; tw Twi |
; tw Twi |
2070 |
; zh_CN.GB18030/GB18030 \ |
; zh_CN.GB18030/GB18030 \ |
2071 |
; zh_CN.GBK/GBK \ |
; zh_CN.GBK/GBK \ |
2072 |
; zh_HK/BIG5-HKSCS \ |
; zh_HK/BIG5-HKSCS \ |
|
; zh_TW/BIG5 \ |
|
|
; zh_TW.EUC-TW/EUC-TW \ |
|
2073 |
|
|
2074 |
("zh.*[._]big5" . "Chinese-BIG5") |
("zh.*[._]big5" . "Chinese-BIG5") |
2075 |
("zh.*[._]gbk" . nil) ; Solaris 2.7; has gbk-0 as well as GB 2312.1980-0 |
("zh.*[._]gbk" . nil) ; Solaris 2.7; has gbk-0 as well as GB 2312.1980-0 |
2076 |
("zh_tw" . "Chinese-CNS") |
("zh_tw" . "Chinese-CNS") ; glibc uses big5 |
2077 |
|
("zh_tw[._]euc-tw" . "Chinese-EUC-TW") |
2078 |
("zh" . "Chinese-GB") |
("zh" . "Chinese-GB") |
2079 |
; zu Zulu |
; zu Zulu |
2080 |
|
|
2254 |
|
|
2255 |
(when coding-system |
(when coding-system |
2256 |
(prefer-coding-system coding-system) |
(prefer-coding-system coding-system) |
2257 |
(setq locale-coding-system coding-system)))))) |
(setq locale-coding-system coding-system)))) |
2258 |
|
|
2259 |
|
;; Default to A4 paper if we're not in a C, POSIX or US locale. |
2260 |
|
;; (See comments in Flanginfo.) |
2261 |
|
(let ((locale locale) |
2262 |
|
(paper (langinfo 'paper))) |
2263 |
|
(if paper |
2264 |
|
;; This will always be null at the time of writing. |
2265 |
|
(cond |
2266 |
|
((equal paper '(216 279)) |
2267 |
|
(setq ps-paper-type 'letter)) |
2268 |
|
((equal paper '(210 297)) |
2269 |
|
(setq ps-paper-type 'a4))) |
2270 |
|
(let ((vars '("LC_ALL" "LC_PAPER" "LANG"))) |
2271 |
|
(while (and vars (= 0 (length locale))) |
2272 |
|
(setq locale (getenv (pop vars))))) |
2273 |
|
(when locale |
2274 |
|
;; As of glibc 2.2.5, these are the only US Letter locales, |
2275 |
|
;; and the rest are A4. |
2276 |
|
(setq ps-paper-type |
2277 |
|
(or (locale-name-match locale '(("c$" . letter) |
2278 |
|
("posix$" . letter) |
2279 |
|
(".._us" . letter) |
2280 |
|
(".._pr" . letter) |
2281 |
|
(".._ca" . letter))) |
2282 |
|
'a4)))))) |
2283 |
|
nil) |
2284 |
|
|
2285 |
;;; Charset property |
;;; Charset property |
2286 |
|
|