/[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.223 by lektu, Fri Feb 14 06:54:44 2003 UTC revision 1.224 by fx, Fri Feb 14 18:42:31 2003 UTC
# Line 1  Line 1 
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    
# Line 1938  of `buffer-file-coding-system' set by th Line 1937  of `buffer-file-coding-system' set by th
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
# Line 1974  of `buffer-file-coding-system' set by th Line 1973  of `buffer-file-coding-system' set by th
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
# Line 2019  of `buffer-file-coding-system' set by th Line 2018  of `buffer-file-coding-system' set by th
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
# Line 2050  of `buffer-file-coding-system' set by th Line 2049  of `buffer-file-coding-system' set by th
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
# Line 2071  of `buffer-file-coding-system' set by th Line 2070  of `buffer-file-coding-system' set by th
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    
# Line 2256  See also `locale-charset-language-names' Line 2254  See also `locale-charset-language-names'
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    

Legend:
Removed from v.1.223  
changed lines
  Added in v.1.224

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