From 0fed68601e6afc05e69fb0a01bcc066755cd97c0 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 22 Sep 2021 22:41:12 +0900
Subject: [PATCH] (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.

---
 lisp/utf-2000/Ideograph-R015-Ice.el |   14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/lisp/utf-2000/Ideograph-R015-Ice.el b/lisp/utf-2000/Ideograph-R015-Ice.el
index ffafeca..6eca7fe 100644
--- 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;
+    ))
-- 
1.7.10.4