From bab182b0136fd3e5b1535de0bd6accee4b5df9cd Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 21 Oct 2008 05:05:19 +0000
Subject: [PATCH] (U+7259): Add J97-3267; move B-A4FA from UU+7259. (M-19909):
 Separate C1-455B; integrate JX3-3267. (J0-3267): Use
 `<-subsumptive' to separate K0-6433 and JC3-58C5; use
 `=jis-x0213-1@2000' instead of `=jis-x0213-1' for JX1-3267;
 use `=ucs@jis/1990' and `=ucs@jis/2000' instead of
 `=ucs@jis' for J00U+7259.

---
 lisp/utf-2000/Ideograph-R092-Fang.el |   31 ++++++++++++++++++++-----------
 1 file changed, 20 insertions(+), 11 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R092-Fang.el b/lisp/utf-2000/Ideograph-R092-Fang.el
index 17e6073..a24ee36 100644
--- a/lisp/utf-2000/Ideograph-R092-Fang.el
+++ b/lisp/utf-2000/Ideograph-R092-Fang.el
@@ -3,6 +3,8 @@
   '((ideographic-radical . 92)	; ⽛
     (ideographic-strokes . 0)
     (=ucs		. #x7259)	; 牙
+    (=big5		. #xA4FA)	; &I-B-A4FA;
+    (=jis-x0208@1997	. #x3267)	; 牙 [18-71]
     ))
 (define-char
   '((<-denotational
@@ -12,11 +14,14 @@
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
     (->subsumptive
-     ((=cns11643-1	  . #x455B)	; &M-19909; [37-59]
-      (=daikanwa	  . 19909)	; &I-M-19909;
+     ((=daikanwa	  . 19909)	; &M-19909;
+      )
+     ((=cns11643-1	  . #x455B)	; &C1-455B; [37-59]
+      )
+     ((=ucs@jis/2004	  . 29273)
+      (=jis-x0213-1@2004  . #x3267)	; &JX3-3267; [18-71]
       )
      ((=gb2312		  . #x5140)	; &G0-5140; [49-32]
-      (=big5		  . #xA4FA)	; &I-B-A4FA;
       (=ucs@unicode	  . #x7259)	; &G0-5140;
       ))
     ))
@@ -27,14 +32,18 @@
     (ideographic-radical . 92)	; ⽛
     (ideographic-strokes . 0)
     (total-strokes	 . 5)
-    (=jis-x0208		. #x3267)	; &GT-25560; [18-71]
-    (=ks-x1001		. #x6433)	; &I-K0-6433; [68-19]
-    (=jis-x0213-1	. #x3267)	; &I-JX1-3267; [18-71]
-    (=gt		. 25560)	; &I-GT-25560;
-    (=gt-k		. 00900)	; &I-GT-K00900;
-    (=gt-pj-1		. #x3267)	; &I-GT-25560; [18-71]
-    (=jef-china3	. #x58C5)	; &I-JC3-58C5;
-    (=ucs@jis		. #x7259)	; &GT-25560;
+    (->subsumptive
+     ((=jis-x0208	  . #x3267)	; &GT-25560; [18-71]
+      (=jis-x0213-1@2000  . #x3267)	; &I-JX1-3267; [18-71]
+      (=gt		  . 25560)	; &I-GT-25560;
+      (=gt-k		  . 00900)	; &I-GT-K00900;
+      (=gt-pj-1		  . #x3267)	; &I-GT-25560; [18-71]
+      (=ucs@jis/1990	  . #x7259)	; &GT-25560;
+      (=ucs@jis/2000	  . #x7259)	; &GT-25560;
+      )
+     ((=ks-x1001	  . #x6433)	; &K0-6433; [68-19]
+      (=jef-china3	  . #x58C5)	; &I-JC3-58C5;
+      ))
     ))
 (define-char
   '((=>ucs		. #x3E26)	; 㸦
-- 
1.7.10.4