(ibm1047, cp1047): New.

1 files changed, 8 insertions, 0 deletions

diff --git a/lisp/language/english.el b/lisp/language/english.el
index c7426b4e9cd..3cc93a313f5 100644
--- 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)))