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

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

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

revision 1.62.2.16 by fx, Sat May 25 17:11:19 2002 UTC revision 1.62.2.17 by fx, Sun May 26 17:17:32 2002 UTC
# Line 77  Line 77 
77  (define-charset-alias 'ucs 'unicode)  (define-charset-alias 'ucs 'unicode)
78    
79  (define-charset 'emacs  (define-charset 'emacs
80    "Full Emacs characters."    "Full Emacs characters"
81    :ascii-compatible-p t    :ascii-compatible-p t
82    :code-space [ 0 255 0 255 0 63 ]    :code-space [ 0 255 0 255 0 63 ]
83    :code-offset 0    :code-offset 0
# Line 114  Line 114 
114  (defmacro define-iso-single-byte-charset (symbol iso-symbol name nickname  (defmacro define-iso-single-byte-charset (symbol iso-symbol name nickname
115                                                   iso-ir iso-final                                                   iso-ir iso-final
116                                                   emacs-mule-id map)                                                   emacs-mule-id map)
   "For internal use only."  
117    `(progn    `(progn
118       (define-charset ,symbol       (define-charset ,symbol
119         ,name         ,name
# Line 177  Line 176 
176  (define-iso-single-byte-charset 'iso-8859-16 'latin-iso8859-16  (define-iso-single-byte-charset 'iso-8859-16 'latin-iso8859-16
177    "ISO/IEC 8859/16" "Latin-10" 226 ?f nil "8859-16")    "ISO/IEC 8859/16" "Latin-10" 226 ?f nil "8859-16")
178    
179    ;; No point in keeping it around.
180    (fmakunbound 'define-iso-single-byte-charset)
181    
182  (define-charset 'thai-tis620  (define-charset 'thai-tis620
183    "TIS620.2533"    "TIS620.2533"
184    :short-name "TIS620.2533"    :short-name "TIS620.2533"
# Line 195  Line 197 
197  (define-charset 'jisx0201  (define-charset 'jisx0201
198    "JISX0201"    "JISX0201"
199    :short-name "JISX0201"    :short-name "JISX0201"
   :long-name "JISX0201"  
200    :code-space [33 254]    :code-space [33 254]
201    :map "jisx0201")    :map "jisx0201")
202    
# Line 230  Line 231 
231  (define-charset 'chinese-gbk  (define-charset 'chinese-gbk
232    "GBK Chinese simplified."    "GBK Chinese simplified."
233    :short-name "GBK"    :short-name "GBK"
   :long-name "GBK"  
234    :code-space [#x40 #xFE #x81 #xFE]    :code-space [#x40 #xFE #x81 #xFE]
235    :code-offset #x150000    :code-offset #x150000
236    :unify-map "gbk")    :unify-map "gbk")
# Line 303  Line 303 
303  (define-charset 'big5  (define-charset 'big5
304    "Big5 (Chinese traditional)"    "Big5 (Chinese traditional)"
305    :short-name "Big5"    :short-name "Big5"
   :long-name "Big5"  
306    :code-space [#x40 #xFE #xA1 #xFE]    :code-space [#x40 #xFE #xA1 #xFE]
307    :code-offset #x130000    :code-offset #x130000
308    :unify-map "big5")    :unify-map "big5")
# Line 361  Line 360 
360  (define-charset 'japanese-jisx0213-1  (define-charset 'japanese-jisx0213-1
361    "JISX0213 Plane 1 (Japanese)"    "JISX0213 Plane 1 (Japanese)"
362    :short-name "JISX0213-1"    :short-name "JISX0213-1"
   :long-name "JISX0213-1"  
363    :iso-final-char ?O    :iso-final-char ?O
364    :emacs-mule-id  151    :emacs-mule-id  151
365    :code-space [33 126 33 126]    :code-space [33 126 33 126]
# Line 370  Line 368 
368  (define-charset 'japanese-jisx0213-2  (define-charset 'japanese-jisx0213-2
369    "JISX0213 Plane 2 (Japanese)"    "JISX0213 Plane 2 (Japanese)"
370    :short-name "JISX0213-2"    :short-name "JISX0213-2"
   :long-name "JISX0213-2"  
371    :iso-final-char ?P    :iso-final-char ?P
372    :emacs-mule-id 254    :emacs-mule-id 254
373    :code-space [33 126 33 126]    :code-space [33 126 33 126]
# Line 397  Line 394 
394  (define-charset 'ipa  (define-charset 'ipa
395    "IPA (International Phonetic Association)"    "IPA (International Phonetic Association)"
396    :short-name "IPA"    :short-name "IPA"
   :long-name "IPA"  
397    :iso-final-char ?0    :iso-final-char ?0
398    :emacs-mule-id  161    :emacs-mule-id  161
399    :code-space [32 127]    :code-space [32 127]
# Line 433  Line 429 
429  (define-charset 'vscii  (define-charset 'vscii
430    "VSCII1.1"    "VSCII1.1"
431    :short-name "VSCII"    :short-name "VSCII"
   :long-name "VSCII"  
432    :code-space [0 255]    :code-space [0 255]
433    :map "vscii")    :map "vscii")
434    
435  (define-charset 'koi8-r  (define-charset 'koi8-r
436    "KOI8-R"    "KOI8-R"
437    :short-name "KOI8-R"    :short-name "KOI8-R"
   :long-name "KOI8-R"  
438    :ascii-compatible-p t    :ascii-compatible-p t
439    :code-space [0 255]    :code-space [0 255]
440    :map "koi8-r")    :map "koi8-r")
# Line 450  Line 444 
444  (define-charset 'alternativnyj  (define-charset 'alternativnyj
445    "ALTERNATIVNYJ"    "ALTERNATIVNYJ"
446    :short-name "alternativnyj"    :short-name "alternativnyj"
   :long-name "alternativnyj"  
447    :ascii-compatible-p t    :ascii-compatible-p t
448    :code-space [0 255]    :code-space [0 255]
449    :map "ibm866")    :map "ibm866")
# Line 460  Line 453 
453  (define-charset 'koi8-u  (define-charset 'koi8-u
454    "KOI8-U"    "KOI8-U"
455    :short-name "KOI8-U"    :short-name "KOI8-U"
   :long-name "KOI8-U"  
456    :ascii-compatible-p t    :ascii-compatible-p t
457    :code-space [0 255]    :code-space [0 255]
458    :map "koi8-u")    :map "koi8-u")
# Line 468  Line 460 
460  (define-charset 'koi8-t  (define-charset 'koi8-t
461    "KOI8-T"    "KOI8-T"
462    :short-name "KOI8-T"    :short-name "KOI8-T"
   :long-name "KOI8-T"  
463    :ascii-compatible-p t    :ascii-compatible-p t
464    :code-space [0 255]    :code-space [0 255]
465    :map "koi8-t")    :map "koi8-t")
# Line 476  Line 467 
467  (define-charset 'georgian-ps  (define-charset 'georgian-ps
468    "GEORGIAN-PS"    "GEORGIAN-PS"
469    :short-name "GEORGIAN-PS"    :short-name "GEORGIAN-PS"
   :long-name "GEORGIAN-PS"  
470    :ascii-compatible-p t    :ascii-compatible-p t
471    :code-space [0 255]    :code-space [0 255]
472    :map "georgian-ps")    :map "georgian-ps")
# Line 484  Line 474 
474  (define-charset 'windows-1250  (define-charset 'windows-1250
475    "WINDOWS-1250 (Central Europe)"    "WINDOWS-1250 (Central Europe)"
476    :short-name "WINDOWS-1250"    :short-name "WINDOWS-1250"
   :long-name "WINDOWS-1250"  
477    :ascii-compatible-p t    :ascii-compatible-p t
478    :code-space [0 255]    :code-space [0 255]
479    :map "windows-1250")    :map "windows-1250")
# Line 493  Line 482 
482  (define-charset 'windows-1251  (define-charset 'windows-1251
483    "WINDOWS-1251"    "WINDOWS-1251"
484    :short-name "WINDOWS-1251"    :short-name "WINDOWS-1251"
   :long-name "WINDOWS-1251"  
485    :ascii-compatible-p t    :ascii-compatible-p t
486    :code-space [0 255]    :code-space [0 255]
487    :map "windows-1251")    :map "windows-1251")
# Line 502  Line 490 
490  (define-charset 'windows-1252  (define-charset 'windows-1252
491    "WINDOWS-1252 (Greek)"    "WINDOWS-1252 (Greek)"
492    :short-name "WINDOWS-1252"    :short-name "WINDOWS-1252"
   :long-name "WINDOWS-1252"  
493    :ascii-compatible-p t    :ascii-compatible-p t
494    :code-space [0 255]    :code-space [0 255]
495    :map "windows-1252")    :map "windows-1252")
# Line 511  Line 498 
498  (define-charset 'windows-1253  (define-charset 'windows-1253
499    "WINDOWS-1253"    "WINDOWS-1253"
500    :short-name "WINDOWS-1253"    :short-name "WINDOWS-1253"
   :long-name "WINDOWS-1253"  
501    :ascii-compatible-p t    :ascii-compatible-p t
502    :code-space [0 255]    :code-space [0 255]
503    :map "windows-1253")    :map "windows-1253")
# Line 520  Line 506 
506  (define-charset 'windows-1254  (define-charset 'windows-1254
507    "WINDOWS-1254"    "WINDOWS-1254"
508    :short-name "WINDOWS-1254"    :short-name "WINDOWS-1254"
   :long-name "WINDOWS-1254"  
509    :ascii-compatible-p t    :ascii-compatible-p t
510    :code-space [0 255]    :code-space [0 255]
511    :map "windows-1254")    :map "windows-1254")
# Line 529  Line 514 
514  (define-charset 'windows-1255  (define-charset 'windows-1255
515    "WINDOWS-1255 (Hebrew)"    "WINDOWS-1255 (Hebrew)"
516    :short-name "WINDOWS-1255"    :short-name "WINDOWS-1255"
   :long-name "WINDOWS-1255"  
517    :ascii-compatible-p t    :ascii-compatible-p t
518    :code-space [0 255]    :code-space [0 255]
519    :map "windows-1255")    :map "windows-1255")
# Line 538  Line 522 
522  (define-charset 'windows-1256  (define-charset 'windows-1256
523    "WINDOWS-1256 (Arabic)"    "WINDOWS-1256 (Arabic)"
524    :short-name "WINDOWS-1256"    :short-name "WINDOWS-1256"
   :long-name "WINDOWS-1256"  
525    :ascii-compatible-p t    :ascii-compatible-p t
526    :code-space [0 255]    :code-space [0 255]
527    :map "windows-1256")    :map "windows-1256")
# Line 547  Line 530 
530  (define-charset 'windows-1257  (define-charset 'windows-1257
531    "WINDOWS-1257 (Baltic)"    "WINDOWS-1257 (Baltic)"
532    :short-name "WINDOWS-1257"    :short-name "WINDOWS-1257"
   :long-name "WINDOWS-1257"  
533    :ascii-compatible-p t    :ascii-compatible-p t
534    :code-space [0 255]    :code-space [0 255]
535    :map "windows-1257")    :map "windows-1257")
# Line 556  Line 538 
538  (define-charset 'windows-1258  (define-charset 'windows-1258
539    "WINDOWS-1258"    "WINDOWS-1258"
540    :short-name "WINDOWS-1258"    :short-name "WINDOWS-1258"
   :long-name "WINDOWS-1258"  
541    :ascii-compatible-p t    :ascii-compatible-p t
542    :code-space [0 255]    :code-space [0 255]
543    :map "windows-1258")    :map "windows-1258")
# Line 565  Line 546 
546  (define-charset 'next  (define-charset 'next
547    "NEXT"    "NEXT"
548    :short-name "NEXT"    :short-name "NEXT"
   :long-name "NEXT"  
549    :ascii-compatible-p t    :ascii-compatible-p t
550    :code-space [0 255]    :code-space [0 255]
551    :map "next")    :map "next")
# Line 573  Line 553 
553  (define-charset 'cp1125  (define-charset 'cp1125
554    "CP1125"    "CP1125"
555    :short-name "CP1125"    :short-name "CP1125"
   :long-name "CP1125"  
556    :code-space [0 255]    :code-space [0 255]
557    :map "cp1125")    :map "cp1125")
558  (define-charset-alias 'ruscii 'cp1125)  (define-charset-alias 'ruscii 'cp1125)
# Line 583  Line 562 
562  (define-charset 'cp437  (define-charset 'cp437
563    "CP437"    "CP437"
564    :short-name "CP437"    :short-name "CP437"
   :long-name "CP437"  
565    :code-space [0 255]    :code-space [0 255]
566    :ascii-compatible-p t    :ascii-compatible-p t
567    :map "cp437")    :map "cp437")
# Line 591  Line 569 
569  (define-charset 'cp737  (define-charset 'cp737
570    "CP737"    "CP737"
571    :short-name "CP737"    :short-name "CP737"
   :long-name "CP737"  
572    :code-space [0 255]    :code-space [0 255]
573    :ascii-compatible-p t    :ascii-compatible-p t
574    :map "cp737")    :map "cp737")
# Line 599  Line 576 
576  (define-charset 'cp775  (define-charset 'cp775
577    "CP775"    "CP775"
578    :short-name "CP775"    :short-name "CP775"
   :long-name "CP775"  
579    :code-space [0 255]    :code-space [0 255]
580    :ascii-compatible-p t    :ascii-compatible-p t
581    :map "cp775")    :map "cp775")
# Line 607  Line 583 
583  (define-charset 'cp851  (define-charset 'cp851
584    "CP851"    "CP851"
585    :short-name "CP851"    :short-name "CP851"
   :long-name "CP851"  
586    :code-space [0 255]    :code-space [0 255]
587    :ascii-compatible-p t    :ascii-compatible-p t
588    :map "cp851")    :map "cp851")
# Line 615  Line 590 
590  (define-charset 'cp852  (define-charset 'cp852
591    "CP852"    "CP852"
592    :short-name "CP852"    :short-name "CP852"
   :long-name "CP852"  
593    :code-space [0 255]    :code-space [0 255]
594    :ascii-compatible-p t    :ascii-compatible-p t
595    :map "cp852")    :map "cp852")
# Line 623  Line 597 
597  (define-charset 'cp855  (define-charset 'cp855
598    "CP855"    "CP855"
599    :short-name "CP855"    :short-name "CP855"
   :long-name "CP855"  
600    :code-space [0 255]    :code-space [0 255]
601    :ascii-compatible-p t    :ascii-compatible-p t
602    :map "cp855")    :map "cp855")
# Line 631  Line 604 
604  (define-charset 'cp857  (define-charset 'cp857
605    "CP857"    "CP857"
606    :short-name "CP857"    :short-name "CP857"
   :long-name "CP857"  
607    :code-space [0 255]    :code-space [0 255]
608    :ascii-compatible-p t    :ascii-compatible-p t
609    :map "cp857")    :map "cp857")
# Line 639  Line 611 
611  (define-charset 'cp860  (define-charset 'cp860
612    "CP860"    "CP860"
613    :short-name "CP860"    :short-name "CP860"
   :long-name "CP860"  
614    :code-space [0 255]    :code-space [0 255]
615    :ascii-compatible-p t    :ascii-compatible-p t
616    :map "cp860")    :map "cp860")
# Line 647  Line 618 
618  (define-charset 'cp861  (define-charset 'cp861
619    "CP861"    "CP861"
620    :short-name "CP861"    :short-name "CP861"
   :long-name "CP861"  
621    :code-space [0 255]    :code-space [0 255]
622    :ascii-compatible-p t    :ascii-compatible-p t
623    :map "cp861")    :map "cp861")
# Line 655  Line 625 
625  (define-charset 'cp862  (define-charset 'cp862
626    "CP862"    "CP862"
627    :short-name "CP862"    :short-name "CP862"
   :long-name "CP862"  
628    :code-space [0 255]    :code-space [0 255]
629    :ascii-compatible-p t    :ascii-compatible-p t
630    :map "cp862")    :map "cp862")
# Line 663  Line 632 
632  (define-charset 'cp863  (define-charset 'cp863
633    "CP863"    "CP863"
634    :short-name "CP863"    :short-name "CP863"
   :long-name "CP863"  
635    :code-space [0 255]    :code-space [0 255]
636    :ascii-compatible-p t    :ascii-compatible-p t
637    :map "cp863")    :map "cp863")
# Line 671  Line 639 
639  (define-charset 'cp864  (define-charset 'cp864
640    "CP864"    "CP864"
641    :short-name "CP864"    :short-name "CP864"
   :long-name "CP864"  
642    :code-space [0 255]    :code-space [0 255]
643    :ascii-compatible-p t    :ascii-compatible-p t
644    :map "cp864")    :map "cp864")
# Line 679  Line 646 
646  (define-charset 'cp865  (define-charset 'cp865
647    "CP865"    "CP865"
648    :short-name "CP865"    :short-name "CP865"
   :long-name "CP865"  
649    :code-space [0 255]    :code-space [0 255]
650    :ascii-compatible-p t    :ascii-compatible-p t
651    :map "cp865")    :map "cp865")
# Line 687  Line 653 
653  (define-charset 'cp869  (define-charset 'cp869
654    "CP869"    "CP869"
655    :short-name "CP869"    :short-name "CP869"
   :long-name "CP869"  
656    :code-space [0 255]    :code-space [0 255]
657    :ascii-compatible-p t    :ascii-compatible-p t
658    :map "cp869")    :map "cp869")
# Line 695  Line 660 
660  (define-charset 'cp874  (define-charset 'cp874
661    "CP874"    "CP874"
662    :short-name "CP874"    :short-name "CP874"
   :long-name "CP874"  
663    :code-space [0 255]    :code-space [0 255]
664    :ascii-compatible-p t    :ascii-compatible-p t
665    :map "cp874")    :map "cp874")
# Line 707  Line 671 
671  (define-charset 'arabic-digit  (define-charset 'arabic-digit
672    "Arabic digit"    "Arabic digit"
673    :short-name "Arabic digit"    :short-name "Arabic digit"
   :long-name "Arabic digit"  
674    :iso-final-char ?2    :iso-final-char ?2
675    :emacs-mule-id 164    :emacs-mule-id 164
676    :code-space [34 42]    :code-space [34 42]
# Line 736  Line 699 
699  (define-charset 'lao  (define-charset 'lao
700    "Lao characters (ISO10646 0E81..0EDF)"    "Lao characters (ISO10646 0E81..0EDF)"
701    :short-name "Lao"    :short-name "Lao"
   :long-name "Lao"  
702    :iso-final-char ?1    :iso-final-char ?1
703    :emacs-mule-id 167    :emacs-mule-id 167
704    :code-space [33 126]    :code-space [33 126]
# Line 745  Line 707 
707  (define-charset 'mule-lao  (define-charset 'mule-lao
708    "Lao characters (ISO10646 0E81..0EDF)"    "Lao characters (ISO10646 0E81..0EDF)"
709    :short-name "Lao"    :short-name "Lao"
   :long-name "Lao"  
710    :code-space [0 255]    :code-space [0 255]
711    :parents '(ascii eight-bit-control (lao . -128)))    :parents '(ascii eight-bit-control (lao . -128)))
712    
# Line 766  Line 727 
727  (define-charset  'indian-glyph  (define-charset  'indian-glyph
728    "Glyphs for Indian characters."    "Glyphs for Indian characters."
729    :short-name "Indian glyph"    :short-name "Indian glyph"
   :long-name "Indian glyph"  
730    :iso-final-char ?4    :iso-final-char ?4
731    :emacs-mule-id 240    :emacs-mule-id 240
732    :code-space [32 127 32 127]    :code-space [32 127 32 127]
# Line 851  Line 811 
811  (define-charset 'mac-roman  (define-charset 'mac-roman
812    "Mac Roman charset"    "Mac Roman charset"
813    :short-name "Mac Roman"    :short-name "Mac Roman"
   :long-name "Mac Roman"  
814    :ascii-compatible-p t    :ascii-compatible-p t
815    :code-space [0 255]    :code-space [0 255]
816    :map "mac-roman")    :map "mac-roman")
# Line 860  Line 819 
819  (define-charset 'ebcdic-us  (define-charset 'ebcdic-us
820    "US version of EBCDIC"    "US version of EBCDIC"
821    :short-name "EBCDIC-US"    :short-name "EBCDIC-US"
   :long-name "EBCDIC-US"  
822    :code-space [0 255]    :code-space [0 255]
823    :mime-charset 'ebcdic-us    :mime-charset 'ebcdic-us
824    :map "ebcdic-us")    :map "ebcdic-us")
# Line 868  Line 826 
826  (define-charset 'ebcdic-uk  (define-charset 'ebcdic-uk
827    "UK version of EBCDIC"    "UK version of EBCDIC"
828    :short-name "EBCDIC-UK"    :short-name "EBCDIC-UK"
   :long-name "EBCDIC-UK"  
829    :code-space [0 255]    :code-space [0 255]
830    :mime-charset 'ebcdic-uk    :mime-charset 'ebcdic-uk
831    :map "ebcdic-uk")    :map "ebcdic-uk")
# Line 876  Line 833 
833  (define-charset 'hp-roman8  (define-charset 'hp-roman8
834    "Encoding used by Hewlet-Packard printer software"    "Encoding used by Hewlet-Packard printer software"
835    :short-name "HP-ROMAN8"    :short-name "HP-ROMAN8"
   :long-name "HP-ROMAN8"  
836    :ascii-compatible-p t    :ascii-compatible-p t
837    :code-space [0 255]    :code-space [0 255]
838    :map "hp-roman8")    :map "hp-roman8")
# Line 884  Line 840 
840  (define-charset 'adobe-standard-encoding  (define-charset 'adobe-standard-encoding
841    "Adobe `standard encoding' used in PostScript"    "Adobe `standard encoding' used in PostScript"
842    :short-name "ADOBE-STANDARD-ENCODING"    :short-name "ADOBE-STANDARD-ENCODING"
   :long-name "ADOBE-STANDARD-ENCODING"  
843    :code-space [#x20 255]    :code-space [#x20 255]
844    :map "stdenc")    :map "stdenc")
845    
846  (define-charset 'symbol  (define-charset 'symbol
847    "Adobe symbol encoding used in PostScript"    "Adobe symbol encoding used in PostScript"
848    :short-name "ADOBE-SYMBOL"    :short-name "ADOBE-SYMBOL"
   :long-name "ADOBE-SYMBOL"  
849    :code-space [#x20 255]    :code-space [#x20 255]
850    :map "symbol")    :map "symbol")
851    
852  (define-charset 'ibm850  (define-charset 'ibm850
853    "DOS codepage 850"    "DOS codepage 850"
854    :short-name "IBM850"    :short-name "IBM850"
   :long-name "IBM850"  
855    :ascii-compatible-p t    :ascii-compatible-p t
856    :code-space [0 255]    :code-space [0 255]
857    :map "ibm850")    :map "ibm850")
# Line 935  Line 888 
888  ;;   :coding-type 'raw-text  ;;   :coding-type 'raw-text
889  ;;   :mnemonic ?=)  ;;   :mnemonic ?=)
890    
891    (define-coding-system-alias 'binary 'no-conversion)
892    
893  (define-coding-system 'raw-text  (define-coding-system 'raw-text
894   "Raw text, which means text contains random 8-bit codes.   "Raw text, which means text contains random 8-bit codes.
895  Encoding text with this coding system produces the actual byte  Encoding text with this coding system produces the actual byte
# Line 949  is treated as a character." Line 904  is treated as a character."
904   :mnemonic ?t)   :mnemonic ?t)
905    
906  (define-coding-system 'undecided  (define-coding-system 'undecided
907    "No conversion on encoding, automatic conversion on decoding"    "No conversion on encoding, automatic conversion on decoding."
908    :coding-type 'undecided    :coding-type 'undecided
909    :mnemonic ?-    :mnemonic ?-
910    :charset-list '(ascii))    :charset-list '(ascii))
# Line 1000  is treated as a character." Line 955  is treated as a character."
955    :mime-charset 'utf-16)    :mime-charset 'utf-16)
956    
957  (define-coding-system 'utf-16-le-nosig  (define-coding-system 'utf-16-le-nosig
958    "UTF-16, little endian, no signature"    "UTF-16, little endian, no signature."
959    :coding-type 'utf-16    :coding-type 'utf-16
960    :mnemonic ?U    :mnemonic ?U
961    :charset-list '(unicode)    :charset-list '(unicode)
962    :endian 'little)    :endian 'little)
963    
964  (define-coding-system 'utf-16-be-nosig  (define-coding-system 'utf-16-be-nosig
965    "UTF-16, big endian, no signature"    "UTF-16, big endian, no signature."
966    :coding-type 'utf-16    :coding-type 'utf-16
967    :mnemonic ?U    :mnemonic ?U
968    :charset-list '(unicode)    :charset-list '(unicode)
969    :endian 'big)    :endian 'big)
970    
971  (define-coding-system 'utf-16-le  (define-coding-system 'utf-16-le
972    "UTF-16, little endian, with signature"    "UTF-16, little endian, with signature."
973    :coding-type 'utf-16    :coding-type 'utf-16
974    :mnemonic ?U    :mnemonic ?U
975    :charset-list '(unicode)    :charset-list '(unicode)
# Line 1023  is treated as a character." Line 978  is treated as a character."
978    :mime-charset 'utf-16-le)    :mime-charset 'utf-16-le)
979    
980  (define-coding-system 'utf-16-be  (define-coding-system 'utf-16-be
981    "UTF-16, big endian, with signature"    "UTF-16, big endian, with signature."
982    :coding-type 'utf-16    :coding-type 'utf-16
983    :mnemonic ?U    :mnemonic ?U
984    :charset-list '(unicode)    :charset-list '(unicode)
# Line 1032  is treated as a character." Line 987  is treated as a character."
987    :mime-charset 'utf-16-be)    :mime-charset 'utf-16-be)
988    
989  (define-coding-system 'iso-2022-7bit  (define-coding-system 'iso-2022-7bit
990    "ISO 2022 based 7-bit encoding using only G0"    "ISO 2022 based 7-bit encoding using only G0."
991    :coding-type 'iso-2022    :coding-type 'iso-2022
992    :mnemonic ?J    :mnemonic ?J
993    :charset-list 'iso-2022    :charset-list 'iso-2022
# Line 1040  is treated as a character." Line 995  is treated as a character."
995    :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation composition))    :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation composition))
996    
997  (define-coding-system 'iso-2022-7bit-ss2  (define-coding-system 'iso-2022-7bit-ss2
998    "ISO 2022 based 7-bit encoding using SS2 for 96-charset"    "ISO 2022 based 7-bit encoding using SS2 for 96-charset."
999    :coding-type 'iso-2022    :coding-type 'iso-2022
1000    :mnemonic ?$    :mnemonic ?$
1001    :charset-list 'iso-2022    :charset-list 'iso-2022
# Line 1049  is treated as a character." Line 1004  is treated as a character."
1004                   designation single-shift composition))                   designation single-shift composition))
1005    
1006  (define-coding-system 'iso-2022-7bit-lock  (define-coding-system 'iso-2022-7bit-lock
1007    "ISO-2022 coding system using Locking-Shift for 96-charset"    "ISO-2022 coding system using Locking-Shift for 96-charset."
1008    :coding-type 'iso-2022    :coding-type 'iso-2022
1009    :mnemonic ?&    :mnemonic ?&
1010    :charset-list 'iso-2022    :charset-list 'iso-2022
# Line 1060  is treated as a character." Line 1015  is treated as a character."
1015  (define-coding-system-alias 'iso-2022-int-1 'iso-2022-7bit-lock)  (define-coding-system-alias 'iso-2022-int-1 'iso-2022-7bit-lock)
1016    
1017  (define-coding-system 'iso-2022-7bit-lock-ss2  (define-coding-system 'iso-2022-7bit-lock-ss2
1018    "Mixture of ISO-2022-JP, ISO-2022-KR, and ISO-2022-CN"    "Mixture of ISO-2022-JP, ISO-2022-KR, and ISO-2022-CN."
1019    :coding-type 'iso-2022    :coding-type 'iso-2022
1020    :mnemonic ?i    :mnemonic ?i
1021    :charset-list '(ascii    :charset-list '(ascii
# Line 1081  is treated as a character." Line 1036  is treated as a character."
1036  (define-coding-system-alias 'iso-2022-cjk 'iso-2022-7bit-lock-ss2)  (define-coding-system-alias 'iso-2022-cjk 'iso-2022-7bit-lock-ss2)
1037    
1038  (define-coding-system 'iso-2022-8bit-ss2  (define-coding-system 'iso-2022-8bit-ss2
1039    "ISO 2022 based 8-bit encoding using SS2 for 96-charset"    "ISO 2022 based 8-bit encoding using SS2 for 96-charset."
1040    :coding-type 'iso-2022    :coding-type 'iso-2022
1041    :mnemonic ?@    :mnemonic ?@
1042    :charset-list 'iso-2022    :charset-list 'iso-2022
# Line 1199  for decoding and encoding files, process Line 1154  for decoding and encoding files, process
1154    
1155  (aset latin-extra-code-table ?\222 t)  (aset latin-extra-code-table ?\222 t)
1156    
1157    ;; Move least specific charsets to end of priority list
1158    
1159    (apply #'set-charset-priority
1160           (delq 'unicode (delq 'emacs (charset-priority-list))))
1161    
1162  ;; The old code-pages library is obsoleted by coding systems based on  ;; The old code-pages library is obsoleted by coding systems based on
1163  ;; the charsets defined in this file but might be required by user  ;; the charsets defined in this file but might be required by user
1164  ;; code.  ;; code.

Legend:
Removed from v.1.62.2.16  
changed lines
  Added in v.1.62.2.17

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