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 |
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 |
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" |
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 |
|
|
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") |
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") |
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] |
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] |
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] |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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) |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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") |
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] |
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] |
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 |
|
|
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] |
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") |
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") |
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") |
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") |
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") |
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 |
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)) |
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) |
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) |
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 |
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 |
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 |
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 |
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 |
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. |