From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 6 Jul 2020 13:20:05 +0000 (+0900)
Subject: (BC-8DD8): New character; use `<-denotational' for U-0002008A; use
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git;a=commitdiff_plain;h=fcfc05177fc5bb1107801a29949fa1d909ff9384

(BC-8DD8): New character; use `<-denotational' for U-0002008A; use
`<-denotational@component' for A-BC-8DD8.
(GT-K00091): Use BC-8DD8 instead of U+2E88 as its mother.
(A-BC-8DD8): New abstract node.
---

diff --git a/lisp/utf-2000/Ideograph-R018-Knife.el b/lisp/utf-2000/Ideograph-R018-Knife.el
index e23c339..cdcff83 100644
--- a/lisp/utf-2000/Ideograph-R018-Knife.el
+++ b/lisp/utf-2000/Ideograph-R018-Knife.el
@@ -124,6 +124,32 @@
   '((<-denotational
      ((=ucs		  . #x2008A)	; 𠂊
       ))
+    (<-denotational@component
+     ((=>big5-cdp	  . #x8DD8)	; &A-CDP-8DD8;
+      ))
+    (ideographic-radical . 18)	; ⼑
+    (ideographic-strokes . 0)
+    (total-strokes	 . 2)
+    (=big5-cdp		. #x8DD8)	; &CDP-8DD8;
+    (->subsumptive
+     ((==big5-cdp	  . #x8DD8)	; &g2-CDP-8DD8;
+      )
+     ((=gt-k		  . 00091)	; &GT-K00091;
+      (=gt-pj-k1	  . #x3234)	; &GT-K00091; [18-20]
+      (<-formed@component/connect-below
+       ((=ucs		    . #x5200)	; 刀
+	)
+       ((name		    . "CJK RADICAL KNIFE ONE")
+	(=ucs		    . #x2E88)	; ⺈
+	)
+       ((=big5-cdp	    . #x8DD8)	; &CDP-8DD8;
+	))
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2008A)	; 𠂊
+      ))
     (name		. "CJK RADICAL KNIFE ONE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
@@ -148,21 +174,18 @@
      ((==big5-cdp	  . #x8B5B)	; &g2-CDP-8B5B;
       )
      ((==ucs@unicode	  . #x2E88)	; &g2-UU+2E88;
-      )
-     ((=gt-k		  . 00091)	; &GT-K00091;
-      (=gt-pj-k1	  . #x3234)	; &GT-K00091; [18-20]
-      (<-formed@component/connect-below
-       ((=ucs		    . #x5200)	; 刀
-	)
-       ((name		    . "CJK RADICAL KNIFE ONE")
-	(=ucs		    . #x2E88)	; ⺈
-	))
       ))
     ))
 (define-char
   '((ideographic-radical . 18)	; ⼑
     (ideographic-strokes . 0)
     (total-strokes	 . 2)
+    (=>big5-cdp		. #x8DD8)	; &A-CDP-8DD8;
+    ))
+(define-char
+  '((ideographic-radical . 18)	; ⼑
+    (ideographic-strokes . 0)
+    (total-strokes	 . 2)
     (hanyu-dazidian	1 320 2)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")