From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 22 Sep 2021 13:41:12 +0000 (+0900)
Subject: (U+51AD): Add `<-ancient' for U+6CF0.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0fed68601e6afc05e69fb0a01bcc066755cd97c0;p=chise%2Fxemacs-chise.git

(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
--- 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;
+    ))