From 8daf0fe537a2f1bd0bc739a10fa9cdb6e6d1d515 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Fri, 14 Feb 2003 18:45:40 +0000
Subject: [PATCH] Undo `Trailing whitepace deleted.' damage. (cp1125, mik):
 Nullify mime-charset.

---
 lisp/international/code-pages.el | 61 +++++++++++++++++---------------
 1 file changed, 33 insertions(+), 28 deletions(-)

diff --git a/lisp/international/code-pages.el b/lisp/international/code-pages.el
index c99fd03e6f7..21f98ca614a 100644
--- a/lisp/international/code-pages.el
+++ b/lisp/international/code-pages.el
@@ -2362,7 +2362,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
   nil
   nil
   nil
-  ?\
+  ?\ 
   ?\ก
   ?\ข
   ?\ฃ
@@ -2493,7 +2493,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
   ?\Å¥
   ?\ž
   ?\ź
-  ?\
+  ?\ 
   ?\ˇ
   ?\˘
   ?\Ł
@@ -2625,7 +2625,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
   ?\ќ
   ?\ћ
   ?\џ
-  ?\
+  ?\ 
   ?\Ў
   ?\ў
   ?\Ј
@@ -2757,7 +2757,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
   nil
   nil
   ?\Ÿ
-  ?\
+  ?\ 
   ?\¡
   ?\¢
   ?\£
@@ -2888,7 +2888,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
   nil
   nil
   nil
-  ?\
+  ?\ 
   ?\΅
   ?\Ά
   ?\£
@@ -3020,7 +3020,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
   nil
   nil
   ?\Ÿ
-  ?\
+  ?\ 
   ?\¡
   ?\¢
   ?\£
@@ -3152,7 +3152,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
   nil
   nil
   nil
-  ?\
+  ?\ 
   ?\¡
   ?\¢
   ?\£
@@ -3284,7 +3284,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
   ?\Ø¢
   ?\Ø£
   ?\Ÿ
-  ?\
+  ?\ 
   ?\ؤ
   ?\Ø¥
   ?\£
@@ -3416,7 +3416,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
   nil
   nil
   nil
-  ?\
+  ?\ 
   nil
   ?\¢
   ?\£
@@ -3547,7 +3547,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
   nil
   nil
   ?\Ÿ
-  ?\
+  ?\ 
   ?\¡
   ?\¢
   ?\£
@@ -3646,7 +3646,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
 
 (cp-make-coding-system
  next
- [?\
+ [?\ 
   ?\À
   ?\Á
   ?\Â
@@ -3916,7 +3916,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
 ;;   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,9 +3928,9 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
 ;;   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,7 +3938,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
  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,7 +4047,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
  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,7 +4109,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
  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,7 +4215,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
  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,10 +4318,13 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
 (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,10 +4336,10 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
   ?\Å 
   ?\‹
   ?\Œ
-  ?\
-  ?\
-  ?\
-  ?\
+  ?\
+  ?\Ž
+  ?\
+  ?\
   ?\‘
   ?\’
   ?\“
@@ -4349,10 +4352,10 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
   ?\Å¡
   ?\›
   ?\œ
-  ?\
-  ?\
+  ?\
+  ?\ž
   ?\Ÿ
-  ?\
+  ?\ 
   ?\¡
   ?\¢
   ?\£
@@ -4718,6 +4721,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
 (define-coding-system-alias 'ruscii 'cp1125)
 ;; Original name for cp1125, says Serhii Hlodin <hlodin@lutsk.bank.gov.ua>
 (define-coding-system-alias 'cp866u 'cp1125)
+(coding-system-put 'cp1125 'mime-charset nil)
 
 ;; Suggested by Anton Zinoviev <anton@lml.bas.bg>: Bulgarian DOS
 ;; codepage.  Table at
@@ -4730,6 +4734,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
   ?┼ ?╣ ?║ ?╚ ?╔ ?╩ ?╦ ?╠ ?═ ?╬ ?┐ ?░ ?▒ ?▓ ?│ ?┤ ?№ ?§ ?╗ ?╝ ?┘ ?┌ ?█
   ?▄ ?▌ ?▐ ?▀ ?α ?β ?Γ ?π ?Σ ?σ ?μ ?τ ?Φ ?Θ ?Ω ?δ ?∞ ?∅ ?∈ ?∩ ?≡ ?± ?≥
   ?≤ ?⌠ ?⌡ ?÷ ?≈ ?° ?∙ ?· ?√ ?ⁿ ?² ?■ ? ])
+(coding-system-put 'mik 'mime-charset nil)
 
 ;; Suggested by Anton Zinoviev <anton@lml.bas.bg>: similar to CP1251
 ;; and used for some non-Slavic Cyrillic languages.  Table found at
@@ -4744,7 +4749,7 @@ corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
   ?Е ?Ж ?З ?И ?Й ?К ?Л ?М ?Н ?О ?П ?Р ?С ?Т ?У ?Ф ?Х ?Ц ?Ч ?Ш ?Щ ?Ъ ?Ы
   ?Ь ?Э ?Ю ?Я ?а ?б ?в ?г ?д ?е ?ж ?з ?и ?й ?к ?л ?м ?н ?о ?п ?р ?с ?т
   ?у ?ф ?х ?ц ?ч ?ш ?щ ?ъ ?ы ?ь ?э ?ю ?я])
-
+  
 (cp-make-coding-system
  iso-8859-11
  [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
-- 
2.39.2