From: tomo <tomo>
Date: Sat, 18 Oct 2008 08:29:39 +0000 (+0000)
Subject: (GT-03811): Use `<-subsumptive' to separate S-2208 and integrate
X-Git-Tag: r21-4-21-chise-0_24-6^20~27
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c414f4b9d1baf66ab48f945a92cefa17ad41f6d3;p=chise%2Fxemacs-chise.git-

(GT-03811): Use `<-subsumptive' to separate S-2208 and integrate
JX3-3139.
(J90-3139): Use `=jis-x0213-1@2000' instead of `=jis-x0213-1' for
JX1-3139; use `=ucs@jis/1990' and `=ucs@jis/2000' instead of
`=ucs@jis' for J00U+53A9.
---

diff --git a/lisp/utf-2000/Ideograph-R027-Cliff.el b/lisp/utf-2000/Ideograph-R027-Cliff.el
index cb0faed..20fe217 100644
--- a/lisp/utf-2000/Ideograph-R027-Cliff.el
+++ b/lisp/utf-2000/Ideograph-R027-Cliff.el
@@ -2311,25 +2311,35 @@
      ((=ucs		  . #x53A9)	; 厩
       ))
     (ideographic-radical . 27)	; ⼚
-    (ideographic-strokes . 11)
-    (total-strokes	 . 13)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
-      (=ucs		  . #x2FF8)	; ⿸
+    (->subsumptive
+     ((ideographic-strokes . 11)
+      (total-strokes	   . 13)
+      (ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+	(=ucs		    . #x2FF8)	; ⿸
+	)
+       ((=ucs		    . #x5382)	; 厂
+	)
+       ((=daikanwa	    . 13725)	; &M-13725;
+	))
+      (=gt		  . 03811)	; &GT-03811;
+      (=gt-pj-11	  . #x3B44)	; &GT-03811; [27-36]
       )
-     ((=ucs		  . #x5382)	; 厂
+     ((ideographic-strokes . 11)
+      (total-strokes	   . 13)
+      (=shinjigen	  .  2208)	; &SJG2-2208;
+      (<-vulgar
+       ((=gt		    . 11902)	; &GT-11902;
+	(=shinjigen	    .  2207)	; &GT-11902;
+	))
+      (<-vulgar*sources
+       shinjigen)
       )
-     ((=daikanwa	  . 13725)	; &M-13725;
-      ))
-    (=gt		. 03811)	; &GT-03811;
-    (=gt-pj-11		. #x3B44)	; &GT-03811; [27-36]
-    (=shinjigen		.  2208)	; &GT-03811;
-    (<-vulgar
-     ((=gt		  . 11902)	; &GT-11902;
-      (=shinjigen@1ed	  .  2207)	; &GT-11902;
+     ((ideographic-strokes . 12)
+      (total-strokes	   . 14)
+      (=ucs@jis/2004	  . 21417)
+      (=jis-x0213-1@2004  . #x3139)	; &JX3-3139; [17-25]
       ))
-    (<-vulgar*sources
-     shinjigen@1ed)
     ))
 (define-char
   '((<-denotational
@@ -2355,11 +2365,12 @@
      ((ideographic-strokes . 10)
       (total-strokes	   . 12)
       (=jis-x0208@1990	  . #x3139)	; &GT-03790; [17-25]
-      (=jis-x0213-1	  . #x3139)	; &I-JX1-3139; [17-25]
+      (=jis-x0213-1@2000  . #x3139)	; &I-JX1-3139; [17-25]
       (=gt		  . 03790)	; &I-GT-03790;
       (=gt-pj-1		  . #x3139)	; &I-GT-03790; [17-25]
       (=jef-china3	  . #x45E4)	; &I-JC3-45E4;
-      (=ucs@jis		  . #x53A9)	; &GT-03790;
+      (=ucs@jis/1990	  . #x53A9)	; &GT-03790;
+      (=ucs@jis/2000	  . #x53A9)	; &GT-03790;
       )
      ((ideographic-strokes . 10)
       (total-strokes	   . 12)