Add some `<-simplified@JP/Jouyou' features.

(U+663C): Add `<-simplified@JP/Jouyou'; use
`<-vulgar-ideograph*sources' instead of char-ref in
`<-vulgar-ideograph'.
(U+665A): Unify JC3-51D5.
(U+6669): Add `<-simplified@JP/Jouyou'; unify BC-B1DF; separate
JC3-51D5.
(U+FA43): Unify BC-B4BB.

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index bbe073b..1774acd 100644 (file)
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -35,6 +35,10 @@
   '((ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 1)
     (total-strokes      . 5)
+    (<-simplified@JP/Jouyou
+     ((=jis-x0208        . #x6751)     ; �����
+      (=ks-x1001         . #x4F41)     ; �����
+      ))
     (shinjigen-2       . 8973)
     (=ucs              . #x65E7)       ; 旧
     (=jis-x0208                . #x356C)       ; �����
@@ -1812,11 +1816,15 @@
   '((ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 5)
     (total-strokes      . 9)
+    (<-simplified@JP/Jouyou
+     ((=ucs              . #x665D)     ; 晝
+      (=jis-x0208        . #x5A6C)     ; �����
+      ))
     (<-vulgar-ideograph
-     (:sources (sougen-irai-zokujifu morohashi-daikanwa)
-      :char    ((=daikanwa          . 13948)   ; �����
-                )
+     ((=daikanwa         . 13948)      ; �����
       ))
+    (<-vulgar-ideograph*sources
+     songyuan-yilai-suzipu daikanwa)
     (shinjigen-2       . 3309)
     (=ucs              . #x663C)       ; 昼
     (=jis-x0208                . #x436B)       ; �����
@@ -2615,6 +2623,7 @@
     (=jis-x0213-1-2000 . #x753C)       ; �����
     (=big5             . #xB1DF)       ; ������
     (=daikanwa         . 13940)        ; �����
+    (=jef-china3       . #x51D5)       ; �����
     ))
 (define-char
   '((ideographic-radical . 72) ; ⽇
@@ -3663,18 +3672,26 @@
     (ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 8)
     (total-strokes      . 12)
+    (<-simplified@JP/Jouyou
+     ((=ucs              . #x665A)     ; 晚
+      (=jis-x0213-1-2000  . #x753C)    ; �����
+      ))
     (=ucs              . #x6669)       ; 晩
     (=jis-x0208                . #x4855)       ; �����
     (=ks-x1001         . #x5839)       ; �����
     (=cns11643-3       . #x3C26)       ; �����
+    (=big5-cdp         . #xB1DF)       ; ������
     (=gt               . 17718)        ; ������
     (=gt-pj-1          . #x4855)       ; ������
-    (=jef-china3       . #x51D5)       ; �����
     ))
 (define-char
   '((ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 8)
     (total-strokes      . 12)
+    (<-simplified@JP/Jouyou
+     ((=ucs              . #x66C9)     ; 曉
+      (=jis-x0208        . #x5A7C)     ; �����
+      ))
     (shinjigen-2       . 3342)
     (=ucs              . #x6681)       ; 暁
     (=jis-x0208                . #x3647)       ; �����
@@ -3688,6 +3705,10 @@
     (ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 8)
     (total-strokes      . 13)
+    (<-simplified@JP/Jouyou
+     ((=ucs              . #xFA43)     ; 暑
+      (=jis-x0213-1-2000  . #x7543)    ; �����
+      ))
     (=ucs              . #x6691)       ; 暑
     (=jis-x0208                . #x3D6B)       ; �����
     (=gb2312           . #x4A6E)       ; �����
@@ -4201,6 +4222,7 @@
     (=ucs              . #xFA43)       ; 暑
     (=ks-x1001         . #x5F74)       ; �����
     (=jis-x0213-1-2000 . #x7543)       ; �����
+    (=big5-cdp         . #xB4BB)       ; ������
     (=daikanwa         . 14051)        ; �����
     (=jef-china3       . #x51AA)       ; �����
     (=ucs@ks           . #x6691)       ; 暑
@@ -4877,14 +4899,25 @@
     (ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 10)
     (total-strokes      . 14)
+    (<-simplified@JP/Jouyou
+     ((=ucs              . #x66C6)     ; 曆
+      (=jis-x0213-1-2000  . #x7547)    ; �����
+      ))
     (=ucs              . #x66A6)       ; 暦
     (=jis-x0208                . #x4E71)       ; �����
-    (=cns11643-3       . #x4737)       ; �����
     (=gt               . 17852)        ; ������
     (=gt-k             . 11190)        ; ������
     (=gt-pj-1          . #x4E71)       ; ������
     ))
 (define-char
+  '((=>ucs             . #x66A6)       ; 暦
+    (morohashi-daikanwa        14111 1 0)
+    (ideographic-radical . 72) ; ⽇
+    (ideographic-strokes . 10)
+    (total-strokes      . 14)
+    (=cns11643-3       . #x4737)       ; �����
+    ))
+(define-char
   '((ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 10)
     (total-strokes      . 14)