(U+51AD): Add `<-ancient' for U+6CF0.

(U+51DE): Add BUCS+51DE as a target of `<-denotational@usage'.
(BUCS+51DE): New abstract node; use `<-denotational' for A2-DJT-06898.

diff --git a/lisp/utf-2000/Ideograph-R015-Ice.el b/lisp/utf-2000/Ideograph-R015-Ice.el
index ffafeca..6eca7fe 100644 (file)
--- a/lisp/utf-2000/Ideograph-R015-Ice.el
+++ b/lisp/utf-2000/Ideograph-R015-Ice.el
@@ -351,6 +351,11 @@
     (sound@ja/on/go    "tai" "tati")
     (sound@ja/on/kan   "tai" "tatu")
     (=ucs              . #x51AD)       ; 冭
+    (<-ancient
+     ((=ucs              . #x6CF0)     ; 泰
+      ))
+    (<-ancient*sources
+     shuowen)
     (->subsumptive
      ((hanyu-dazidian    1 295 5)
       (ideographic-structure
@@ -5895,6 +5900,8 @@
      ((=>ucs@iwds-1      . #x20611)    ; &A-IWDSU+20611;
       ))
     (<-denotational@usage
+     ((==>ucs@bucs       . #x51DE)     ; &BUCS+51DE;
+      )
      ((==>daijiten       . 06898)      ; &A2-DJT-06898;
       ))
     (ideographic-radical . 15) ; ⼎
@@ -6925,3 +6932,10 @@
   '((ideographic-radical . 15) ; ⼎
     (==>daijiten       . 00696)        ; &A2-DJT-00696;
     ))
+(define-char
+  '((<-denotational
+     ((==>daijiten       . 06898)      ; &A2-DJT-06898;
+      ))
+    (ideographic-radical . 15) ; ⼎
+    (==>ucs@bucs       . #x51DE)       ; &BUCS+51DE;
+    ))