From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 12 Aug 2019 10:17:39 +0000 (+0900)
Subject: (A-cgnU+51F6): New abstract node.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7fcfe261960611df3046177dce84db699b451dd6;p=chise%2Fxemacs-chise.git

(A-cgnU+51F6): New abstract node.
(U+51F6): Add `<-denotational' for A-cgnU+51F6.
(CB04552): Unify HD-KS021320; add `<-denotational' for A-cgnU+51F6.
---

diff --git a/lisp/utf-2000/Ideograph-R017-Open-Box.el b/lisp/utf-2000/Ideograph-R017-Open-Box.el
index b697f86..67060e5 100644
--- a/lisp/utf-2000/Ideograph-R017-Open-Box.el
+++ b/lisp/utf-2000/Ideograph-R017-Open-Box.el
@@ -114,6 +114,13 @@
     ))
 (define-char
   '((ideographic-radical . 17)	; ⼐
+    (=>ucs@cognate	. #x51F6)	; &A-cgnU+51F6;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@cognate	  . #x51F6)	; &A-cgnU+51F6;
+      ))
+    (ideographic-radical . 17)	; ⼐
     (ideographic-strokes . 2)
     (total-strokes	 . 4)
     (hanyu-dazidian	1 306 19)
@@ -235,6 +242,34 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>ucs@cognate	  . #x51F6)	; &A-cgnU+51F6;
+      ))
+    (ideographic-radical . 17)	; ⼐
+    (ideographic-strokes . 2)
+    (total-strokes	 . 4)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM BELOW")
+      (=ucs		  . #x2FF6)	; ⿶
+      )
+     ((=ucs		  . #x51F5)	; 凵
+      )
+     ((=ucs		  . #x53C8)	; 又
+      ))
+    (=hanyo-denshi/ks	. 021320)	; &HD-KS-021320;
+    (=cbeta		. 04552)	; &I-CB04552;
+    (->subsumptive
+     ((==hanyo-denshi/ks  . 021320)	; &g2-HD-KS-021320;
+      (==cbeta		  . 04552)	; &g2-HD-KS-021320;
+      (->subsumptive
+       ((===hanyo-denshi/ks . 021320)	; &R-HD-KS-021320;
+	(=hanyo-denshi/ks/mf . #x0854)	; &R-HD-KS-021320;
+	)
+       ((===cbeta	    . 04552)	; &R-CB04552;
+	))
+      ))
+    ))
+(define-char
   '((ideographic-radical . 17)	; ⼐
     (ideographic-strokes . 2)
     (total-strokes	 . 4)
@@ -280,31 +315,6 @@
     ))
 (define-char
   '((ideographic-radical . 17)	; ⼐
-    (ideographic-strokes . 2)
-    (total-strokes	 . 4)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM BELOW")
-      (=ucs		  . #x2FF6)	; ⿶
-      )
-     ((=ucs		  . #x51F5)	; 凵
-      )
-     ((=ucs		  . #x53C8)	; 又
-      ))
-    (=cbeta		. 04552)	; &CB04552;
-    (->subsumptive
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM BELOW")
-	(=ucs		    . #x2FF6)	; ⿶
-	)
-       ((=ucs		    . #x51F5)	; 凵
-	)
-       ((=gt-k		    . 00064)	; &GT-K00064;
-	))
-      (==cbeta		  . 04552)	; &g2-CB04552;
-      ))
-    ))
-(define-char
-  '((ideographic-radical . 17)	; ⼐
     (ideographic-strokes . 3)
     (total-strokes	 . 5)
     (=>iwds-1*note	"132a+72+312")