(U-000248E9): Use `<-formed@component/connect-right' instead of

`<-ideographic-component-forms'.
(<CJK RADICAL JADE>): Copied from u02E00-CJK-Radical-Supplement.el.

diff --git a/lisp/utf-2000/Ideograph-R096-Jade.el b/lisp/utf-2000/Ideograph-R096-Jade.el
index 007c17b..6d779b0 100644 (file)
--- a/lisp/utf-2000/Ideograph-R096-Jade.el
+++ b/lisp/utf-2000/Ideograph-R096-Jade.el
@@ -49,11 +49,11 @@
   '((ideographic-radical . 96) ; ⽟
     (ideographic-strokes . 0)
     (total-strokes      . 4)
-    (<-ideographic-component-forms
+    (<-formed@component/connect-right
      ((=ucs              . #x7389)     ; 玉
       (=daikanwa         . 20821)      ; &I-M-20821;
       ))
-    (<-ideographic-component-forms*sources
+    (<-formed@component/connect-right*sources
      zihui/char-index daikanwa)
     (shinjigen-1       . 4874)
     (=ucs              . #x248E9)      ; 𤣩
@@ -63,6 +63,26 @@
     (=daikanwa         . 20824)        ; &I-M-20824;
     ))
 (define-char
+  '((<-denotational
+     ((=ucs              . #x248E9)    ; 𤣩
+      ))
+    (name              . "CJK RADICAL JADE")
+    (general-category  symbol other) ; Informative Category
+    (bidi-category     . "ON")
+    (mirrored          . nil)
+    (<-formed@component/connect-right
+     ((=ucs              . #x738B)     ; 王
+      )
+     ((=ucs              . #x7389)     ; 玉
+      ))
+    (<-identical@component/connect-right
+     ((=ucs              . #x248E9)    ; 𤣩
+      ))
+    (=ucs              . #x2EA9)       ; ⺩
+    (=gt-k             . 00402)        ; &I-GT-K00402;
+    (=gt-pj-k1         . #x3467)       ; ⺩ [20-71]
+    ))
+(define-char
   '((ideographic-radical . 96) ; ⽟
     (ideographic-strokes . 0)
     (total-strokes      . 4)