From e693284cc0a309e46c60e04f667d4f5b4fe52431 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 13 Aug 2008 02:59:00 +0000
Subject: [PATCH] (=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.

---
 lisp/mule/mule-conf.el |   22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

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"
-- 
1.7.10.4