(U-0002B787): Apply new conventions for glyph granularity for

components of ideographic-structure.
(A-U+23379-itaiji-001): New abstract node.
(U+23379-itaiji-001): New character; use `<-denotational' for
A-U+23379-itaiji-001.

diff --git a/lisp/utf-2000/Ideograph-R074-Moon.el b/lisp/utf-2000/Ideograph-R074-Moon.el
index b932292..a1e19ad 100644 (file)
--- a/lisp/utf-2000/Ideograph-R074-Moon.el
+++ b/lisp/utf-2000/Ideograph-R074-Moon.el
@@ -4759,7 +4759,8 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs              . #x2FF0)     ; ⿰
       )
-     ((=ucs              . #x6708)     ; 月
+     ((=>ucs@component   . #x6708)     ; &A-compU+6708;
+      (=>iwds-1                  .  0053)      ; &A-compU+6708;
       )
      ((=ucs              . #x9F21)     ; 鼡
       ))
@@ -4786,6 +4787,38 @@
     ))
 (define-char
   '((ideographic-radical . 74) ; ⽉
+    (ideographic-strokes . 8)
+    (total-strokes      . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=>big5-cdp        . #x8A73)     ; &IWDS1-20021;
+      )
+     ((=ucs-itaiji-002   . #x7077)     ; &U-i002+7077;
+      ))
+    (=>ucs-itaiji-001  . #x23379)      ; &A-U-i001+23379;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs-itaiji-001          . #x23379)    ; &A-U-i001+23379;
+      ))
+    (ideographic-radical . 74) ; ⽉
+    (ideographic-strokes . 8)
+    (total-strokes      . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=ucs@unicode      . #x6708)     ; &MJ013520;
+      (=mj               . 013520)     ; &MJ013520;
+      )
+     ((=ucs-itaiji-002   . #x7077)     ; &U-i002+7077;
+      ))
+    (=ucs-itaiji-001   . #x23379)      ; &U-i001+23379;
+    ))
+(define-char
+  '((ideographic-radical . 74) ; ⽉
     (ideographic-strokes . 9)
     (total-strokes      . 13)
     (ideographic-structure