From f08096f9b33e30ccfe8c9c3e1d2ed83a6f9753bc Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 19 Jan 2004 13:39:34 +0000 Subject: [PATCH] (utf-8-jis): Use `=ucs@jis-2000' instead of `ucs-jis'. (utf-8-jis-er): Likewise. (utf-8-jp): New coding-system. (utf-8-jp-er): Likewise. --- lisp/mule/mule-coding.el | 21 +++++++++++++++++++-- 1 file changed, 19 insertions(+), 2 deletions(-) diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el index 01011ca..a185f9f 100644 --- a/lisp/mule/mule-coding.el +++ b/lisp/mule/mule-coding.el @@ -284,7 +284,7 @@ 'utf-8-jis 'utf-8 "Coding-system of UTF-8 using JIS mapping." '(mnemonic "UTF8J" - charset-g0 ucs-jis + charset-g0 =ucs@jis-2000 charset-g1 =>ucs-jis charset-g2 =>ucs)) @@ -292,7 +292,24 @@ 'utf-8-jis-er 'utf-8 "Coding-system of UTF-8 using JIS mapping with entity-reference." '(mnemonic "UTF8Jr" - charset-g0 ucs-jis + charset-g0 =ucs@jis-2000 + charset-g1 =>ucs-jis + charset-g2 =>ucs + use-entity-reference t)) + + (make-coding-system + 'utf-8-jp 'utf-8 + "Coding-system of UTF-8 for common glyphs used in Japan." + '(mnemonic "UTF8J" + charset-g0 =ucs@jp + charset-g1 =>ucs-jis + charset-g2 =>ucs)) + + (make-coding-system + 'utf-8-jp-er 'utf-8 + "Coding-system of UTF-8 using =ucs@jp mapping with entity-reference." + '(mnemonic "UTF8Jr" + charset-g0 =ucs@jp charset-g1 =>ucs-jis charset-g2 =>ucs use-entity-reference t)) -- 1.7.10.4