(U-000261E5): Use `->subsumptive'.

diff --git a/lisp/utf-2000/Ideograph-R149-Speech.el b/lisp/utf-2000/Ideograph-R149-Speech.el
index a475e2e..e307a18 100644 (file)
--- a/lisp/utf-2000/Ideograph-R149-Speech.el
+++ b/lisp/utf-2000/Ideograph-R149-Speech.el
@@ -15365,33 +15365,23 @@
     (=cns11643-3       . #x5F62)       ; &I-C3-5F62;
     ))
 (define-char
-  '((=>ucs             . #x261E5)      ; 𦇥
-    (ideographic-radical . 149)        ; ⾔
-    (ideographic-strokes . 15)
-    (total-strokes      . 22)
-    (=daikanwa         . 36111)        ; &M-36111;
-    ))
-(define-char
-  '((=>ucs             . #x261E5)      ; 𦇥
-    (morohashi-daikanwa        36111 0 0)
-    (ideographic-radical@ucs . 149)    ; ⾔
-    (ideographic-strokes@ucs . 15)
-    (ideographic-radical@daikanwa . 120)       ; ⽷
-    (ideographic-strokes@daikanwa . 16)
-    (total-strokes      . 22)
-    (hanyu-dazidian    8 37 7)
-    (=hanziku-12       . #xEFEB)       ; &HZK12-EFEB;
-    ))
-(define-char
-  '((=>ucs             . #x261E5)      ; 𦇥
-    (morohashi-daikanwa        36111 0 1)
-    (ideographic-radical@ucs . 149)    ; ⾔
-    (ideographic-strokes@ucs . 15)
-    (ideographic-radical@daikanwa . 120)       ; ⽷
-    (ideographic-strokes@daikanwa . 16)
+  '((ideographic-radical@ucs . 120)    ; ⽷
+    (ideographic-strokes@ucs . 16)
+    (ideographic-radical@cns . 149)    ; ⾔
+    (ideographic-strokes@cns . 15)
+    (ideographic-radical@cns*sources
+     daikanwa cns11643)
     (total-strokes      . 22)
     (=ucs              . #x261E5)      ; 𦇥
-    (=cns11643-4       . #x694B)       ; &I-C4-694B;
+    (->subsumptive
+     ((=daikanwa         . 36111)      ; &M-36111;
+      )
+     ((hanyu-dazidian    8 37 7)
+      (=hanziku-12       . #xEFEB)     ; &HZK12-EFEB;
+      )
+     ((=cns11643-4       . #x694B)     ; &C4-694B;
+      (=ucs@iso                  . #x261E5)    ; &C4-694B;
+      ))
     ))
 (define-char
   '((ideographic-radical . 149)        ; ⾔