(U-000253A6): Add `<-ancient' for U+77E6; Add representative nodes.

diff --git a/lisp/utf-2000/Ideograph-R027-Cliff.el b/lisp/utf-2000/Ideograph-R027-Cliff.el
index 5b655e2..06b9327 100644 (file)
--- a/lisp/utf-2000/Ideograph-R027-Cliff.el
+++ b/lisp/utf-2000/Ideograph-R027-Cliff.el
@@ -810,6 +810,23 @@
     (=ucs              . #x253A6)      ; 𥎦
     (=cns11643-6       . #x263F)       ; &I-C6-263F; [06-31]
     (=daikanwa         . 02928)        ; &I-M-02928;
+    (<-ancient
+     ((=ucs              . #x77E6)     ; 矦
+      ))
+    (<-ancient*sources
+     shuowen daikanwa)
+    (->subsumptive
+     ((==ucs@iso         . #x253A6)    ; &g2-M-02928;
+      (==cns11643-6      . #x263F)     ; &g2-M-02928; [06-31]
+      (==daikanwa        . 02928)      ; &g2-M-02928;
+      (->subsumptive
+       ((===daikanwa       . 02928)    ; &R-M-02928;
+       )
+       ((===cns11643-6     . #x263F)   ; &R-C6-263F; [06-31]
+       )
+       ((===ucs@iso        . #x253A6)  ; &R-U-000253A6;
+       ))
+      ))
     ))
 (define-char
   '((ideographic-radical . 27) ; ⼚