(M-02707): Unify M002707.

(U+534A): J90-483E and M054306.
(J83-485C): Use `script' and `vulgar-ideograph-of' instead of
`comment'; unify J90-485C.
(M-02739): Use `vulgar-ideograph-of' instead of
`vulgar-char-of-shinjigen-1'.
(M-02761): Separate S1-833, S2-833 and C1-5E3B.
(C1-5E3B): Unify S1-833, S2-833 and M002761.
(M-02761'): Unify J90-476E.

diff --git a/lisp/utf-2000/Ideograph-R024-Ten.el b/lisp/utf-2000/Ideograph-R024-Ten.el
index 7530213..6608187 100644 (file)
--- a/lisp/utf-2000/Ideograph-R024-Ten.el
+++ b/lisp/utf-2000/Ideograph-R024-Ten.el
@@ -156,6 +156,7 @@
     (shinjigen-1       . 820)
     (shinjigen-2       . 820)
     (ideograph-daikanwa . 02707)       ; �����
+    (mojikyo           . 002707)       ; ������
     ))
 (define-char
   '((morohashi-daikanwa        2707 0 2)
@@ -169,6 +170,8 @@
     (japanese-jisx0208         . #x483E)       ; �����
     (chinese-isoir165          . #x306B)       ; �����
     (chinese-cns11643-1                . #x4624)       ; �����
+    (japanese-jisx0208-1990    . #x483E)       ; �����
+    (mojikyo                   . 054306)       ; ������
     (ucs                       . #x534A)       ; 半
     ))
 (define-char
@@ -441,17 +444,24 @@
     (ucs                       . #x5351)       ; 卑
     ))
 (define-char
-  '((->ucs             . #x5351)       ; 卑
+  '((script            JP-Jouyou Ideograph)
+    (->ucs             . #x5351)       ; 卑
     (morohashi-daikanwa        2738 0 1)
     (ideographic-radical . 24) ; ⼗
     (ideographic-strokes . 7)
     (total-strokes      . 9)
-    (comment           . "[JP-Jouyou] <vulgar character> of S1-0830")
     (shinjigen-1       . 829)
     (shinjigen-2       . 829)
+    (vulgar-ideograph-of
+     ((sources           shinjigen-1)
+      (char . ((shinjigen-1       . 830)
+              (ideograph-daikanwa . 02738)     ; �����
+              ))
+      ))
     (japanese-jisx0208-1978    . #x485C)       ; �����
     (japanese-jisx0208         . #x485C)       ; �����
     (chinese-cns11643-6                . #x2F38)       ; �����
+    (japanese-jisx0208-1990    . #x485C)       ; �����
     ))
 (define-char
   '((ideographic-radical . 24) ; ⼗
@@ -459,7 +469,12 @@
     (total-strokes      . 8)
     (shinjigen-1       . 831)
     (shinjigen-2       . 831)
-    (vulgar-char-of-shinjigen-1 . 830)
+    (vulgar-ideograph-of
+     ((sources           shinjigen-1)
+      (char . ((shinjigen-1       . 830)
+              (ideograph-daikanwa . 02738)     ; �����
+              ))
+      ))
     (ideograph-daikanwa . 02739)       ; �����
     ))
 (define-char
@@ -691,16 +706,24 @@
   '((ideographic-radical . 24) ; ⼗
     (ideographic-strokes . 10)
     (total-strokes      . 12)
-    (shinjigen-1       . 833)
-    (shinjigen-2       . 833)
     (chinese-gb2312    . #x3229)       ; �����
     (chinese-isoir165  . #x3229)       ; �����
-    (chinese-cns11643-1 . #x5E3B)      ; �����
     (ideograph-daikanwa . 02761)       ; �����
     (ucs               . #x535A)       ; 博
     ))
 (define-char
   '((->ucs             . #x535A)       ; 博
+    (morohashi-daikanwa        2761 0 1)
+    (ideographic-radical . 24) ; ⼗
+    (ideographic-strokes . 10)
+    (total-strokes      . 12)
+    (shinjigen-1       . 833)
+    (shinjigen-2       . 833)
+    (chinese-cns11643-1 . #x5E3B)      ; �����
+    (mojikyo           . 002761)       ; ������
+    ))
+(define-char
+  '((->ucs             . #x535A)       ; 博
     (morohashi-daikanwa        2761 0 2)
     (ideographic-radical . 24) ; ⼗
     (ideographic-strokes . 10)
@@ -717,6 +740,7 @@
     (shinjigen-2       . 832)
     (japanese-jisx0208-1978    . #x476E)       ; �����
     (japanese-jisx0208         . #x476E)       ; �����
+    (japanese-jisx0208-1990    . #x476E)       ; �����
     (mojikyo                   . 050114)       ; ������
     ))
 (define-char