(M-09994): Moved into U-0002249C.

(H3-ABF0): Likewise.
(U-0002249C): Use `->subsumptive'.

diff --git a/lisp/utf-2000/Ideograph-R059-Bristle.el b/lisp/utf-2000/Ideograph-R059-Bristle.el
index 0e14fb9..892786f 100644 (file)
--- a/lisp/utf-2000/Ideograph-R059-Bristle.el
+++ b/lisp/utf-2000/Ideograph-R059-Bristle.el
@@ -437,33 +437,27 @@
     (=gb2312           . #x316B)       ; �����
     ))
 (define-char
-  '((=>ucs             . #x2249C)      ; 𢒜
+  '((=>daikanwa                . 09994)        ; �����
     (ideographic-radical . 59) ; ⼺
     (ideographic-strokes . 8)
     (total-strokes      . 11)
     (->same
-     (:sources (morohashi-daikanwa)
-      :char    ((=daikanwa          . 09993)   ; �����
-                )
+     ((=jis-x0208        . #x4937)     ; �����
+      (=ks-x1001         . #x7873)     ; �����
+      (=daikanwa         . 09993)      ; �����
       ))
-    (=daikanwa         . 09994)        ; �����
-    ))
-(define-char
-  '((=>ucs             . #x2249C)      ; 𢒜
-    (morohashi-daikanwa        9994 0 0)
-    (ideographic-radical . 59) ; ⼺
-    (ideographic-strokes . 8)
-    (total-strokes      . 11)
-    (hanyu-dazidian    2 854 20)
-    (=hanziku-3                . #xABF0)       ; ������
-    ))
-(define-char
-  '((morohashi-daikanwa        9994 0 1)
-    (ideographic-radical . 59) ; ⼺
-    (ideographic-strokes . 8)
-    (total-strokes      . 11)
+    (->same*sources
+     zihui-bei daikanwa)
     (=ucs              . #x2249C)      ; 𢒜
-    (=cns11643-6       . #x3F5B)       ; �����
+    (->subsumptive
+     ((=daikanwa         . 09994)      ; �����
+      )
+     ((hanyu-dazidian    2 854 20)
+      (=hanziku-3        . #xABF0)     ; ������
+      )
+     ((=cns11643-6       . #x3F5B)     ; �����
+      (=ucs@iso                  . #x2249C)    ; �����
+      ))
     ))
 (define-char
   '((=>ucs             . #x2F89A)      ; 彫