From: tomo <tomo>
Date: Fri, 12 Sep 2008 15:43:37 +0000 (+0000)
Subject: (=jis-x0213-1-2000): Changed to the alias of `=jis-x0213-1@2000'
X-Git-Tag: r21-4-21-chise-0_24-5^20~39
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=53ca565e29a56854bd790fc9882fef05256d3e4e;p=chise%2Fxemacs-chise.git

(=jis-x0213-1-2000): Changed to the alias of `=jis-x0213-1@2000'
instead of `=jis-x0213-1'.
(=jis-x0208@1978/i-4): Specify `partial'.
(=jis-x0208@1978/i1): Likewise; use `=jis-x0208@1978/i-4' as the
mother coded-charset.
(=jis-x0208@1978/i4-): New coded-charset for XEmacs CHISE.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index ce6b22f..02f5f14 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -173,8 +173,7 @@
 
   (define-charset-alias 'japanese-jisx0213-1 '=jis-x0213-1@2000)
   (define-charset-alias 'japanese-jisx0213-2 '=jis-x0213-2)
-  ;; (define-charset-alias '=jis-x0213-1-2000 '=jis-x0213-1@2000)
-  (define-charset-alias '=jis-x0213-1-2000 '=jis-x0213-1)
+  (define-charset-alias '=jis-x0213-1-2000 '=jis-x0213-1@2000)
   (define-charset-alias '=jis-x0213-2-2000 '=jis-x0213-2)
   )
  (t
@@ -210,23 +209,35 @@
 	      ;; final ?B
 	      graphic 0))
   (make-charset
-   '=jis-x0208@1978/i1
-   "The first impression of JIS X 0208:1978."
+   '=jis-x0208@1978/i-4
+   "JIS X 0208:1978, 1st - 3rd impressions."
    '(registry "jisx0208\\.1978"
 	      dimension 2
 	      chars 94
 	      mother =jis-x0208@1978
-	      ;; final ?@
-	      graphic 0))
+              ;; final ?@
+	      graphic 0
+	      partial t))
   (make-charset
-   '=jis-x0208@1978/i-4
-   "The second and third impressions of JIS X 0208:1978."
+   '=jis-x0208@1978/i1
+   "JIS X 0208:1978, 1st impression."
+   '(registry "jisx0208\\.1978"
+	      dimension 2
+	      chars 94
+	      mother =jis-x0208@1978/i-4
+              ;; final ?@
+	      graphic 0
+	      partial t))
+  (make-charset
+   '=jis-x0208@1978/i4-
+   "JIS X 0208:1978, 4th impression or later."
    '(registry "jisx0208\\.1978"
 	      dimension 2
 	      chars 94
 	      mother =jis-x0208@1978
-	      ;; final ?@
-	      graphic 0))
+              ;; final ?@
+	      graphic 0
+	      partial t))
 
   (make-charset '=big5-cdp
 		"Big5 with CDP extension"