(BC-8853): New character; unify GT-K02610.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R001-One.el

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index 646e355..bb71c39 100644 (file)
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -350,12 +350,23 @@
     (ideographic-strokes . 1)
     (total-strokes      . 2)
     (=>ucs@component   . #x4E03)       ; &A-compU+4E03;
-    (=>iwds-1          .  0141)        ; &A-compU+4E03;
     ))
 (define-char
   '((<-denotational@component
      ((=>ucs@component   . #x4E03)     ; &A-compU+4E03;
-      (=>iwds-1                  .  0141)      ; &A-compU+4E03;
+      )
+     ((=>ucs@component   . #x5341)     ; &A-compU+5341;
+      ))
+    (ideographic-radical . 1)  ; ⼀
+    (ideographic-strokes . 1)
+    (total-strokes      . 2)
+    (=>ucs@iwds-1      . #x4E03)       ; &A-IWDSU+4E03;
+    (=>iwds-1          .  0141)        ; &A-IWDSU+4E03;
+    ))
+(define-char
+  '((<-denotational@component
+     ((=>ucs@iwds-1      . #x4E03)     ; &A-IWDSU+4E03;
+      (=>iwds-1                  .  0141)      ; &A-IWDSU+4E03;
       ))
     (decimal-digit-value . 7)
     (digit-value        . 7)
@@ -512,7 +523,10 @@
     (=gt-pj-k2         . #x423F)       ; 丆 [34-31]
     ))
 (define-char
-  '((name*             . "ideographic component person for top")
+  '((<-denotational@component
+     ((=>ucs@component   . #x20089)    ; &A-compU+20089;
+      ))
+    (name*             . "ideographic component person for top")
     (ideographic-radical@ucs . 4)      ; ⼃
     (ideographic-strokes@ucs . 1)
     (ideographic-radical@ucs*sources
@@ -554,7 +568,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 1)  ; ⼀
+  '((<-denotational@component
+     ((=>ucs@component   . #x20087)    ; &A-compU+20087;
+      ))
+    (ideographic-radical . 1)  ; ⼀
     (ideographic-strokes . 1)
     (total-strokes      . 2)
     (=>ucs@component   . #x4E06)       ; &A-compU+4E06;
@@ -564,6 +581,12 @@
   '((ideographic-radical . 1)  ; ⼀
     (ideographic-strokes . 1)
     (total-strokes      . 2)
+    (=>ucs@component   . #x20089)      ; &A-compU+20089;
+    ))
+(define-char
+  '((ideographic-radical . 1)  ; ⼀
+    (ideographic-strokes . 1)
+    (total-strokes      . 2)
     (=ucs-itaiji-001   . #x21D6F)      ; &U-i001+21D6F;
     (<-formed
      ((=ucs              . #x21D6F)    ; 𡵯
@@ -3942,7 +3965,11 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 1)  ; ⼀
+  '((<-denotational@component
+     ((=>ucs@iwds-1      . #x26B07)    ; &A-IWDSU+26B07;
+      (=>ucs@component   . #x26B07)    ; &A-IWDSU+26B07;
+      ))
+    (ideographic-radical . 1)  ; ⼀
     (ideographic-strokes . 5)
     (total-strokes      . 6)
     (ideographic-structure
@@ -5670,7 +5697,10 @@
     (=hanziku-1                . #xA9A3)       ; &I-HZK01-A9A3;
     ))
 (define-char
-  '((ideographic-radical . 1)  ; ⼀
+  '((<-denotational
+     ((=>ucs@cognate     . #x723E)     ; &A-cgnU+723E;
+      ))
+    (ideographic-radical . 1)  ; ⼀
     (ideographic-strokes . 13)
     (total-strokes      . 14)
     (=ucs              . #x2B743)      ; 𫝃