(ibm1047, cp1047): New.

diff --git a/lisp/language/english.el b/lisp/language/english.el
index c7426b4e9cd6bfe8bcc367917cb98dbf67c9bbfc..3cc93a313f5ccf97d228b2d9ba94be9c8f940c06 100644 (file)
--- a/lisp/language/english.el
+++ b/lisp/language/english.el
@@ -2,6 +2,7 @@
 
 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
+;; Copyright (C) 2002 Free Software Foundation, Inc.
 
 ;; Keywords: multibyte character, character set, syntax, category
 
@@ -51,6 +52,13 @@ Nothing special is needed to handle English.")
   :charset-list '(ebcdic-uk)
   :mnemonic ?*)
 
+(define-coding-system 'ibm1047
+  "A version of EBCDIC used in OS/390 Unix"  ; says Groff
+  :coding-type 'charset
+  :charset-list '(ibm1047)
+  :mnemonic ?*)
+(define-coding-system-alias 'cp1047 'ibm1047)
+
 ;; Make "ASCII" an alias of "English" language environment.
 (set-language-info-alist
  "ASCII" (cdr (assoc "English" language-info-alist)))