# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1034358773 0
# Node ID 492be7d36b2af4c1cd6c28a2f40a4cea670196e2
# Parent  3cdeb84525786e940180968e9e21af69745c7cee
(alternativnyj): Use new table.
(cp866): Define standalone, not as alias.
(ibm866): Change alias.
(ibm1047): New.

diff -r 3cdeb8452578 -r 492be7d36b2a lisp/international/mule-conf.el
--- a/lisp/international/mule-conf.el	Fri Oct 11 17:51:33 2002 +0000
+++ b/lisp/international/mule-conf.el	Fri Oct 11 17:52:53 2002 +0000
@@ -505,13 +505,15 @@
   :short-name "alternativnyj"
   :ascii-compatible-p t
   :code-space [0 255]
+  :map "alternativnyj")
+
+(define-charset 'cp866
+  "CP866"
+  :short-name "cp866"
+  :ascii-compatible-p t
+  :code-space [0 255]
   :map "ibm866")
-;; Fixme: http://czyborra.com/charsets/cyrillic.html says the
-;; following, but the iconv map for cp866 isn't the same as his chart
-;; for alternativnyj.  I can't find anything that looks like an
-;; official definition of alternativnyj.
-(define-charset-alias 'cp866 'alternativnyj)
-(define-charset-alias 'ibm866 'alternativnyj)
+(define-charset-alias 'ibm866 'cp866)
 
 (define-charset 'koi8-u
   "KOI8-U"
@@ -948,6 +950,15 @@
   :mime-charset 'ebcdic-uk
   :map "ebcdic-uk")
 
+(define-charset 'ibm1047
+  ;; Says groff:
+  "IBM1047, some form of EBCDIC used by OS/390 Unix."
+  :short-name "IBM1047"
+  :code-space [0 255]
+  :mime-charset 'ibm1047
+  :map "ibm1047")
+(define-charset-alias 'cp1047 'ibm1047)
+
 (define-charset 'hp-roman8
   "Encoding used by Hewlet-Packard printer software"
   :short-name "HP-ROMAN8"