(UU+5321): Add `<-interchangeable@ancient' for UU+6047; add

`<-original' for UU+7736.
(U+9FA8): New character.

diff --git a/lisp/utf-2000/Ideograph-R022-Right-Open-Box.el b/lisp/utf-2000/Ideograph-R022-Right-Open-Box.el
index d5f5956..c3ef2c6 100644 (file)
--- a/lisp/utf-2000/Ideograph-R022-Right-Open-Box.el
+++ b/lisp/utf-2000/Ideograph-R022-Right-Open-Box.el
@@ -531,6 +531,18 @@
      shuowen-tongxun-dingsheng daikanwa)
     (<-interchangeable*sources
      daikanwa)
+    (<-interchangeable@ancient
+     ((=ucs@unicode      . #x6047)     ; &AJ1-16864;
+      (=adobe-japan1-5   . 16864)      ; &AJ1-16864;
+      ))
+    (<-original
+     ((=ucs@unicode      . #x7736)     ; &JX1-7871;
+      (=gb2312           . #x3F74)     ; &JX1-7871; [31-84]
+      (=jis-x0212        . #x4E6C)     ; &I-JSP-4E6C; [46-76]
+      (=cns11643-1       . #x5C3A)     ; &I-C1-5C3A; [60-26]
+      (=jis-x0213-1      . #x7871)     ; &I-JX1-7871; [88-81]
+      (=daikanwa         . 23310)      ; &I-M-23310;
+      ))
     (->formed
      ((=ucs@unicode      . #x7B50)     ; &AJ1-05969;
       (=adobe-japan1-0   . 05969)      ; &AJ1-05969;
@@ -1642,6 +1654,41 @@
     (=daikanwa         . 02635)        ; &I-M-02635;
     ))
 (define-char
+  '((ideographic-radical . 22) ; ⼕
+    (ideographic-strokes . 8)
+    (total-strokes      . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LEFT")
+      (=ucs              . #x2FF7)     ; ⿷
+      )
+     ((=>ucs@component   . #x531A)     ; &A-compU+531A;
+      (=>iwds-1                  .  0209)      ; &A-compU+531A;
+      )
+     ((=ucs              . #x96B9)     ; 隹
+      ))
+    (=ucs              . #x9FA8)       ; 龨
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x9FA8)     ; 龨
+      ))
+    (ideographic-radical . 22) ; ⼕
+    (ideographic-strokes . 8)
+    (total-strokes      . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LEFT")
+      (=ucs              . #x2FF7)     ; ⿷
+      )
+     ((=ucs              . #x531A)     ; 匚
+      )
+     ((=ucs              . #x96B9)     ; 隹
+      ))
+    (=ucs@JP/hanazono  . #x9FA8)       ; &hanaJU+9FA8;
+    (->subsumptive
+     ((==ucs@JP/hanazono  . #x9FA8)    ; &g2-hanaJU+9FA8;
+      ))
+    ))
+(define-char
   '((=>ucs             . #x3531)       ; 㔱
     (ideographic-radical . 22) ; ⼕
     (ideographic-strokes . 9)