diff options
| author | Timo Myyrä <timo.myyra@bittivirhe.fi> | 2020-12-24 17:29:49 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2020-12-25 15:43:52 +0200 |
| commit | c3c1863d9504dd04ca6d5f169de2d0348ea78d62 (patch) | |
| tree | 6e3fd76d152a344ff51680cc071f6d2c99bbe5f0 /lisp/language/japanese.el | |
| parent | 64513abf3eb5f845f56250ff8dc0ab8a9d193956 (diff) | |
| download | emacs-c3c1863d9504dd04ca6d5f169de2d0348ea78d62.tar.gz emacs-c3c1863d9504dd04ca6d5f169de2d0348ea78d62.tar.bz2 emacs-c3c1863d9504dd04ca6d5f169de2d0348ea78d62.zip | |
Add support for more EBCDIC code pages IBM2XX
There was already charset file present in etc/charsets for IBM2XX
character sets but there wasn't definitions for them in Emacs.
Add character set and coding system definitions for them.
* lisp/language/japanese.el (ibm281, ibm290):
* lisp/language/european.el (ibm256, ibm273, ibm274, ibm277)
(ibm278, ibm280, ibm284, ibm285, ibm297):
* lisp/language/english.el (ibm275): New coding systems.
* lisp/international/mule-conf.el (ibm256, ibm273, ibm274)
(ibm275, ibm277, ibm278, ibm280, ibm281, ibm284, ibm285, ibm290)
(ibm297): New charsets.
Diffstat (limited to 'lisp/language/japanese.el')
| -rw-r--r-- | lisp/language/japanese.el | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el index 9a99245dfde..a517b4ea8eb 100644 --- a/lisp/language/japanese.el +++ b/lisp/language/japanese.el @@ -188,6 +188,22 @@ eucJP-ms is defined in <http://www.opengroup.or.jp/jvc/cde/appendix.html>." (define-coding-system-alias 'shift_jis-2004 'japanese-shift-jis-2004) +(define-coding-system 'ibm281 + "Japanese-E version of EBCDIC" + :coding-type 'charset + :charset-list '(ibm281) + :mnemonic ?*) +(define-coding-system-alias 'ebcdic-jp-e 'ibm281) +(define-coding-system-alias 'cp281 'ibm281) + +(define-coding-system 'ibm290 + "Japanese katakana version of EBCDIC" + :coding-type 'charset + :charset-list '(ibm290) + :mnemonic ?*) +(define-coding-system-alias 'ebcdic-jp-kana 'ibm290) +(define-coding-system-alias 'cp290 'ibm290) + (set-language-info-alist "Japanese" '((setup-function . setup-japanese-environment-internal) (exit-function . use-default-char-width-table) |