(U+6BD3): Unify A-J0-5D5A.

(G-UU+6BD3): New abstract glyph to integrate J0-5D5A and G0-5839.
(J0-5D5A): Add `<-ancient' for J0-3069.

diff --git a/lisp/utf-2000/Ideograph-R080-Do-Not.el b/lisp/utf-2000/Ideograph-R080-Do-Not.el
index 6b79908..b2eff27 100644 (file)
--- a/lisp/utf-2000/Ideograph-R080-Do-Not.el
+++ b/lisp/utf-2000/Ideograph-R080-Do-Not.el
@@ -425,22 +425,37 @@
 (define-char
   '((ideographic-radical . 80) ; ⽏
     (=ucs              . #x6BD3)       ; 毓
+    (=>jis-x0208       . #x5D5A)       ; 毓 [61-58]
+    (=>jis-x0213-1     . #x5D5A)       ; 毓 [61-58]
     (=big5             . #xB7B6)       ; &I-B-B7B6;
     (->subsumptive
      ((ideographic-strokes . 10)
       (total-strokes      . 14)
-      (=ucs@jis                  . #x6BD3)     ; &GT-21457;
-      (=jis-x0208        . #x5D5A)     ; &GT-21457; [61-58]
-      (=ks-x1001         . #x6B3E)     ; &I-K0-6B3E; [75-30]
-      (=jis-x0213-1      . #x5D5A)     ; &I-JX1-5D5A; [61-58]
-      (=gt               . 21457)      ; &I-GT-21457;
-      (=gt-pj-1                  . #x5D5A)     ; &I-GT-21457; [61-58]
-      (=daikanwa         . 16740)      ; &I-M-16740;
-      )
-     ((ideographic-strokes . 10)
-      (total-strokes      . 14)
-      (=ucs@unicode      . #x6BD3)     ; &G0-5839;
-      (=gb2312           . #x5839)     ; &G0-5839; [56-25]
+      (=>>ucs@unicode    . #x6BD3)     ; &G-UU+6BD3;
+      (->subsumptive
+       ((=ucs@jis          . #x6BD3)   ; &GT-21457;
+       (=jis-x0208         . #x5D5A)   ; &GT-21457; [61-58]
+       (=ks-x1001          . #x6B3E)   ; &I-K0-6B3E; [75-30]
+       (=jis-x0213-1       . #x5D5A)   ; &I-JX1-5D5A; [61-58]
+       (=gt                . 21457)    ; &I-GT-21457;
+       (=gt-pj-1           . #x5D5A)   ; &I-GT-21457; [61-58]
+       (=daikanwa          . 16740)    ; &I-M-16740;
+       (=shinjigen         .  6433)    ; &GT-21457;
+       (<-ancient
+        ((=ucs@jis           . #x80B2) ; &GT-37901;
+         (=ucs@ks            . #x80B2) ; &GT-37901;
+         (=jis-x0208         . #x3069) ; &GT-37901; [16-73]
+         (=ks-x1001          . #x6B40) ; &I-K0-6B40; [75-32]
+         (=jis-x0213-1       . #x3069) ; &I-JX1-3069; [16-73]
+         (=daikanwa          . 29318)  ; &I-M-29318;
+         (=shinjigen         .  6431)  ; &GT-37901;
+         ))
+       (<-ancient*sources
+        shinjigen)
+       )
+       ((=ucs@unicode      . #x6BD3)   ; &G0-5839;
+       (=gb2312            . #x5839)   ; &G0-5839; [56-25]
+       ))
       )
      ((ideographic-strokes . 9)
       (total-strokes      . 13)