Mercurial > emacs

changeset 49797:bc572bfebdfc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Undo `Trailing whitepace deleted.' damage. (cp1125, mik): Nullify mime-charset.
author Dave Love <fx@gnu.org>
date Fri, 14 Feb 2003 18:45:40 +0000
parents 9444af9dba75
children 48a58e6b11cc
files lisp/international/code-pages.el
diffstat 1 files changed, 33 insertions(+), 28 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/code-pages.el	Fri Feb 14 18:42:31 2003 +0000
+++ b/lisp/international/code-pages.el	Fri Feb 14 18:45:40 2003 +0000
@@ -2362,7 +2362,7 @@
   nil
   nil
   nil
-  ?\
+  ?\ 
   ?\ก
   ?\ข
   ?\ฃ
@@ -2493,7 +2493,7 @@
   ?\ť
   ?\ž
   ?\ź
-  ?\
+  ?\ 
   ?\ˇ
   ?\˘
   ?\Ł
@@ -2625,7 +2625,7 @@
   ?\ќ
   ?\ћ
   ?\џ
-  ?\
+  ?\ 
   ?\Ў
   ?\ў
   ?\Ј
@@ -2757,7 +2757,7 @@
   nil
   nil
   ?\Ÿ
-  ?\
+  ?\ 
   ?\¡
   ?\¢
   ?\£
@@ -2888,7 +2888,7 @@
   nil
   nil
   nil
-  ?\
+  ?\ 
   ?\΅
   ?\Ά
   ?\£
@@ -3020,7 +3020,7 @@
   nil
   nil
   ?\Ÿ
-  ?\
+  ?\ 
   ?\¡
   ?\¢
   ?\£
@@ -3152,7 +3152,7 @@
   nil
   nil
   nil
-  ?\
+  ?\ 
   ?\¡
   ?\¢
   ?\£
@@ -3284,7 +3284,7 @@
   ?\آ
   ?\أ
   ?\Ÿ
-  ?\
+  ?\ 
   ?\ؤ
   ?\إ
   ?\£
@@ -3416,7 +3416,7 @@
   nil
   nil
   nil
-  ?\
+  ?\ 
   nil
   ?\¢
   ?\£
@@ -3547,7 +3547,7 @@
   nil
   nil
   ?\Ÿ
-  ?\
+  ?\ 
   ?\¡
   ?\¢
   ?\£
@@ -3646,7 +3646,7 @@
 
 (cp-make-coding-system
  next
- [?\
+ [?\ 
   ?\À
   ?\Á
   ?\Â
@@ -3916,7 +3916,7 @@
 ;;   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 @@
 ;;   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 @@
  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 @@
  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 @@
  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 @@
  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 @@
 (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 @@
   ?\Š
   ?\‹
   ?\Œ
-  ?\
-  ?\
-  ?\
-  ?\
+  ?\
+  ?\Ž
+  ?\
+  ?\
   ?\‘
   ?\’
   ?\“
@@ -4349,10 +4352,10 @@
   ?\š
   ?\›
   ?\œ
-  ?\
-  ?\
+  ?\
+  ?\ž
   ?\Ÿ
-  ?\
+  ?\ 
   ?\¡
   ?\¢
   ?\£
@@ -4718,6 +4721,7 @@
 (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 @@
   ?┼ ?╣ ?║ ?╚ ?╔ ?╩ ?╦ ?╠ ?═ ?╬ ?┐ ?░ ?▒ ?▓ ?│ ?┤ ?№ ?§ ?╗ ?╝ ?┘ ?┌ ?█
   ?▄ ?▌ ?▐ ?▀ ?α ?β ?Γ ?π ?Σ ?σ ?μ ?τ ?Φ ?Θ ?Ω ?δ ?∞ ?∅ ?∈ ?∩ ?≡ ?± ?≥
   ?≤ ?⌠ ?⌡ ?÷ ?≈ ?° ?∙ ?· ?√ ?ⁿ ?² ?■ ? ])
+(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 @@
   ?Е ?Ж ?З ?И ?Й ?К ?Л ?М ?Н ?О ?П ?Р ?С ?Т ?У ?Ф ?Х ?Ц ?Ч ?Ш ?Щ ?Ъ ?Ы
   ?Ь ?Э ?Ю ?Я ?а ?б ?в ?г ?д ?е ?ж ?з ?и ?й ?к ?л ?м ?н ?о ?п ?р ?с ?т
   ?у ?ф ?х ?ц ?ч ?ш ?щ ?ъ ?ы ?ь ?э ?ю ?я])
-
+  
 (cp-make-coding-system
  iso-8859-11
  [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil