# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1034358693 0
# Node ID 3cdeb84525786e940180968e9e21af69745c7cee
# Parent  02355a7106cbffd2adbdf733f772c5db28d82db9
(ibm1047, cp1047): New.

diff -r 02355a7106cb -r 3cdeb8452578 lisp/language/english.el
--- a/lisp/language/english.el	Fri Oct 11 17:48:56 2002 +0000
+++ b/lisp/language/english.el	Fri Oct 11 17:51:33 2002 +0000
@@ -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 @@
   :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)))