(U+706C): Add `<-formed@component/connect-above' for U+706B; add

`<-s/active' for U+706B.
(<CJK RADICAL FIRE>): Copied from u02E00-CJK-Radical-Supplement.el.

diff --git a/lisp/utf-2000/Ideograph-R086-Fire.el b/lisp/utf-2000/Ideograph-R086-Fire.el
index 28f8b9a..a20e67c 100644 (file)
--- a/lisp/utf-2000/Ideograph-R086-Fire.el
+++ b/lisp/utf-2000/Ideograph-R086-Fire.el
@@ -24,6 +24,16 @@
   '((ideographic-radical . 86) ; ⽕
     (ideographic-strokes . 0)
     (total-strokes      . 4)
+    (<-formed@component/connect-above
+     ((=ucs              . #x706B)     ; 火
+      ))
+    (<-formed@component/connect-above*sources
+     jiyun zhengzitong daikanwa)
+    (<-s/active
+     ((=ucs              . #x706B)     ; 火
+      ))
+    (<-s/active*sources
+     jiyun daikanwa)
     (=ucs              . #x706C)       ; 灬
     (=gb2312           . #x6C61)       ; &I-G0-6C61; [76-65]
     (=jis-x0212                . #x4944)       ; &I-JSP-4944; [41-36]
@@ -36,6 +46,19 @@
     (=jef-china3       . #x57CA)       ; &I-JC3-57CA;
     ))
 (define-char
+  '((<-denotational
+     ((=ucs              . #x706C)     ; 灬
+      ))
+    (name              . "CJK RADICAL FIRE")
+    (general-category  symbol other) ; Informative Category
+    (bidi-category     . "ON")
+    (mirrored          . nil)
+    (<-identical@component/connect-above
+     ((=ucs              . #x706C)     ; 灬
+      ))
+    (=ucs              . #x2EA3)       ; ⺣
+    ))
+(define-char
   '((ideographic-radical . 86) ; ⽕
     (ideographic-strokes . 1)
     (total-strokes      . 5)