From 27840becb150ca8a65ee81dba4a3acd965dd574f Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sun, 15 May 2005 16:51:46 +0000
Subject: [PATCH] (U-0002001B): Copied from Ideograph-R001-One.el. (M-05861):
 Use `<-subsumptive' for U-0002001B. (BC-87EE): Likewise;
 unify H1-A7B3. (U+3691): Use `->subsumptive'.

---
 lisp/utf-2000/Ideograph-R037-Big.el |   42 ++++++++++++++++++++++++-----------
 1 file changed, 29 insertions(+), 13 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R037-Big.el b/lisp/utf-2000/Ideograph-R037-Big.el
index 9aa885a..bd21577 100644
--- a/lisp/utf-2000/Ideograph-R037-Big.el
+++ b/lisp/utf-2000/Ideograph-R037-Big.el
@@ -469,24 +469,40 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 37)	; ⼤
-    (ideographic-strokes . 3)
-    (total-strokes	 . 6)
-    (=daikanwa		. 05861)	; &M-05861;
-    ))
-(define-char
-  '((morohashi-daikanwa	5861 0 0)
-    (ideographic-radical . 37)	; ⼤
-    (ideographic-strokes . 3)
+  '((ideographic-radical@ucs . 1)	; ⼀
+    (ideographic-strokes@ucs . 5)
+    (ideographic-radical@daikanwa . 37)	; ⼤
+    (ideographic-strokes@daikanwa . 3)
     (total-strokes	 . 6)
-    (=big5-cdp		. #x87EE)	; &CDP-87EE;
+    (=ucs		. #x2001B)	; 𠀛
+    (->subsumptive
+     ((=daikanwa	  . 05861)	; &M-05861;
+      )
+     ((hanyu-dazidian	  1 17 9)
+      (ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((=ucs		    . #x4E00)	; 一
+	)
+       ((=ucs@iso	    . #x215DA)	; &U-000215DA;
+	))
+      (=big5-cdp	  . #x87EE)	; &CDP-87EE;
+      (=hanziku-1	  . #xA7B3)	; &I-HZK01-A7B3;
+      (=ucs@iso		  . #x2001B)	; &CDP-87EE;
+      ))
     ))
 (define-char
   '((ideographic-radical . 37)	; ⼤
     (ideographic-strokes . 3)
     (total-strokes	 . 6)
     (=ucs		. #x3691)	; 㚑
-    (=jis-x0213-2-2000	. #x253F)	; &I-JX2-253F; [05-31]
+    (->subsumptive
+     ((=jis-x0213-2-2000  . #x253F)	; &JX2-253F; [05-31]
+      (=ucs@jis		  . #x3691)	; &JX2-253F;
+      )
+     ((=ucs@unicode	  . #x3691)	; &UU+3691;
+      ))
     ))
 (define-char
   '((ideographic-radical . 37)	; ⼤
@@ -2017,7 +2033,7 @@
     (total-strokes	 . 11)
     (=ucs		. #x2162C)	; 𡘬
     (->subsumptive
-     ((=ucs@iso		  . #x2162C)	; &UU+2162C;
+     ((=ucs@iso		  . #x2162C)	; &U-0002162C;
       )
      ((hanyu-dazidian	  1 542 1)
       (=hanziku-2	  . #xBF74)	; &HZK02-BF74;
@@ -2032,7 +2048,7 @@
      ((hanyu-dazidian	  1 543 3)
       (=hanziku-2	  . #xBFB8)	; &HZK02-BFB8;
       )
-     ((=ucs@iso		  . #x21643)	; &UU+21643;
+     ((=ucs@iso		  . #x21643)	; &U-00021643;
       ))
     ))
 (define-char
-- 
1.7.10.4