(C4-2249): Unify CB-06611.

(U+53C5): Use `<-vulgar-ideograph' instead of
`vulgar-char-of-shinjigen-1'; unify CB-03744.

diff --git a/lisp/utf-2000/Ideograph-R028-Private.el b/lisp/utf-2000/Ideograph-R028-Private.el
index af5a752..8b78aea 100644 (file)
--- a/lisp/utf-2000/Ideograph-R028-Private.el
+++ b/lisp/utf-2000/Ideograph-R028-Private.el
@@ -275,6 +275,7 @@
     (total-strokes      . 6)
     (chinese-cns11643-4 . #x2249)      ; �����
     (ideograph-daikanwa . 48956)       ; �����
+    (ideograph-cbeta   . 06611)        ; �����
     ))
 (define-char
   '((ideographic-radical . 28) ; ⼛
@@ -475,7 +476,6 @@
   '((ideographic-radical . 28) ; ⼛
     (ideographic-strokes . 9)
     (total-strokes      . 11)
-    (non-morohashi     3099 9)
     (chinese-cns11643-3 . #x3456)      ; �����
     (ucs               . #x3558)       ; 㕘
     ))
@@ -483,11 +483,17 @@
   '((ideographic-radical . 28) ; ⼛
     (ideographic-strokes . 10)
     (total-strokes      . 12)
+    (<-vulgar-ideograph
+     (:sources (shinjigen-1)
+      :char    ((shinjigen-1        . 893)
+                (ideograph-daikanwa . 03098)   ; �����
+                )
+      ))
     (shinjigen-1       . 894)
-    (vulgar-char-of-shinjigen-1 . 893)
     (japanese-jisx0212 . #x3458)       ; �����
     (chinese-cns11643-3 . #x3A29)      ; �����
     (ideograph-daikanwa . 03100)       ; �����
+    (ideograph-cbeta   . 03744)        ; �����
     (ucs               . #x53C5)       ; 叅
     ))
 (define-char