From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 16 Dec 2023 06:41:24 +0000 (+0900)
Subject: (A-BC-89F0): Add `ideographic-structure@apparent'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=27a4e240569cd15d7c8ef615b917de08df16c3ef;p=chise%2Fxemacs-chise.git

(A-BC-89F0): Add `ideographic-structure@apparent'.
(BC-89F0-itaiji-001): Add `ideographic-structure@apparent'.
(A-BC-89F0-itaiji-002): New abstract node; use `<-denotational' for
A-compU+2000E.
(BC-89F0-itaiji-002): New character; use `<-denotational' for
A-BC-89F0-itaiji-002.
(BC-89EF): New character; use `<-denotational' for A-BC-89F0.
(U+20027-var-003): New character; use `<-denotational' for U-00020027.
---

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index a186c82..ef3a2cc 100644
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -5042,6 +5042,14 @@
     (ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 4)
     (total-strokes	 . 5)
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E00)	; 一
+      )
+     ((=>ucs@component	  . #x5EFF)	; &A-compU+5EFF;
+      ))
     (=>big5-cdp		. #x89F0)	; &A-CDP-89F0;
     ))
 (define-char
@@ -5051,9 +5059,51 @@
     (ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 4)
     (total-strokes	 . 5)
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4E00)	; 一
+      )
+     ((=ucs		  . #x5EFF)	; 廿
+      ))
     (=big5-cdp-itaiji-001 . #x89F0)	; &CDP-i001-89F0;
     ))
 (define-char
+  '((<-denotational
+     ((=>ucs@component	  . #x2000E)	; &A-compU+2000E;
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 4)
+    (total-strokes	 . 5)
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x5EFF)	; &A-compU+5EFF;
+      )
+     ((=ucs		  . #x4E00)	; 一
+      ))
+    (=>big5-cdp-itaiji-002 . #x89F0)	; &A-CDP-i002-89F0;
+    ))
+(define-char
+  '((<-denotational
+     ((=>big5-cdp-itaiji-002 . #x89F0)	; &A-CDP-i002-89F0;
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 4)
+    (total-strokes	 . 5)
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x5EFF)	; 廿
+      )
+     ((=ucs		  . #x4E00)	; 一
+      ))
+    (=big5-cdp-itaiji-002 . #x89F0)	; &CDP-i002-89F0;
+    ))
+(define-char
   '((ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 4)
     (total-strokes	 . 5)
@@ -5103,6 +5153,15 @@
     (ideographic-radical . 1)	; ⼀
     (ideographic-strokes . 4)
     (total-strokes	 . 5)
+    (=big5-cdp		. #x89EF)	; &CDP-89EF;
+    ))
+(define-char
+  '((<-denotational
+     ((=>big5-cdp	  . #x89F0)	; &A-CDP-89F0;
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 4)
+    (total-strokes	 . 5)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
@@ -7186,6 +7245,24 @@
     ))
 (define-char
   '((<-denotational
+     ((=ucs		  . #x20027)	; 𠀧
+      ))
+    (ideographic-radical . 1)	; ⼀
+    (ideographic-strokes . 6)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT")
+      (=ucs		  . #x2FFA)	; ⿺
+      )
+     ((=ucs@unicode	  . #x5DF4)	; &AJ1-03321;
+      (=adobe-japan1-0	  . 03321)	; &AJ1-03321;
+      )
+     ((=ucs-var-002	  . #x4E09)	; &U-v002+4E09;
+      ))
+    (=ucs-var-003	. #x20027)	; &U-v003+20027;
+    ))
+(define-char
+  '((<-denotational
      ((=ucs		  . #x277E1)	; 𧟡
       ))
     (ideographic-radical . 1)	; ⼀