(U+3AB7): Add `ideographic-{radical|strokes}' in derived characters.

diff --git a/lisp/utf-2000/Ideograph-R068-Dipper.el b/lisp/utf-2000/Ideograph-R068-Dipper.el
index 4e1fd2b..04f362e 100644 (file)
--- a/lisp/utf-2000/Ideograph-R068-Dipper.el
+++ b/lisp/utf-2000/Ideograph-R068-Dipper.el
@@ -178,16 +178,13 @@
     (=cns11643-6       . #x4045)       ; &I-C6-4045; [32-37]
     ))
 (define-char
-  '((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)
+  '((total-strokes      . 11)
     (=ucs              . #x3AB7)       ; 㪷
     (->subsumptive
-     ((ideographic-structure
+     ((ideographic-radical . 68)       ; ⽃
+      (ideographic-strokes . 7)
+      (ideographic-radical*sources daikanwa cbeta ucs)
+      (ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
        (=ucs               . #x2FF0)   ; ⿰
        )
@@ -199,7 +196,9 @@
       (=cbeta            . 00356)      ; &I-CB00356;
       (=ucs@unicode      . #x3AB7)     ; &M-13507;
       )
-     ((=cns11643-3       . #x392B)     ; &C3-392B; [25-11]
+     ((ideographic-radical . 151)      ; ⾖
+      (ideographic-strokes . 4)
+      (=cns11643-3       . #x392B)     ; &C3-392B; [25-11]
       ))
     ))
 (define-char