From: tomo <tomo>
Date: Mon, 19 Jan 2004 13:39:34 +0000 (+0000)
Subject: (utf-8-jis): Use `=ucs@jis-2000' instead of `ucs-jis'.
X-Git-Tag: r21-4-14-chise-0_21-19^2~58
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f08096f9b33e30ccfe8c9c3e1d2ed83a6f9753bc;p=chise%2Fxemacs-chise.git

(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.
---

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))