From bc8bab636fdf27fb5c28fbc1dd11c0fc5de28dec Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 6 Mar 2015 05:43:10 +0900
Subject: [PATCH] (U+342B): Use `->subsumptive' instead of `->denotational'.

---
 lisp/utf-2000/Ideograph-R008-Lid.el |   82 +++++++++++++++++------------------
 1 file changed, 40 insertions(+), 42 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R008-Lid.el b/lisp/utf-2000/Ideograph-R008-Lid.el
index 15b6a66..125f6a0 100644
--- a/lisp/utf-2000/Ideograph-R008-Lid.el
+++ b/lisp/utf-2000/Ideograph-R008-Lid.el
@@ -725,6 +725,7 @@
     (ideographic-radical@cns . 17)	; ⼐
     (ideographic-strokes . 4)
     (total-strokes	 . 6)
+    (hanyu-dazidian	1 283 2)
     (=ucs		. #x342B)	; 㐫
     (=cns11643-3	. #x2323)	; &I-C3-2323; [03-03]
     (=big5-cdp		. #x8C5E)	; &I-CDP-8C5E;
@@ -732,54 +733,51 @@
     (=cbeta		. 04846)	; &I-CB04846;
     (=jef-china3	. #x8DCD)	; &I-JC3-8DCD;
     (<-vulgar
-     ((=ucs@jis		  . #x51F6)	; &GT-02360;
-      (=ucs@ks		  . #x51F6)	; &GT-02360;
-      (=jis-x0208	  . #x3627)	; &GT-02360; [22-07]
-      (=ks-x1001	  . #x7D55)	; &I-K0-7D55; [93-53]
-      (=cns11643-1	  . #x447E)	; &I-C1-447E; [36-94]
-      (=jis-x0213-1	  . #x3627)	; &I-JX1-3627; [22-07]
+     ((=ucs		  . #x51F6)	; 凶
       (=daikanwa	  . 01803)	; &I-M-01803;
       ))
     (<-vulgar*sources
      pianhai-leibian daikanwa)
-    ))
-(define-char
-  '((<-denotational
-     ((=ucs		  . #x342B)	; 㐫
-      ))
-    (ideographic-radical@ucs . 8)	; ⼇
-    (ideographic-radical@ucs*sources
-     daikanwa ucs)
-    (ideographic-radical@cns . 17)	; ⼐
-    (ideographic-strokes . 4)
-    (total-strokes	 . 6)
-    (hanyu-dazidian	1 283 2)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs		  . #x2FF1)	; ⿱
-      )
-     ((=ucs		  . #x4EA0)	; 亠
-      )
-     ((=ucs		  . #x51F6)	; 凶
-      ))
-    (==ucs@unicode	. #x342B)	; &g2-CDP-8C5E;
-    (==cns11643-3	. #x2323)	; &g2-CDP-8C5E; [03-03]
-    (==big5-cdp		. #x8C5E)	; &g2-CDP-8C5E;
-    (==daikanwa/ho	.  0008)	; &g2-CDP-8C5E;
-    (==cbeta		. 04846)	; &g2-CDP-8C5E;
-    (==jef-china3	. #x8DCD)	; &g2-CDP-8C5E;
     (->subsumptive
-     ((===daikanwa/ho	  .  0008)	; &R-M-H0008;
-      )
-     ((===big5-cdp	  . #x8C5E)	; &R-CDP-8C5E;
-      )
-     ((===cbeta		  . 04846)	; &R-CB04846;
-      )
-     ((===cns11643-3	  . #x2323)	; &R-C3-2323; [03-03]
-      )
-     ((===ucs@unicode	  . #x342B)	; &R-UU+342B;
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((=ucs		    . #x4EA0)	; 亠
+	)
+       ((==ucs@cns	    . #x51F6)	; &g2-AJ1-01695;
+	(==ucs@jis	    . #x51F6)	; &g2-AJ1-01695;
+	(==ucs@ks	    . #x51F6)	; &g2-AJ1-01695;
+	(==adobe-japan1-0   . 01695)	; &g2-AJ1-01695;
+	))
+      (==ucs@cns	  . #x342B)	; &g2-CDP-8C5E;
+      (==cns11643-3	  . #x2323)	; &g2-CDP-8C5E; [03-03]
+      (==big5-cdp	  . #x8C5E)	; &g2-CDP-8C5E;
+      (==daikanwa/ho	  .  0008)	; &g2-CDP-8C5E;
+      (==cbeta		  . 04846)	; &g2-CDP-8C5E;
+      (==jef-china3	  . #x8DCD)	; &g2-CDP-8C5E;
+      (->subsumptive
+       ((===daikanwa/ho	    .  0008)	; &R-M-H0008;
+	)
+       ((===big5-cdp	    . #x8C5E)	; &R-CDP-8C5E;
+	)
+       ((===cbeta	    . 04846)	; &R-CB04846;
+	)
+       ((===cns11643-3	    . #x2323)	; &R-C3-2323; [03-03]
+	)
+       ((===jef-china3	    . #x8DCD)	; &R-JC3-8DCD;
+	))
       )
-     ((===jef-china3	  . #x8DCD)	; &R-JC3-8DCD;
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((=ucs		    . #x4EA0)	; 亠
+	)
+       ((==ucs@unicode	    . #x51F6)	; &g2-UU+51F6;
+	))
+      (==ucs@unicode	  . #x342B)	; &g2-UU+342B;
+      (==ucs@JP/hanazono  . nil)
       ))
     ))
 (define-char
-- 
1.7.10.4