From: tomo <tomo>
Date: Wed, 13 Aug 2008 02:59:00 +0000 (+0000)
Subject: (=shinjigen@1ed): Renamed from `shinjigen-1'; define it as an alias.
X-Git-Tag: r21-4-21-chise-0_24-=shinjigen^20~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e693284cc0a309e46c60e04f667d4f5b4fe52431;p=chise%2Fxemacs-chise.git.1

(=shinjigen@1ed): Renamed from `shinjigen-1'; define it as an alias.
(=shinjigen@1ed/24pr): New coded-charset for XEmacs CHISE.
(=shinjigen@rev): Renamed from `shinjigen-2'; define it as an alias.
(=shinjigen/+p@rev): Renamed from `shinjigen-2-p'; define it as an
alias.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 7647adc..169d35b 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -327,7 +327,7 @@
 		  ))
   (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2)
 
-  (make-charset 'shinjigen-1
+  (make-charset '=shinjigen@1ed
 		"Kadokawa ShinJigen dictionary (the first edition)"
 		`(long-name	"Shinjigen-1"
 		  chars		256
@@ -336,8 +336,20 @@
 		  graphic	2
 		  direction	l2r
 		  registry	"Shinjigen\\(\\.[0-9]+\\)?-1"))
-  (make-charset 'shinjigen-2
-		"Kadokawa ShinJigen dictionary (the second edition)"
+  (define-charset-alias 'shinjigen-1 '=shinjigen@1ed)
+
+  (make-charset '=shinjigen@1ed/24pr
+		"Kadokawa ShinJigen dictionary (the 24th impression)"
+		`(long-name	"Shinjigen-1 24pr"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	=shinjigen@1ed))
+
+  (make-charset '=shinjigen@rev
+		"Kadokawa ShinJigen dictionary (the revised edition)"
 		`(long-name	"Shinjigen-2"
 		  chars		256
 		  dimension	2
@@ -345,7 +357,8 @@
 		  graphic	2
 		  direction	l2r
 		  registry	"Shinjigen\\(\\.[0-9]+\\)?-2"))
-  (make-charset 'shinjigen-2-p
+  (define-charset-alias 'shinjigen-2 '=shinjigen@rev)
+  (make-charset '=shinjigen/+p@rev
 		"ShinJigen (the second edition) number with '"
 		`(long-name	"Shinjigen-2 with '"
 		  chars		256
@@ -353,6 +366,7 @@
 		  columns	2
 		  graphic	2
 		  direction	l2r))
+  (define-charset-alias 'shinjigen-2-p '=shinjigen/+p@rev)
 
   (make-charset '=big5-pua
 		"Big5 with private used area"