From: tomo <tomo>
Date: Fri, 6 Aug 2004 13:19:35 +0000 (+0000)
Subject: (M-13507): Use `->subsumptive' to integrate U+3AB7 and C3-392B; use
X-Git-Tag: r21-4-15-chise-0_21-31^2~99
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e2e253f05ed5db086e7c84c277ac65e99768813f;p=chise%2Fxemacs-chise.git

(M-13507): Use `->subsumptive' to integrate U+3AB7 and C3-392B; use
`ideographic-{radical|strokes}@{ucs|cns}' and
`ideographic-radical@ucs*sources'.
---

diff --git a/lisp/utf-2000/Ideograph-R068-Dipper.el b/lisp/utf-2000/Ideograph-R068-Dipper.el
index f5e7934..4e1fd2b 100644
--- a/lisp/utf-2000/Ideograph-R068-Dipper.el
+++ b/lisp/utf-2000/Ideograph-R068-Dipper.el
@@ -178,19 +178,29 @@
     (=cns11643-6	. #x4045)	; &I-C6-4045; [32-37]
     ))
 (define-char
-  '((ideographic-radical . 68)	; ⽃
-    (ideographic-strokes . 7)
+  '((ideographic-radical@ucs . 68)	; ⽃
+    (ideographic-strokes@ucs . 7)
+    (ideographic-radical@ucs*sources
+     daikanwa ucs)
+    (ideographic-radical@cns . 151)	; ⾖
+    (ideographic-strokes@cns . 4)
     (total-strokes	 . 11)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs		  . #x2FF0)	; â¿°
-      )
-     ((=ucs		  . #x8C46)	; 豆
+    (=ucs		. #x3AB7)	; 㪷
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=ucs		    . #x8C46)	; 豆
+	)
+       ((=ucs		    . #x6597)	; 斗
+	))
+      (=daikanwa	  . 13507)	; &M-13507;
+      (=cbeta		  . 00356)	; &I-CB00356;
+      (=ucs@unicode	  . #x3AB7)	; &M-13507;
       )
-     ((=ucs		  . #x6597)	; 斗
+     ((=cns11643-3	  . #x392B)	; &C3-392B; [25-11]
       ))
-    (=daikanwa		. 13507)	; &M-13507;
-    (=cbeta		. 00356)	; &I-CB00356;
     ))
 (define-char
   '((=>ucs		. #x659B)	; 斛