/[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.14 by fx, Wed May 22 13:12:55 2002 UTC revision 1.62.2.15 by fx, Thu May 23 18:17:21 2002 UTC
# Line 454  Line 454 
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"
# Line 578  Line 580 
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
# Line 1072  for decoding and encoding files, process Line 1194  for decoding and encoding files, process
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)

Legend:
Removed from v.1.62.2.14  
changed lines
  Added in v.1.62.2.15

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