(GT-K06828): Use o+U+30BA4-var-003 instead of U-00030BA4 as its

mother.
(MJ013557): Use U+9FBA instead of U-0002099D as a glyph-component.
(UU+671D): Ditto.
(U-000233A6): New character.

diff --git a/lisp/utf-2000/Ideograph-R074-Moon.el b/lisp/utf-2000/Ideograph-R074-Moon.el
index 560bee5..5d90cd2 100644 (file)
--- a/lisp/utf-2000/Ideograph-R074-Moon.el
+++ b/lisp/utf-2000/Ideograph-R074-Moon.el
@@ -2202,7 +2202,7 @@
     ))
 (define-char
   '((<-denotational
-     ((=ucs              . #x30BA4)    ; 𰮤
+     ((=+>ucs-var-003    . #x30BA4)    ; &o-U-v003+30BA4;
       ))
     (ideographic-radical . 74) ; ⽉
     (ideographic-strokes . 6)
@@ -3079,7 +3079,7 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs              . #x2FF0)     ; ⿰
       )
-     ((=ucs              . #x2099D)    ; 𠦝
+     ((=ucs              . #x9FBA)     ; 龺
       )
      ((=gt-k             . 00606)      ; &GT-K00606;
       ))
@@ -3125,7 +3125,7 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs              . #x2FF0)     ; ⿰
       )
-     ((=ucs              . #x2099D)    ; 𠦝
+     ((=ucs              . #x9FBA)     ; 龺
       )
      ((=ucs@unicode      . #x6708)     ; &MJ013520;
       (=mj               . 013520)     ; &MJ013520;
@@ -5147,6 +5147,39 @@
      ((=>ucs@component   . #x6708)     ; &A-compU+6708;
       (=>iwds-1                  .  0053)      ; &A-compU+6708;
       )
+     ((=>ucs-itaiji-002          . #x66E9)     ; &A-U-i002+66E9;
+      ))
+    (=ucs              . #x233A6)      ; 𣎦
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x233A6)    ; 𣎦
+      ))
+    (ideographic-radical . 74) ; ⽉
+    (ideographic-strokes . 13)
+    (total-strokes      . 17)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=ucs@unicode      . #x6708)     ; &MJ013520;
+      (=mj               . 013520)     ; &MJ013520;
+      )
+     ((=ucs-itaiji-002   . #x66E9)     ; &U-i002+66E9;
+      ))
+    (=ucs@iso          . #x233A6)      ; &U-000233A6;
+    ))
+(define-char
+  '((ideographic-radical . 74) ; ⽉
+    (ideographic-strokes . 13)
+    (total-strokes      . 17)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=>ucs@component   . #x6708)     ; &A-compU+6708;
+      (=>iwds-1                  .  0053)      ; &A-compU+6708;
+      )
      ((=ucs              . #x611B)     ; 愛
       ))
     (=ucs              . #x2DA4A)      ; 𭩊