(U+623A): Add `<-denotational@usage' for A2-DJT-03642; add `<-ancient'

for U+5DF8.
(A2-DJT-03642): New abstract node.

diff --git a/lisp/utf-2000/Ideograph-R063-Door.el b/lisp/utf-2000/Ideograph-R063-Door.el
index 8987804..5ebbfac 100644 (file)
--- a/lisp/utf-2000/Ideograph-R063-Door.el
+++ b/lisp/utf-2000/Ideograph-R063-Door.el
@@ -527,7 +527,10 @@
     (=ucs@iso          . #x22A28)      ; &U-00022A28;
     ))
 (define-char
-  '((ideographic-radical . 63) ; ⼾
+  '((<-denotational@usage
+     ((==>daijiten       . 03642)      ; &A2-DJT-03642;
+      ))
+    (ideographic-radical . 63) ; ⼾
     (ideographic-strokes . 3)
     (total-strokes      . 7)
     (ideographic-structure
@@ -544,6 +547,11 @@
     (sound@ja/on/kan   "si" "i")
     (=ucs              . #x623A)       ; 戺
     (=big5             . #xCAE6)       ; &I-B-CAE6;
+    (<-ancient
+     ((=ucs              . #x5DF8)     ; 巸
+      ))
+    (<-ancient*sources
+     shuowen)
     ))
 (define-char
   '((<-denotational
@@ -3662,3 +3670,7 @@
     (==>ucs@bucs       . #x6240)       ; &BUCS+6240;
     (==>daijiten       . 03647)        ; &BUCS+6240;
     ))
+(define-char
+  '((ideographic-radical . 63) ; ⼾
+    (==>daijiten       . 03642)        ; &A2-DJT-03642;
+    ))