From: tomo <tomo>
Date: Mon, 15 Sep 2008 17:24:25 +0000 (+0000)
Subject: (=jis-x0208@1978): New coded-charset [moved from src/mule-charset.c].
X-Git-Tag: r21-4-21-chise-0_24-5^20~25
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9f492284ed161f629df3f6de82678fe8d3d51d41;p=chise%2Fxemacs-chise.git

(=jis-x0208@1978): New coded-charset [moved from src/mule-charset.c].
(=jis-x0208@1978/-4pr): Renamed from `=jis-x0208@1978/i-4'; specify
`final'.
(=jis-x0208@1978/1pr): Renamed from `=jis-x0208@1978/i1'; specify
`iso-ir' and `final', namely now it is used as ISO-IR-42.
(=jis-x0208@1978/4-pr): Renamed from `=jis-x0208@1978/i4-'.
(=jis-x0208@1978/i1): New alias for `=jis-x0208@1978/1pr'.
(=jis-x0208@1978/i-4): New alias for `=jis-x0208@1978/-4pr'.
(=jis-x0208@1978/i4-): New alias for `=jis-x0208@1978/4-pr'.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 02f5f14..9ac3e73 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -25,6 +25,65 @@
 
 ;;; Code:
 
+(cond
+ ((featurep 'utf-2000)
+  (make-charset
+   '=jis-x0208@1978
+   "JIS X 0208:1978, unchanged part."
+   '(registry "jisx0208\\.1978"
+	      dimension 2
+	      chars 94
+	      mother =jis-x0208
+	      final ?@
+	      graphic 0
+	      partial t))
+  (make-charset
+   '=jis-x0208@1978/-4pr
+   "JIS X 0208:1978, 1st - 3rd impressions."
+   '(registry "jisx0208\\.1978"
+	      dimension 2
+	      chars 94
+	      mother =jis-x0208@1978
+	      final ?@
+	      graphic 0
+	      partial t))
+  (make-charset
+   '=jis-x0208@1978/1pr
+   "JIS X 0208:1978, 1st impression."
+   '(iso-ir 42
+	    registry "jisx0208\\.1978"
+	    dimension 2
+	    chars 94
+	    mother =jis-x0208@1978/-4pr
+	    final ?@
+	    graphic 0))
+  (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
+              ;; final ?@
+	      graphic 0
+	      partial t))
+  (define-charset-alias '=jis-x0208@1978/i1 '=jis-x0208@1978/1pr)
+  (define-charset-alias '=jis-x0208@1978/i-4 '=jis-x0208@1978/-4pr)
+  (define-charset-alias '=jis-x0208@1978/i4- '=jis-x0208@1978/4-pr)
+  )
+ (t
+  (make-charset
+   '=jis-x0208@1978
+   "JIS X0208:1978 Japanese Kanji (so called \"old JIS\")."
+   '(iso-ir 42
+	    registry "jisx0208\\.1978"
+	    dimension 2
+	    chars 94
+	    mother =jis-x0208
+	    final ?@
+	    graphic 0))
+  ))
+
 (define-charset-alias '=jis-x0208-1978		'=jis-x0208@1978)
 (define-charset-alias 'japanese-jisx0208-1978	'=jis-x0208@1978)
 (define-charset-alias 'chinese-gb2312		'=gb2312)
@@ -208,36 +267,6 @@
 	      mother =jis-x0208
 	      ;; final ?B
 	      graphic 0))
-  (make-charset
-   '=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
-	      partial t))
-  (make-charset
-   '=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
-	      partial t))
 
   (make-charset '=big5-cdp
 		"Big5 with CDP extension"