(CJK RADICAL GRASS TWO): Don't map to U+8279; separate C4-2153,

JX2-7575, M-30639 and BC-8AFE; add `<-radical' for U+FA5E.
(CJK RADICAL GRASS THREE): Separate JX2-7574; add `<-radical' for
U+FA5D.

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index 4156831..083c955 100644 (file)
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -631,18 +631,12 @@
     ))
 (define-char
   '((name              . "CJK RADICAL GRASS TWO")
-    (=>ucs             . #x8279)       ; 艹
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (ideographic-radical . 140)        ; ⾋
-    (ideographic-strokes . 0)
-    (total-strokes      . 4)
-    (=cns11643-4       . #x2153)       ; �����
-    (=jis-x0213-2-2000 . #x7575)       ; �����
-    (=daikanwa         . 30639)        ; �����
-    (=big5-cdp         . #x8AFE)       ; ������
-    (=ucs@cns          . #x8279)       ; ⺿
+    (<-radical
+     ((=ucs              . #xFA5E)     ; 艹
+      ))
     (=ucs              . #x2EBF)       ; ⺿
     ))
 (define-char
@@ -650,7 +644,9 @@
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (=jis-x0213-2-2000 . #x7574)       ; �����
+    (<-radical
+     ((=ucs              . #xFA5D)     ; 艹
+      ))
     (=ucs              . #x2EC0)       ; ⻀
     ))
 (define-char