From bba5e5c09dfe46832cdd6707fe6afc9aa7881ba4 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 11 Aug 2007 16:51:19 +0000
Subject: [PATCH] (U-00023995): Use `->subsumptive'.

---
 lisp/utf-2000/Ideograph-R077-Stop.el |   21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R077-Stop.el b/lisp/utf-2000/Ideograph-R077-Stop.el
index 765bb0d..addb568 100644
--- a/lisp/utf-2000/Ideograph-R077-Stop.el
+++ b/lisp/utf-2000/Ideograph-R077-Stop.el
@@ -1584,17 +1584,20 @@
   '((ideographic-radical . 77)	; ⽌
     (ideographic-strokes . 11)
     (total-strokes	 . 15)
-    (hanyu-dazidian	2 1445 3)
     (=ucs		. #x23995)	; 𣦕
-    (=cns11643-7	. #x2425)	; &I-C7-2425; [04-05]
-    (=daikanwa		. 16337)	; &I-M-16337;
-    (=hanziku-4		. #xD3D2)	; &I-HZK04-D3D2;
-    (<-same
-     ((=ucs		  . #x230B8)	; 𣂸
-      (=daikanwa	  . 13583)	; &I-M-13583;
+    (->subsumptive
+     ((hanyu-dazidian	  2 1445 3)
+      (=cns11643-7	  . #x2425)	; &M-16337; [04-05]
+      (=daikanwa	  . 16337)	; &I-M-16337;
+      (=hanziku-4	  . #xD3D2)	; &I-HZK04-D3D2;
+      (=ucs@iso		  . #x23995)	; &M-16337;
+      (<-same
+       ((=ucs		    . #x230B8)	; 𣂸
+	(=daikanwa	    . 13583)	; &I-M-13583;
+	))
+      (<-same*sources
+       zihui-bu daikanwa)
       ))
-    (<-same*sources
-     zihui-bu daikanwa)
     ))
 (define-char
   '((ideographic-radical . 77)	; ⽌
-- 
1.7.10.4