(U+2E81): Add `<-ideographic-component-forms' for U+5382.

[chise/xemacs-chise.git] / lisp / utf-2000 / u02E00-CJK-Radical-Supplement.el

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index c2188b1..da108e8 100644 (file)
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -14,6 +14,9 @@
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (<-ideographic-component-forms
+     ((=ucs              . #x5382)     ; 厂
+      ))
     (<-radical
      ((=ucs              . #x20086)    ; 𠂆
       ))
@@ -404,19 +407,33 @@
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (ideographic-radical . 87) ; ⽖
+    (ideographic-strokes . 0)
     (total-strokes      . 4)
-    (<-radical
+    (<-denotational
      ((=ucs              . #x722B)     ; 爫
       ))
-    (ideograph-cdp     . -493)
     (=ucs              . #x2EA4)       ; ⺤
+    (=jis-x0213-2-2000 . #x7029)       ; &I-JX2-7029; [80-09]
     (=big5-cdp         . #x8B58)       ; &I-CDP-8B58;
+    (=ucs@unicode      . #x722B)       ; ⺤
+    (=ucs@jis          . #xFA49)       ; ⺤
+    (->subsumptive
+     ((=>ucs*            . #x722B)     ; 爫
+      (=ucs              . #xFA49)     ; 爫
+      ))
     ))
 (define-char
   '((name              . "CJK RADICAL PAW TWO")
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (<-denotational
+     ((=ucs              . #x722B)     ; 爫
+      ))
+    (<-radical
+     ((=ucs              . #x722A)     ; 爪
+      ))
     (=ucs              . #x2EA5)       ; ⺥
     ))
 (define-char
@@ -761,6 +778,10 @@
     (=daikanwa         . 30639)        ; &I-M-30639;
     (=ucs@cns          . #x8279)       ; ⺿
     (=ucs@jis          . #xFA5E)       ; ⺿
+    (->subsumptive
+     ((=>ucs*            . #x8279)     ; 艹
+      (=ucs              . #xFA5E)     ; 艹
+      ))
     ))
 (define-char
   '((name              . "CJK RADICAL GRASS THREE")
@@ -779,6 +800,10 @@
     (=gt-k             . 00569)        ; &I-GT-K00569;
     (=gt-pj-9          . #x4E5A)       ; &I-GT-39645; [46-58]
     (=ucs@jis          . #xFA5D)       ; ⻀
+    (->subsumptive
+     ((=>ucs*            . #x8279)     ; 艹
+      (=ucs              . #xFA5D)     ; 艹
+      ))
     ))
 (define-char
   '((name              . "CJK RADICAL TIGER")