From: tomo <tomo>
Date: Wed, 12 May 2010 11:33:57 +0000 (+0000)
Subject: (=jis-x0208@1978/2-pr): New coded-charset for XEmacs CHISE.
X-Git-Tag: r21-4-22-chise-0_24-jis-x0213-2004-add^20~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a0c414d63b8ed88685b8d73058299384bff6176c;p=chise%2Fxemacs-chise.git

(=jis-x0208@1978/2-pr): New coded-charset for XEmacs CHISE.
(=jis-x0208@1978/4er): New coded-charset for XEmacs CHISE.
(=jis-x0208@1978/4-pr): Use `=jis-x0208@1978/2-pr' instead of
`=jis-x0208@1978/1er-pr' as the mother.
(=jis-x0208@1978/5pr): New coded-charset for XEmacs CHISE.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 0e30a04..3daff0a 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -83,12 +83,45 @@
 	      graphic 0
 	      partial t))
   (make-charset
+   '=jis-x0208@1978/2-pr
+   "JIS X 0208:1978, 2nd impression or later."
+   '(registry "jisx0208\\.1978"
+	      dimension 2
+	      chars 94
+	      mother =jis-x0208@1978/1er-pr
+              =>iso-ir 42
+	      ;; final ?@
+	      graphic 0
+	      partial t))
+  (make-charset
+   '=jis-x0208@1978/4er
+   "JIS X 0208:1978, replaced by errata of 4th impression."
+   '(registry "jisx0208\\.1978"
+	      dimension 2
+	      chars 94
+	      mother =jis-x0208@1978/2-pr
+              =>iso-ir 42
+	      ;; final ?@
+	      graphic 0
+	      partial t))
+  (make-charset
    '=jis-x0208@1978/4-pr
    "JIS X 0208:1978, 4th impression or later."
    '(registry "jisx0208\\.1978"
 	      dimension 2
 	      chars 94
-	      mother =jis-x0208@1978/1er-pr
+	      mother =jis-x0208@1978/2-pr
+              =>iso-ir 42
+	      ;; final ?@
+	      graphic 0
+	      partial t))
+  (make-charset
+   '=jis-x0208@1978/5pr
+   "JIS X 0208:1978, 5th impression."
+   '(registry "jisx0208\\.1978"
+	      dimension 2
+	      chars 94
+	      mother =jis-x0208@1978/4-pr
               =>iso-ir 42
 	      ;; final ?@
 	      graphic 0