(M-01512): Use `<-vulgar-ideograph' and `<-vulgar-ideograph*sources'

instead of `comment'; separate S-0481, U+5185, J0-4662, G0-445A,
GT-01983 and GT-K00547.
(U+5185): Unify BC-8C57.
(U+5186): Add `<-simplified@JP/Jouyou'.

diff --git a/lisp/utf-2000/Ideograph-R013-Down-Box.el b/lisp/utf-2000/Ideograph-R013-Down-Box.el
index 1ab1d2f..6802184 100644 (file)
--- a/lisp/utf-2000/Ideograph-R013-Down-Box.el
+++ b/lisp/utf-2000/Ideograph-R013-Down-Box.el
@@ -107,37 +107,41 @@
     (=daikanwa         . 01511)        ; ø¸€—§
     ))
 (define-char
-  '((ideographic-radical . 13) ; ⼌
+  '((=>ucs             . #x5185)       ; 内
+    (ideographic-radical . 13) ; ⼌
     (ideographic-strokes . 2)
     (total-strokes      . 4)
-    (comment           . "<vulgar character> of R011:M01418.0")
-    (shinjigen-1       . 481)
-    (shinjigen-2       . 481)
-    (=ucs              . #x5185)       ; 内
-    (=jis-x0208                . #x4662)       ; ø½Š­“
-    (=gb2312           . #x445A)       ; ø»„º—
+    (<-vulgar-ideograph
+     ((=daikanwa         . 01418)      ; ø¸€–Š
+      ))
+    (<-vulgar-ideograph*sources
+     daikanwa)
     (=cns11643-6       . #x2150)       ; ø»›µŸ
-    (=gt               . 01983)        ; ý¡€€ž¿
-    (=gt-k             . 00547)        ; ý¡„€ˆ£
-    (=gt-pj-1          . #x4662)       ; ý¡€€ž¿
     (=daikanwa         . 01512)        ; ø¸€—¨
     ))
 (define-char
-  '((=>ucs             . #x5185)       ; 内
-    (morohashi-daikanwa        1512 0 0)
+  '((morohashi-daikanwa        1512 0 0)
     (ideographic-radical . 13) ; ⼌
     (ideographic-strokes . 2)
     (total-strokes      . 4)
-    (<-radical
-     ((=ucs              . #x5185)     ; 内
-      ))
-    (ideograph-cdp     . -434)
+    (shinjigen-1       . 481)
+    (shinjigen-2       . 481)
+    (=ucs              . #x5185)       ; 内
+    (=jis-x0208                . #x4662)       ; ø½Š­“
+    (=gb2312           . #x445A)       ; ø»„º—
     (=big5-cdp         . #x8C57)       ; ý¢€ˆ±—
+    (=gt               . 01983)        ; ý¡€€ž¿
+    (=gt-k             . 00547)        ; ý¡„€ˆ£
+    (=gt-pj-1          . #x4662)       ; ý¡€€ž¿
     ))
 (define-char
   '((ideographic-radical . 13) ; ⼌
     (ideographic-strokes . 2)
     (total-strokes      . 4)
+    (<-simplified@JP/Jouyou
+     ((=ucs              . #x5713)     ; 圓
+      (=jis-x0208        . #x5424)     ; ø½‹€¹
+      ))
     (hanyu-dazidian    1 96 18)
     (shinjigen-1       . 1331)
     (shinjigen-2       . 1331)