(ebcdic-us, ebcdic-uk): New coding systems.

diff --git a/lisp/language/english.el b/lisp/language/english.el
index cbfd206c20401daf59d10ff2e0dd0b709b05593a..c7426b4e9cd6bfe8bcc367917cb98dbf67c9bbfc 100644 (file)
--- a/lisp/language/english.el
+++ b/lisp/language/english.el
@@ -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)))