(A-M-13802): New abstract character.

(M-13802): Use `<-denotational' for A-M-13802.
(U-00023172): Likewise.
(U+6685): Delete `=>daikanwa'; add `<-same' for U-00023236.

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index 0c868f7..1a39802 100644 (file)
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -1191,14 +1191,24 @@
       ))
     ))
 (define-char
-  '((=>ucs             . #x23172)      ; 𣅲
+  '((ideographic-radical . 72) ; ⽇
+    (ideographic-strokes . 4)
+    (total-strokes      . 8)
+    (=>daikanwa                . 13802)        ; &A-M-13802;
+    ))
+(define-char
+  '((<-denotational
+     ((=>daikanwa        . 13802)      ; &A-M-13802;
+      ))
     (ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 4)
     (total-strokes      . 8)
     (=daikanwa         . 13802)        ; &M-13802;
     ))
 (define-char
-  '((=>daikanwa                . 13802)        ; &M-13802;
+  '((<-denotational
+     ((=>daikanwa        . 13802)      ; &A-M-13802;
+      ))
     (ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 4)
     (total-strokes      . 8)
@@ -4765,23 +4775,6 @@
     (=daikanwa         . 14034)        ; &I-M-14034;
     ))
 (define-char
-  '((=>daikanwa                . 14034)        ; 𣈶
-    (ideographic-radical . 72) ; ⽇
-    (ideographic-strokes . 9)
-    (total-strokes      . 13)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs              . #x2FF0)     ; ⿰
-      )
-     ((=ucs              . #x65E5)     ; 日
-      )
-     ((=ucs              . #x6052)     ; 恒
-      ))
-    (=ucs              . #x6685)       ; 暅
-    (=cns11643-4       . #x3D69)       ; &I-C4-3D69; [29-73]
-    (=cbeta            . 05750)        ; &I-CB05750;
-    ))
-(define-char
   '((ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 9)
     (total-strokes      . 13)
@@ -5528,6 +5521,25 @@
       ))
     ))
 (define-char
+  '((ideographic-radical . 72) ; ⽇
+    (ideographic-strokes . 9)
+    (total-strokes      . 13)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=ucs              . #x65E5)     ; 日
+      )
+     ((=ucs              . #x6052)     ; 恒
+      ))
+    (=ucs              . #x6685)       ; 暅
+    (=cns11643-4       . #x3D69)       ; &I-C4-3D69; [29-73]
+    (=cbeta            . 05750)        ; &I-CB05750;
+    (<-same
+     ((=ucs              . #x23236)    ; 𣈶
+      ))
+    ))
+(define-char
   '((ideographic-radical@ucs . 72)     ; ⽇
     (ideographic-strokes@ucs . 9)
     (ideographic-radical@cns . 2)      ; ⼁