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

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

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

revision 1.90 by fx, Thu Sep 4 16:58:20 2003 UTC revision 1.91 by fx, Thu Sep 4 18:19:36 2003 UTC
# Line 62  Line 62 
62    'help-echo "mouse-2, RET: show table of characters for this character set")    'help-echo "mouse-2, RET: show table of characters for this character set")
63    
64  ;;;###autoload  ;;;###autoload
65  (defvar non-iso-charset-alist nil  (defvar non-iso-charset-alist
66      `((mac-roman
67         (ascii latin-iso8859-1 mule-unicode-2500-33ff
68                mule-unicode-0100-24ff mule-unicode-e000-ffff)
69         mac-roman-decoder
70         ((0 255)))
71        (viscii
72         (ascii vietnamese-viscii-lower vietnamese-viscii-upper)
73         viet-viscii-nonascii-translation-table
74         ((0 255)))
75        (vietnamese-tcvn
76         (ascii vietnamese-viscii-lower vietnamese-viscii-upper)
77         viet-tcvn-nonascii-translation-table
78         ((0 255)))
79        (koi8-r
80         (ascii cyrillic-iso8859-5)
81         cyrillic-koi8-r-nonascii-translation-table
82         ((32 255)))
83        (alternativnyj
84         (ascii cyrillic-iso8859-5)
85         cyrillic-alternativnyj-nonascii-translation-table
86         ((32 255)))
87        (koi8-u
88         (ascii cyrillic-iso8859-5 mule-unicode-0100-24ff)
89         cyrillic-koi8-u-nonascii-translation-table
90         ((32 255)))
91        (big5
92         (ascii chinese-big5-1 chinese-big5-2)
93         decode-big5-char
94         ((32 127)
95          ((?\xA1 ?\xFE) . (?\x40 ?\x7E ?\xA1 ?\xFE))))
96        (sjis
97         (ascii katakana-jisx0201 japanese-jisx0208)
98         decode-sjis-char
99         ((32 127 ?\xA1 ?\xDF)
100          ((?\x81 ?\x9F ?\xE0 ?\xEF) . (?\x40 ?\x7E ?\x80 ?\xFC)))))
101    "Alist of charset names vs the corresponding information.    "Alist of charset names vs the corresponding information.
102  This is mis-named for historical reasons.  The charsets are actually  This is mis-named for historical reasons.  The charsets are actually
103  non-built-in ones.  They correspond to Emacs coding systems, not Emacs  non-built-in ones.  They correspond to Emacs coding systems, not Emacs
# Line 93  TO2, or... Line 128  TO2, or...
128  The second form is used for 2-byte codes.  The car part is the ranges  The second form is used for 2-byte codes.  The car part is the ranges
129  of the first byte, and the cdr part is the ranges of the second byte.")  of the first byte, and the cdr part is the ranges of the second byte.")
130    
 ;; Set it like this in case code-pages &c has been loaded previously,  
 ;; in which case defvar would be useless.  
 (setq non-iso-charset-alist  
       (append  
        non-iso-charset-alist  
        `((mac-roman  
           (ascii latin-iso8859-1 mule-unicode-2500-33ff  
                  mule-unicode-0100-24ff mule-unicode-e000-ffff)  
           mac-roman-decoder  
           ((0 255)))  
          (viscii  
           (ascii vietnamese-viscii-lower vietnamese-viscii-upper)  
           viet-viscii-nonascii-translation-table  
           ((0 255)))  
          (vietnamese-tcvn  
           (ascii vietnamese-viscii-lower vietnamese-viscii-upper)  
           viet-tcvn-nonascii-translation-table  
           ((0 255)))  
          (koi8-r  
           (ascii cyrillic-iso8859-5)  
           cyrillic-koi8-r-nonascii-translation-table  
           ((32 255)))  
          (alternativnyj  
           (ascii cyrillic-iso8859-5)  
           cyrillic-alternativnyj-nonascii-translation-table  
           ((32 255)))  
          (koi8-u  
           (ascii cyrillic-iso8859-5 mule-unicode-0100-24ff)  
           cyrillic-koi8-u-nonascii-translation-table  
           ((32 255)))  
          (big5  
           (ascii chinese-big5-1 chinese-big5-2)  
           decode-big5-char  
           ((32 127)  
            ((?\xA1 ?\xFE) . (?\x40 ?\x7E ?\xA1 ?\xFE))))  
          (sjis  
           (ascii katakana-jisx0201 japanese-jisx0208)  
           decode-sjis-char  
           ((32 127 ?\xA1 ?\xDF)  
            ((?\x81 ?\x9F ?\xE0 ?\xEF) . (?\x40 ?\x7E ?\x80 ?\xFC)))))))  
   
131  ;;;###autoload  ;;;###autoload
132  (defun list-character-sets (arg)  (defun list-character-sets (arg)
133    "Display a list of all character sets.    "Display a list of all character sets.

Legend:
Removed from v.1.90  
changed lines
  Added in v.1.91

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