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

1 files changed, 13 insertions, 0 deletions

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