# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1021666409 0
# Node ID c1d67f50c8f05e306e8e870751fa5d0ef53e1dc1
# Parent  e52f0de0d5d1b3cd7823a31ee05ded2a041f3012
(ebcdic-us, ebcdic-uk): New coding systems.

diff -r e52f0de0d5d1 -r c1d67f50c8f0 lisp/language/english.el
--- a/lisp/language/english.el	Fri May 17 20:11:06 2002 +0000
+++ b/lisp/language/english.el	Fri May 17 20:13:29 2002 +0000
@@ -38,6 +38,19 @@
 Nothing special is needed to handle English.")
 	     ))
 
+;; Mostly because we can now...
+(define-coding-system 'ebcdic-us
+  "US version of EBCDIC"
+  :coding-type 'charset
+  :charset-list '(ebcdic-us)
+  :mnemonic ?*)
+
+(define-coding-system 'ebcdic-uk
+  "UK version of EBCDIC"
+  :coding-type 'charset
+  :charset-list '(ebcdic-uk)
+  :mnemonic ?*)
+
 ;; Make "ASCII" an alias of "English" language environment.
 (set-language-info-alist
  "ASCII" (cdr (assoc "English" language-info-alist)))