(U-00024517): Copied from Ideograph-R087-Claw.el; use `->subsumptive'.

(C6-4743): Use `<-subsumptive' for U-00024517; unify H5-F8B3 and
IU-00024517 instead of using `->identical' for U-00024517.

diff --git a/lisp/utf-2000/Ideograph-R031-Enclosure.el b/lisp/utf-2000/Ideograph-R031-Enclosure.el
index f9c422a..3a4c7d2 100644 (file)
--- a/lisp/utf-2000/Ideograph-R031-Enclosure.el
+++ b/lisp/utf-2000/Ideograph-R031-Enclosure.el
@@ -2695,22 +2695,22 @@
     (=hanziku-2                . #xE6C7)       ; &HZK02-E6C7;
     ))
 (define-char
-  '((=>ucs             . #x24517)      ; 𤔗
-    (ideographic-radical . 31) ; ⼞
-    (ideographic-strokes . 9)
+  '((ideographic-radical@ucs . 87)     ; ⽖
+    (ideographic-strokes@ucs . 9)
+    (ideographic-radical@cns . 31)     ; ⼞
+    (ideographic-strokes@cns . 9)
+    (ideographic-radical@cns*sources
+     daikanwa cns11643)
     (total-strokes      . 12)
-    (=daikanwa         . 04811)        ; &M-04811;
-    ))
-(define-char
-  '((=>ucs             . #x24517)      ; 𤔗
-    (morohashi-daikanwa        4811 0 0)
-    (ideographic-radical . 31) ; ⼞
-    (ideographic-strokes . 9)
-    (total-strokes      . 12)
-    (->identical
-     ((=ucs              . #x24517)    ; 𤔗
+    (=ucs              . #x24517)      ; 𤔗
+    (->subsumptive
+     ((=daikanwa         . 04811)      ; &M-04811;
+      )
+     ((hanyu-dazidian    3 2033 18)
+      (=cns11643-6       . #x4743)     ; &HZK05-F8B3; [39-35]
+      (=hanziku-5        . #xF8B3)     ; &I-HZK05-F8B3;
+      (=ucs@iso                  . #x24517)    ; &HZK05-F8B3;
       ))
-    (=cns11643-6       . #x4743)       ; &C6-4743; [39-35]
     ))
 (define-char
   '((=>ucs             . #x21207)      ; 𡈇