Mercurial > emacs
changeset 24332:29c0557957ba
(iso-2022-jp-2): New coding system.
("Japanese"): Put iso-2022-jp-2 in coding-priority property.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 17 Feb 1999 00:15:34 +0000 |
| parents | 84dcf9017a67 |
| children | 03cf9e15c988 |
| files | lisp/language/japanese.el |
| diffstat | 1 files changed, 15 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/japanese.el Tue Feb 16 23:09:54 1999 +0000 +++ b/lisp/language/japanese.el Wed Feb 17 00:15:34 1999 +0000 @@ -42,6 +42,20 @@ (define-coding-system-alias 'junet 'iso-2022-jp) (make-coding-system + 'iso-2022-jp-2 2 ?J + "ISO 2022 based 7bit encoding for CJK, Latin-1, and Greek (MIME:ISO-2022-JP-2)" + '((ascii japanese-jisx0208-1978 japanese-jisx0208 + latin-jisx0201 japanese-jisx0212 katakana-jisx0201 + chinese-gb2312 korean-ksc5601) nil + (nil latin-iso8859-1 greek-iso8859-7) nil + short ascii-eol ascii-cntl seven nil single-shift) + '((safe-charsets ascii japanese-jisx0208-1978 japanese-jisx0208 + latin-jisx0201 japanese-jisx0212 katakana-jisx0201 + chinese-gb2312 korean-ksc5601 + latin-iso8859-1 greek-iso8859-7) + (mime-charset . iso-2022-jp-2))) + +(make-coding-system 'japanese-shift-jis 1 ?S "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)" nil @@ -87,7 +101,7 @@ (coding-system iso-2022-jp japanese-iso-8bit japanese-shift-jis japanese-iso-7bit-1978-irv) (coding-priority iso-2022-jp japanese-iso-8bit - japanese-shift-jis) + japanese-shift-jis iso-2022-jp-2) (input-method . "japanese") (features japan-util) (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B")