(GT-K02058): New character.

[chise/xemacs-chise.git-] / lisp / utf-2000 / Ideograph-R020-Wrap.el

diff --git a/lisp/utf-2000/Ideograph-R020-Wrap.el b/lisp/utf-2000/Ideograph-R020-Wrap.el
index 1c4d005..8e960e0 100644 (file)
--- a/lisp/utf-2000/Ideograph-R020-Wrap.el
+++ b/lisp/utf-2000/Ideograph-R020-Wrap.el
@@ -798,6 +798,15 @@
     (ideographic-radical . 20) ; ⼓
     (ideographic-strokes . 3)
     (total-strokes      . 5)
+    (ideographic-structure
+     ((name              . "IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID")
+      (=ucs              . #x2FFB)     ; ⿻
+      )
+     ((=ucs              . #x52F9)     ; 勹
+      )
+     ((=>ucs@component   . #x5DF3)     ; &A-compU+5DF3;
+      (=>iwds-1                  .  0121)      ; &A-compU+5DF3;
+      ))
     (=ucs              . #x5305)       ; 包
     (=>jis-x0208       . #x4A71)       ; 包 [42-81]
     (=>jis-x0213-1     . #x4A71)       ; 包 [42-81]
@@ -1587,6 +1596,23 @@
     (=jef-china3       . #x45A7)       ; &I-JC3-45A7;
     ))
 (define-char
+  '((ideographic-radical . 20) ; ⼓
+    (ideographic-strokes . 6)
+    (total-strokes      . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x52FF)     ; 勿
+      )
+     ((=ucs              . #x52FF)     ; 勿
+      ))
+    (=ucs-itaiji-001   . #x8C9D)       ; &U-i001+8C9D;
+    (<-ancient
+     ((=ucs              . #x8C9D)     ; 貝
+      ))
+    ))
+(define-char
   '((ideographic-radical@ucs . 20)     ; ⼓
     (ideographic-strokes@ucs . 7)
     (ideographic-radical@ucs*sources