diff options
| -rw-r--r-- | lisp/language/english.el | 13 |
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 @@ | |||
| 38 | Nothing special is needed to handle English.") | 38 | Nothing special is needed to handle English.") |
| 39 | )) | 39 | )) |
| 40 | 40 | ||
| 41 | ;; Mostly because we can now... | ||
| 42 | (define-coding-system 'ebcdic-us | ||
| 43 | "US version of EBCDIC" | ||
| 44 | :coding-type 'charset | ||
| 45 | :charset-list '(ebcdic-us) | ||
| 46 | :mnemonic ?*) | ||
| 47 | |||
| 48 | (define-coding-system 'ebcdic-uk | ||
| 49 | "UK version of EBCDIC" | ||
| 50 | :coding-type 'charset | ||
| 51 | :charset-list '(ebcdic-uk) | ||
| 52 | :mnemonic ?*) | ||
| 53 | |||
| 41 | ;; Make "ASCII" an alias of "English" language environment. | 54 | ;; Make "ASCII" an alias of "English" language environment. |
| 42 | (set-language-info-alist | 55 | (set-language-info-alist |
| 43 | "ASCII" (cdr (assoc "English" language-info-alist))) | 56 | "ASCII" (cdr (assoc "English" language-info-alist))) |