(U-00023285): New character.

(M-14142): Unify IU+23285 instead of IU+23286; use `<-denotational'
for U-00023285 instead of `<-subsumptive' for U-00023286; add
`<-ancient' for U+6E34.
(U-00023286): Apply new conventions for glyph granularity.

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index 8204b52..f10abec 100644 (file)
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -14076,12 +14076,31 @@
   '((ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 11)
     (total-strokes      . 15)
-    (=ucs              . #x23286)      ; 𣊆
+    (=ucs              . #x23285)      ; 𣊅
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x23285)    ; 𣊅
+      ))
+    (ideographic-radical . 72) ; ⽇
+    (ideographic-strokes . 11)
+    (total-strokes      . 15)
+    (=ucs@iso          . #x23285)      ; &M-14142;
+    (=daikanwa         . 14142)        ; &M-14142;
+    (<-ancient
+     ((=ucs              . #x6E34)     ; 渴
+      (=daikanwa         . 17788)      ; &I-M-17788;
+      ))
+    (<-ancient*sources
+     wuyinjiyun daikanwa)
     (->subsumptive
-     ((=ucs@iso                  . #x23286)    ; &M-14142;
-      (=daikanwa         . 14142)      ; &M-14142;
-      )
-     ((=cns11643-7       . #x2362)     ; &C7-2362; [03-66]
+     ((==ucs@iso         . #x23285)    ; &g2-M-14142;
+      (==daikanwa        . 14142)      ; &g2-M-14142;
+      (->subsumptive
+       ((===daikanwa       . 14142)    ; &R-M-14142;
+       )
+       ((===ucs@iso        . #x23285)  ; &R-U-00023285;
+       ))
       ))
     ))
 (define-char
@@ -14125,6 +14144,19 @@
   '((ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 11)
     (total-strokes      . 15)
+    (=ucs              . #x23286)      ; 𣊆
+    (=cns11643-7       . #x2362)       ; &I-C7-2362; [03-66]
+    (->subsumptive
+     ((==ucs@iso         . #x23286)    ; &g2-IU-00023286;
+      )
+     ((==ucs@cns         . #x23286)    ; &g2-CU+23286;
+      (==cns11643-7      . #x2362)     ; &g2-CU+23286; [03-66]
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 72) ; ⽇
+    (ideographic-strokes . 11)
+    (total-strokes      . 15)
     (=ucs              . #x23294)      ; 𣊔
     (=cns11643-5       . #x4D54)       ; &I-C5-4D54; [45-52]
     ))