(U+663C): Use `->subsumptive' for M-07705, M-13886 and C3-2C37.

(C6-3836): Unify U-0002F8CC and M-13928; use `->confusing' instead of
`->same' for M-14294; add `->same' for U-00026618; add `<-large-seal'
for M-13948.

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index 386681e..ce78679 100644 (file)
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -1825,9 +1825,7 @@
     (=daikanwa         . 13885)        ; �����
     ))
 (define-char
-  '((ideographic-radical . 72) ; ⽇
-    (ideographic-strokes . 5)
-    (total-strokes      . 9)
+  '((total-strokes      . 9)
     (<-simplified@JP/Jouyou
      ((=ucs              . #x665D)     ; 晝
       (=jis-x0208        . #x5A6C)     ; �����
@@ -1843,7 +1841,19 @@
     (=gb2312           . #x5667)       ; �����
     (=gt               . 17517)        ; ������
     (=gt-pj-1          . #x436B)       ; ������
-    (=daikanwa         . 13886)        ; �����
+    (->subsumptive
+     ((ideographic-radical . 44)       ; ⼫
+      (ideographic-strokes . 6)
+      (=daikanwa         . 07705)      ; �����
+      )
+     ((ideographic-radical . 72)       ; ⽇
+      (ideographic-strokes . 5)
+      (=daikanwa         . 13886)      ; �����
+      )
+     ((ideographic-radical . 44)       ; ⼫
+      (ideographic-strokes . 6)
+      (=cns11643-3       . #x2C37)     ; �����
+      ))
     ))
 (define-char
   '((ideographic-radical . 72) ; ⽇
@@ -2311,6 +2321,32 @@
     (=daikanwa         . 13924)        ; �����
     ))
 (define-char
+  '((script            Large-Seal Ideograph)
+    (=>ucs*            . #x66F8)       ; 書
+    (ideographic-radical . 72) ; ⽇
+    (ideographic-strokes . 6)
+    (total-strokes      . 10)
+    (->confusing
+     ((=daikanwa         . 14294)      ; �����
+      ))
+    (->confusing*sources
+     daikanwa)
+    (->same
+     ((=ucs              . #x26618)    ; 𦘘
+      (=daikanwa         . 29223)      ; �����
+      ))
+    (->same*sources
+     daikanwa)
+    (<-Large-Seal
+     ((=daikanwa         . 13948)      ; �����
+      ))
+    (<-Large-Seal*sources
+     shuowen daikanwa)
+    (=ucs              . #x2F8CC)      ; 書
+    (=cns11643-6       . #x3836)       ; �����
+    (=daikanwa         . 13928)        ; �����
+    ))
+(define-char
   '((ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 6)
     (total-strokes      . 10)
@@ -2424,16 +2460,6 @@
     (=gb2312           . #x6A4D)       ; �����
     ))
 (define-char
-  '((=>ucs             . #x66F8)       ; 書
-    (ideographic-radical . 72) ; ⽇
-    (ideographic-strokes . 6)
-    (total-strokes      . 10)
-    (->same
-     ((=daikanwa         . 14294)      ; �����
-      ))
-    (=cns11643-6       . #x3836)       ; �����
-    ))
-(define-char
   '((ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 6)
     (total-strokes      . 10)