454 |
:ascii-compatible-p t |
:ascii-compatible-p t |
455 |
:code-space [0 255] |
:code-space [0 255] |
456 |
:map "ibm866") |
:map "ibm866") |
457 |
|
(define-charset-alias 'cp866 'alternativnyj) |
458 |
|
(define-charset-alias 'ibm 'alternativnyj) |
459 |
|
|
460 |
(define-charset 'koi8-u |
(define-charset 'koi8-u |
461 |
"KOI8-U" |
"KOI8-U" |
580 |
;; Original name for cp1125, says Serhii Hlodin <hlodin@lutsk.bank.gov.ua> |
;; Original name for cp1125, says Serhii Hlodin <hlodin@lutsk.bank.gov.ua> |
581 |
(define-charset-alias 'cp866u 'cp1125) |
(define-charset-alias 'cp866u 'cp1125) |
582 |
|
|
583 |
|
(define-charset 'cp437 |
584 |
|
"CP437" |
585 |
|
:short-name "CP437" |
586 |
|
:long-name "CP437" |
587 |
|
:code-space [0 255] |
588 |
|
:ascii-compatible-p t |
589 |
|
:map "cp437") |
590 |
|
|
591 |
|
(define-charset 'cp737 |
592 |
|
"CP737" |
593 |
|
:short-name "CP737" |
594 |
|
:long-name "CP737" |
595 |
|
:code-space [0 255] |
596 |
|
:ascii-compatible-p t |
597 |
|
:map "cp737") |
598 |
|
|
599 |
|
(define-charset 'cp775 |
600 |
|
"CP775" |
601 |
|
:short-name "CP775" |
602 |
|
:long-name "CP775" |
603 |
|
:code-space [0 255] |
604 |
|
:ascii-compatible-p t |
605 |
|
:map "cp775") |
606 |
|
|
607 |
|
(define-charset 'cp851 |
608 |
|
"CP851" |
609 |
|
:short-name "CP851" |
610 |
|
:long-name "CP851" |
611 |
|
:code-space [0 255] |
612 |
|
:ascii-compatible-p t |
613 |
|
:map "cp851") |
614 |
|
|
615 |
|
(define-charset 'cp852 |
616 |
|
"CP852" |
617 |
|
:short-name "CP852" |
618 |
|
:long-name "CP852" |
619 |
|
:code-space [0 255] |
620 |
|
:ascii-compatible-p t |
621 |
|
:map "cp852") |
622 |
|
|
623 |
|
(define-charset 'cp855 |
624 |
|
"CP855" |
625 |
|
:short-name "CP855" |
626 |
|
:long-name "CP855" |
627 |
|
:code-space [0 255] |
628 |
|
:ascii-compatible-p t |
629 |
|
:map "cp855") |
630 |
|
|
631 |
|
(define-charset 'cp857 |
632 |
|
"CP857" |
633 |
|
:short-name "CP857" |
634 |
|
:long-name "CP857" |
635 |
|
:code-space [0 255] |
636 |
|
:ascii-compatible-p t |
637 |
|
:map "cp857") |
638 |
|
|
639 |
|
(define-charset 'cp860 |
640 |
|
"CP860" |
641 |
|
:short-name "CP860" |
642 |
|
:long-name "CP860" |
643 |
|
:code-space [0 255] |
644 |
|
:ascii-compatible-p t |
645 |
|
:map "cp860") |
646 |
|
|
647 |
|
(define-charset 'cp861 |
648 |
|
"CP861" |
649 |
|
:short-name "CP861" |
650 |
|
:long-name "CP861" |
651 |
|
:code-space [0 255] |
652 |
|
:ascii-compatible-p t |
653 |
|
:map "cp861") |
654 |
|
|
655 |
|
(define-charset 'cp862 |
656 |
|
"CP862" |
657 |
|
:short-name "CP862" |
658 |
|
:long-name "CP862" |
659 |
|
:code-space [0 255] |
660 |
|
:ascii-compatible-p t |
661 |
|
:map "cp862") |
662 |
|
|
663 |
|
(define-charset 'cp863 |
664 |
|
"CP863" |
665 |
|
:short-name "CP863" |
666 |
|
:long-name "CP863" |
667 |
|
:code-space [0 255] |
668 |
|
:ascii-compatible-p t |
669 |
|
:map "cp863") |
670 |
|
|
671 |
|
(define-charset 'cp864 |
672 |
|
"CP864" |
673 |
|
:short-name "CP864" |
674 |
|
:long-name "CP864" |
675 |
|
:code-space [0 255] |
676 |
|
:ascii-compatible-p t |
677 |
|
:map "cp864") |
678 |
|
|
679 |
|
(define-charset 'cp865 |
680 |
|
"CP865" |
681 |
|
:short-name "CP865" |
682 |
|
:long-name "CP865" |
683 |
|
:code-space [0 255] |
684 |
|
:ascii-compatible-p t |
685 |
|
:map "cp865") |
686 |
|
|
687 |
|
(define-charset 'cp869 |
688 |
|
"CP869" |
689 |
|
:short-name "CP869" |
690 |
|
:long-name "CP869" |
691 |
|
:code-space [0 255] |
692 |
|
:ascii-compatible-p t |
693 |
|
:map "cp869") |
694 |
|
|
695 |
|
(define-charset 'cp874 |
696 |
|
"CP874" |
697 |
|
:short-name "CP874" |
698 |
|
:long-name "CP874" |
699 |
|
:code-space [0 255] |
700 |
|
:ascii-compatible-p t |
701 |
|
:map "cp874") |
702 |
|
|
703 |
;; For Arabic, we need three different types of character sets. |
;; For Arabic, we need three different types of character sets. |
704 |
;; Digits are of direction left-to-right and of width 1-column. |
;; Digits are of direction left-to-right and of width 1-column. |
705 |
;; Others are of direction right-to-left and of width 1-column or |
;; Others are of direction right-to-left and of width 1-column or |
1194 |
|
|
1195 |
;; Make all multibyte characters self-insert. |
;; Make all multibyte characters self-insert. |
1196 |
(set-char-table-range (nth 1 global-map) |
(set-char-table-range (nth 1 global-map) |
1197 |
(cons (decode-char 'ucs 128) (max-char)) |
(cons 128 (max-char)) |
1198 |
'self-insert-command) |
'self-insert-command) |
1199 |
|
|
1200 |
(aset latin-extra-code-table ?\222 t) |
(aset latin-extra-code-table ?\222 t) |