From e2e253f05ed5db086e7c84c277ac65e99768813f Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 6 Aug 2004 13:19:35 +0000
Subject: [PATCH] (M-13507): Use `->subsumptive' to integrate U+3AB7 and
 C3-392B; use `ideographic-{radical|strokes}@{ucs|cns}' and
 `ideographic-radical@ucs*sources'.

---
 lisp/utf-2000/Ideograph-R068-Dipper.el |   30 ++++++++++++++++++++----------
 1 file changed, 20 insertions(+), 10 deletions(-)

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)	; 斛
-- 
1.7.10.4