From: Dave Love <fx@gnu.org>
Date: Fri, 11 Oct 2002 17:51:33 +0000 (+0000)
Subject: (ibm1047, cp1047): New.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~254
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f56ad11ce04ecea68f71178d5ce21f0c5d4758bf;p=emacs.git

(ibm1047, cp1047): New.
---

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)))