[Emacs-diffs] Changes to emacs/lisp/international/code-pages.el

[Dave Love]

Index: emacs/lisp/international/code-pages.el
diff -c emacs/lisp/international/code-pages.el:1.11 
emacs/lisp/international/code-pages.el:1.12
*** emacs/lisp/international/code-pages.el:1.11 Tue Feb  4 08:09:38 2003
--- emacs/lisp/international/code-pages.el      Fri Feb 14 13:45:40 2003
***************
*** 2362,2368 ****
    nil
    nil
    nil
!   ?\
    ?\ก
    ?\ข
    ?\ฃ
--- 2362,2368 ----
    nil
    nil
    nil
!   ?\Â 
    ?\ก
    ?\ข
    ?\ฃ
***************
*** 2493,2499 ****
    ?\Å¥
    ?\ž
    ?\ź
!   ?\
    ?\ˇ
    ?\˘
    ?\Ł
--- 2493,2499 ----
    ?\Å¥
    ?\ž
    ?\ź
!   ?\Â 
    ?\ˇ
    ?\˘
    ?\Ł
***************
*** 2625,2631 ****
    ?\ќ
    ?\ћ
    ?\џ
!   ?\
    ?\Ў
    ?\ў
    ?\Ј
--- 2625,2631 ----
    ?\ќ
    ?\ћ
    ?\џ
!   ?\Â 
    ?\Ў
    ?\ў
    ?\Ј
***************
*** 2757,2763 ****
    nil
    nil
    ?\Ÿ
!   ?\
    ?\¡
    ?\¢
    ?\£
--- 2757,2763 ----
    nil
    nil
    ?\Ÿ
!   ?\Â 
    ?\¡
    ?\¢
    ?\£
***************
*** 2888,2894 ****
    nil
    nil
    nil
!   ?\
    ?\΅
    ?\Ά
    ?\£
--- 2888,2894 ----
    nil
    nil
    nil
!   ?\Â 
    ?\΅
    ?\Ά
    ?\£
***************
*** 3020,3026 ****
    nil
    nil
    ?\Ÿ
!   ?\
    ?\¡
    ?\¢
    ?\£
--- 3020,3026 ----
    nil
    nil
    ?\Ÿ
!   ?\Â 
    ?\¡
    ?\¢
    ?\£
***************
*** 3152,3158 ****
    nil
    nil
    nil
!   ?\
    ?\¡
    ?\¢
    ?\£
--- 3152,3158 ----
    nil
    nil
    nil
!   ?\Â 
    ?\¡
    ?\¢
    ?\£
***************
*** 3284,3290 ****
    ?\Ø¢
    ?\Ø£
    ?\Ÿ
!   ?\
    ?\ؤ
    ?\Ø¥
    ?\£
--- 3284,3290 ----
    ?\Ø¢
    ?\Ø£
    ?\Ÿ
!   ?\Â 
    ?\ؤ
    ?\Ø¥
    ?\£
***************
*** 3416,3422 ****
    nil
    nil
    nil
!   ?\
    nil
    ?\¢
    ?\£
--- 3416,3422 ----
    nil
    nil
    nil
!   ?\Â 
    nil
    ?\¢
    ?\£
***************
*** 3547,3553 ****
    nil
    nil
    ?\Ÿ
!   ?\
    ?\¡
    ?\¢
    ?\£
--- 3547,3553 ----
    nil
    nil
    ?\Ÿ
!   ?\Â 
    ?\¡
    ?\¢
    ?\£
