(K0-795E): Unify KU+51FD; use `->subsumptive' to add representative

detailed-glyph-node.

diff --git a/lisp/utf-2000/Ideograph-R017-Open-Box.el b/lisp/utf-2000/Ideograph-R017-Open-Box.el
index 80c5a3b..e8fdc51 100644 (file)
--- a/lisp/utf-2000/Ideograph-R017-Open-Box.el
+++ b/lisp/utf-2000/Ideograph-R017-Open-Box.el
@@ -630,6 +630,7 @@
      ((=ucs              . #xE0100)    ; 󠄀
       ))
     (=ucs@jis          . #x51FD)       ; &AJ1-03381;
+    (=ucs@ks           . #x51FD)       ; &AJ1-03381;
     (=adobe-japan1-0   . 03381)        ; &AJ1-03381;
     (=jis-x0208                . #x4821)       ; &I-J90-4821; [40-01]
     (=ks-x1001         . #x795E)       ; &I-K0-795E; [89-62]
@@ -639,6 +640,22 @@
     (=gt-pj-1          . #x4821)       ; &I-GT-02383; [40-01]
     (=daikanwa         . 01826)        ; &I-M-01826;
     (=shinjigen                .  0584)        ; &AJ1-03381;
+    (->subsumptive
+     ((==daikanwa        . 01826)      ; &R-M-01826;
+      )
+     ((==ucs@jis         . #x51FD)     ; &R-J90-4821;
+      (==jis-x0208       . #x4821)     ; &R-J90-4821; [40-01]
+      (==jis-x0213-1     . #x4821)     ; &R-J90-4821; [40-01]
+      (==shinjigen       .  0584)      ; &R-J90-4821;
+      )
+     ((==ucs@ks                  . #x51FD)     ; &R-K0-795E;
+      (==ks-x1001        . #x795E)     ; &R-K0-795E; [89-62]
+      )
+     ((==gt              . 02383)      ; &R-GT-02383;
+      (==gt-k            . 03799)      ; &R-GT-02383;
+      )
+     ((==adobe-japan1-0          . 03381)      ; &R-AJ1-03381;
+      ))
     ))
 (define-char
   '((<-denotational
@@ -654,6 +671,7 @@
     (=shinjigen                .  0585)        ; &AJ1-20082;
     (<-formed
      ((=ucs@jis                  . #x51FD)     ; &AJ1-03381;
+      (=ucs@ks           . #x51FD)     ; &AJ1-03381;
       (=adobe-japan1-0   . 03381)      ; &AJ1-03381;
       (=jis-x0208        . #x4821)     ; &I-J90-4821; [40-01]
       (=shinjigen        .  0584)      ; &AJ1-03381;
@@ -747,6 +765,7 @@
     (=cbeta            . 00630)        ; &I-CB00630;
     (<-vulgar
      ((=ucs@jis                  . #x51FD)     ; &AJ1-03381;
+      (=ucs@ks           . #x51FD)     ; &AJ1-03381;
       (=adobe-japan1-0   . 03381)      ; &AJ1-03381;
       (=jis-x0208        . #x4821)     ; &I-J90-4821; [40-01]
       (=daikanwa         . 01826)      ; &I-M-01826;