(MJ057582): New character; unify KOSEKI-146800; add `<-formed' for

U+6538.

diff --git a/lisp/utf-2000/Ideograph-R066-Rap.el b/lisp/utf-2000/Ideograph-R066-Rap.el
index d63731f..535d046 100644 (file)
--- a/lisp/utf-2000/Ideograph-R066-Rap.el
+++ b/lisp/utf-2000/Ideograph-R066-Rap.el
@@ -527,6 +527,37 @@
     ))
 (define-char
   '((ideographic-radical . 66) ; ⽁
+    (ideographic-strokes . 3)
+    (total-strokes      . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=big5-cdp         . #x8B7A)     ; &CDP-8B7A;
+      )
+     ((=ucs              . #x6534)     ; 攴
+      ))
+    (=mj               . 057582)       ; &MJ057582;
+    (=koseki           . 146800)       ; &MJ057582;
+    (<-formed
+     ((=ucs              . #x6538)     ; 攸
+      ))
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+       (=ucs               . #x2FF0)   ; ⿰
+       )
+       ((=big5-cdp         . #x8B7A)   ; &CDP-8B7A;
+       )
+       ((==ucs@unicode     . #x6534)   ; &g2-AJ1-05058;
+       (==adobe-japan1-0   . 05058)    ; &g2-AJ1-05058;
+       ))
+      (==mj              . 057582)     ; &g2-MJ057582;
+      (==koseki                  . 146800)     ; &g2-MJ057582;
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 66) ; ⽁
     (ideographic-strokes . 4)
     (total-strokes      . 8)
     (=ucs              . #x22EF3)      ; 𢻳