***************
*** 3646,3652 ****
  
  (cp-make-coding-system
   next
!  [?\
    ?\À
    ?\Á
    ?\Â
--- 3646,3652 ----
  
  (cp-make-coding-system
   next
!  [?\Â 
    ?\À
    ?\Á
    ?\Â
***************
*** 3916,3922 ****
  ;;   Equivalent National Standard:
  ;;     Romanian Standard SR 14111:1998, Romanian Standards Institution
  ;;     (ASRO).
! 
  ;; Intended usage:
  
  ;;  "This set of coded graphic characters is intended for use in data and
--- 3916,3922 ----
  ;;   Equivalent National Standard:
  ;;     Romanian Standard SR 14111:1998, Romanian Standards Institution
  ;;     (ASRO).
!  
  ;; Intended usage:
  
  ;;  "This set of coded graphic characters is intended for use in data and
***************
*** 3928,3936 ****
  ;;   Slovenian. This set of coded graphic characters may be regarded as a
  ;;   version of an 8-bit code according to ISO/IEC 2022 or ISO/IEC 4873 at
  ;;   level 1." [ISO 8859-16:2001(E), p. 1]
! 
  ;;   This charset is suitable for use in MIME text body parts.
! 
  ;;   ISO 8859-16 was primarily designed for single-byte encoding the Romanian
  ;;   language. The UTF-8 charset is the preferred and in today's MIME software
  ;;   more widely implemented encoding suitable for Romanian.
--- 3928,3936 ----
  ;;   Slovenian. This set of coded graphic characters may be regarded as a
  ;;   version of an 8-bit code according to ISO/IEC 2022 or ISO/IEC 4873 at
  ;;   level 1." [ISO 8859-16:2001(E), p. 1]
!   
  ;;   This charset is suitable for use in MIME text body parts.
!   
  ;;   ISO 8859-16 was primarily designed for single-byte encoding the Romanian
  ;;   language. The UTF-8 charset is the preferred and in today's MIME software
  ;;   more widely implemented encoding suitable for Romanian.
***************
*** 3938,3944 ****
   iso-latin-10                         ; consistent with, e.g. Latin-1
   [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
!   ?\
    ?\Ą
    ?\ą
    ?\Ł
--- 3938,3944 ----
   iso-latin-10                         ; consistent with, e.g. Latin-1
   [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
!   ?\Â 
    ?\Ą
    ?\ą
    ?\Ł
***************
*** 4047,4053 ****
   iso-8859-6
   [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
!   ?\
    ?\¤
    ?\،
    ?\­
--- 4047,4053 ----
   iso-8859-6
   [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
!   ?\Â 
    ?\¤
    ?\،
    ?\­
***************
*** 4109,4115 ****
   iso-latin-6
   [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
!   ?\
    ?\Ą
    ?\Ē
    ?\Ä¢
--- 4109,4115 ----
   iso-latin-6
   [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
!   ?\Â 
    ?\Ą
    ?\Ē
    ?\Ä¢
***************
*** 4215,4221 ****
   iso-latin-7
   [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
!   ?\
    ?\¡
    ?\¢
    ?\£
--- 4215,4221 ----
   iso-latin-7
   [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
    nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
!   ?\Â 
    ?\¡
    ?\¢
    ?\£
***************
*** 4318,4327 ****
  (define-coding-system-alias 'iso-8859-13 'iso-latin-7)
  (define-coding-system-alias 'latin-7 'iso-latin-7)
  
  (cp-make-coding-system
   georgian-ps                          ; used by glibc for ka_GE
!  [?\
!   ?\
    ?\‚
    ?\ƒ
    ?\„
--- 4318,4330 ----
  (define-coding-system-alias 'iso-8859-13 'iso-latin-7)
  (define-coding-system-alias 'latin-7 'iso-latin-7)
  
+ ;; Fixme: check on the C1 characters which libiconv includes.  They
+ ;; are reproduced below, but are probably wrong.  I can't find an
+ ;; official definition of georgian-ps.
  (cp-make-coding-system
   georgian-ps                          ; used by glibc for ka_GE
!  [?\€
!   ?\
    ?\‚
    ?\ƒ
    ?\„
***************
*** 4333,4342 ****
    ?\Å 
    ?\‹
    ?\Œ
!   ?\
!   ?\
!   ?\
!   ?\
    ?\‘
    ?\’
    ?\“
--- 4336,4345 ----
    ?\Å 
    ?\‹
    ?\Œ
!   ?\
!   ?\Ž
!   ?\
!   ?\
    ?\‘
    ?\’
    ?\“
***************
*** 4349,4358 ****
    ?\Å¡
    ?\›
    ?\œ
!   ?\
!   ?\
    ?\Ÿ
!   ?\
    ?\¡
    ?\¢
    ?\£
--- 4352,4361 ----
    ?\Å¡
    ?\›
    ?\œ
!   ?\
!   ?\ž
    ?\Ÿ
!   ?\Â 
    ?\¡
    ?\¢
    ?\£
***************
*** 4718,4723 ****
--- 4721,4727 ----
  (define-coding-system-alias 'ruscii 'cp1125)
  ;; Original name for cp1125, says Serhii Hlodin <address@hidden>
  (define-coding-system-alias 'cp866u 'cp1125)
+ (coding-system-put 'cp1125 'mime-charset nil)
  
  ;; Suggested by Anton Zinoviev <address@hidden>: Bulgarian DOS
  ;; codepage.  Table at
***************
*** 4730,4735 ****
--- 4734,4740 ----
    ?┼ ?╣ ?║ ?╚ ?╔ ?╩ ?╦ ?╠ ?═ ?╬ ?┐ ?░ ?▒ ?▓ ?│ 
?┤ ?№ ?§ ?╗ ?╝ ?┘ ?┌ ?█
    ?▄ ?▌ ?▐ ?▀ ?α ?β ?Γ ?π ?Σ ?σ ?μ ?τ ?Φ ?Θ ?Ω ?δ ?∞ 
?∅ ?∈ ?∩ ?≡ ?± ?≥
    ?≤ ?⌠ ?⌡ ?÷ ?≈ ?° ?∙ ?· ?√ ?ⁿ ?² ?■ ? ])
+ (coding-system-put 'mik 'mime-charset nil)
  
  ;; Suggested by Anton Zinoviev <address@hidden>: similar to CP1251
  ;; and used for some non-Slavic Cyrillic languages.  Table found at
***************
*** 4744,4750 ****
    ?Е ?Ж ?З ?И ?Й ?К ?Л ?М ?Н ?О ?П ?Р ?С ?Т ?У ?Ф ?Х ?Ц ?Ч 
?Ш ?Щ ?Ъ ?Ы
    ?Ь ?Э ?Ю ?Я ?а ?б ?в ?г ?д ?е ?ж ?з ?и ?й ?к ?л ?м ?н ?о 
?п ?р ?с ?т
    ?у ?ф ?х ?ц ?ч ?ш ?щ ?ъ ?ы ?ь ?э ?ю ?я])
! 
  (cp-make-coding-system
   iso-8859-11
   [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
--- 4749,4755 ----
    ?Е ?Ж ?З ?И ?Й ?К ?Л ?М ?Н ?О ?П ?Р ?С ?Т ?У ?Ф ?Х ?Ц ?Ч 
?Ш ?Щ ?Ъ ?Ы
    ?Ь ?Э ?Ю ?Я ?а ?б ?в ?г ?д ?е ?ж ?з ?и ?й ?к ?л ?м ?н ?о 
?п ?р ?с ?т
    ?у ?ф ?х ?ц ?ч ?ш ?щ ?ъ ?ы ?ь ?э ?ю ?я])
!   
  (cp-make-coding-system
   iso-8859-11
   [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil