(U+65B9): Add `<-denotational@component' for A-compU+65B9.

(A-compU+65B9): New abstract node.

diff --git a/lisp/utf-2000/Ideograph-R070-Square.el b/lisp/utf-2000/Ideograph-R070-Square.el
index c0c7e6a..b9f5643 100644 (file)
--- a/lisp/utf-2000/Ideograph-R070-Square.el
+++ b/lisp/utf-2000/Ideograph-R070-Square.el
@@ -1,6 +1,9 @@
 ;; -*- coding: utf-8-mcs-er -*-
 (define-char
-  '((ideographic-radical . 70) ; ⽅
+  '((<-denotational@component
+     ((=>ucs@component   . #x65B9)     ; &A-compU+65B9;
+      ))
+    (ideographic-radical . 70) ; ⽅
     (ideographic-strokes . 0)
     (total-strokes      . 4)
     (=ucs              . #x65B9)       ; 方
@@ -4208,6 +4211,10 @@
     ))
 (define-char
   '((ideographic-radical . 70) ; ⽅
+    (=>ucs@component   . #x65B9)       ; &A-compU+65B9;
+    ))
+(define-char
+  '((ideographic-radical . 70) ; ⽅
     (==>ucs@bucs       . #x65C5)       ; &BUCS+65C5;
     (==>daijiten       . 04402)        ; &BUCS+65C5;
     ))