(<CJK RADICAL MEAT>): Add `<-ideographic-component-forms' for U+8089.

(BC-8A73): Likewise.
(BC-8958): Likewise.

diff --git a/lisp/utf-2000/Ideograph-R130-Meat.el b/lisp/utf-2000/Ideograph-R130-Meat.el
index 7def4a3..cab6272 100644 (file)
--- a/lisp/utf-2000/Ideograph-R130-Meat.el
+++ b/lisp/utf-2000/Ideograph-R130-Meat.el
@@ -22,6 +22,9 @@
     (ideographic-radical . 130)        ; ⾁
     (ideographic-strokes . 0)
     (total-strokes      . 4)
+    (<-ideographic-component-forms
+     ((=ucs              . #x8089)     ; 肉
+      ))
     (=ucs              . #x2EBC)       ; ⺼
     (=gt               . 37857)        ; ������
     (=gt-pj-6          . #x3879)       ; ������
@@ -33,6 +36,9 @@
     (ideographic-radical . 130)        ; ⾁
     (ideographic-strokes . 0)
     (total-strokes      . 4)
+    (<-ideographic-component-forms
+     ((=ucs              . #x8089)     ; 肉
+      ))
     (=big5-cdp         . #x8A73)       ; ������
     ))
 (define-char
@@ -41,6 +47,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)       ; ������