(<CJK RADICAL REPEAT>): Add `<-ideographic-component-forms' for

U-00020120.
(<CJK RADICAL MEAT>): Add `<-ideographic-component-forms' for U+8089.
(BC-8958): Likewise.
(BC-8A73): Likewise.
(<CJK RADICAL RAIN>): Add `<-ideographic-component-forms' for U+96E8.

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index 60905c7..e75b46a 100644 (file)
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -4,6 +4,9 @@
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (<-ideographic-component-forms
+     ((=ucs              . #x20120)    ; 𠄠
+      ))
     (=ucs              . #x2E80)       ; ⺀
     ))
 (define-char
@@ -641,6 +644,9 @@
     (ideographic-radical . 130)        ; ⾁
     (ideographic-strokes . 0)
     (total-strokes      . 4)
+    (<-ideographic-component-forms
+     ((=ucs              . #x8089)     ; 肉
+      ))
     (=ucs              . #x2EBC)       ; ⺼
     (=gt               . 37857)        ; ������
     (=gt-pj-6          . #x3879)       ; ������
@@ -652,6 +658,9 @@
     (ideographic-radical . 130)        ; ⾁
     (ideographic-strokes . 0)
     (total-strokes      . 4)
+    (<-ideographic-component-forms
+     ((=ucs              . #x8089)     ; 肉
+      ))
     (=big5-cdp         . #x8958)       ; ������
     (=gt-k             . 00417)        ; ������
     (=gt-pj-k1         . #x377D)       ; ������
@@ -662,6 +671,9 @@
     (ideographic-radical . 130)        ; ⾁
     (ideographic-strokes . 0)
     (total-strokes      . 4)
+    (<-ideographic-component-forms
+     ((=ucs              . #x8089)     ; 肉
+      ))
     (=big5-cdp         . #x8A73)       ; ������
     ))
 (define-char
@@ -939,6 +951,9 @@
     (general-category  symbol other) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
+    (<-ideographic-component-forms
+     ((=ucs              . #x96E8)     ; 雨
+      ))
     (=ucs              . #x2ED7)       ; ⻗
     ))
 (define-char