From ff1ab8b0fb7deb521e0e2643f25cb5522dd0a4cd Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 15 Jan 2013 14:08:26 +0900
Subject: [PATCH] (U+65F6): Unify S-3321; add `<-vulgar' for J0-3B7E.
 (U+6642): Use `->denotational'.

---
 lisp/utf-2000/Ideograph-R072-Sun.el |   29 +++++++++++++++++++++++++----
 1 file changed, 25 insertions(+), 4 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index 32fd07c..e0becf3 100644
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -524,6 +524,17 @@
     (=gb2312		. #x4A31)	; &I-G0-4A31; [42-17]
     (=cns11643-3	. #x263D)	; &I-C3-263D; [06-29]
     (=daikanwa		. 13772)	; &I-M-13772;
+    (=shinjigen		.  3321)	; 时
+    (<-vulgar
+     ((=ucs@unicode	  . #x6642)	; &GT-17571;
+      (=jis-x0208	  . #x3B7E)	; &I-J90-3B7E; [27-94]
+      (=ks-x1001	  . #x6341)	; &I-K0-6341; [67-33]
+      (=jis-x0213-1	  . #x3B7E)	; &I-JX1-3B7E; [27-94]
+      (=daikanwa	  . 13890)	; &I-M-13890;
+      (=shinjigen	  .  3319)	; &GT-17571;
+      ))
+    (<-vulgar*sources
+     shinjigen)
     (->subsumptive
      ((=jef-china3	  . #x51BA)	; &JC3-51BA;
       )
@@ -2600,20 +2611,30 @@
     (ideographic-strokes . 6)
     (total-strokes	 . 10)
     (=ucs		. #x6642)	; 時
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x6642)	; 時
+      ))
+    (ideographic-radical . 72)	; ⽇
+    (ideographic-strokes . 6)
+    (total-strokes	 . 10)
+    (=ucs@unicode	. #x6642)	; &GT-17571;
     (=jis-x0208		. #x3B7E)	; &I-J90-3B7E; [27-94]
     (=ks-x1001		. #x6341)	; &I-K0-6341; [67-33]
     (=jis-x0213-1	. #x3B7E)	; &I-JX1-3B7E; [27-94]
-    (=gb12345		. #x4A31)	; 時 [42-17]
+    (=gb12345		. #x4A31)	; &GT-17571; [42-17]
     (=big5		. #xAEC9)	; &I-B-AEC9;
     (=gt		. 17571)	; &I-GT-17571;
     (=gt-k		. 06448)	; &I-GT-K06448;
     (=gt-pj-1		. #x3B7E)	; &I-GT-17571; [27-94]
     (=daikanwa		. 13890)	; &I-M-13890;
-    (=shinjigen@rev	.  3319)	; 時
+    (=shinjigen		.  3319)	; &GT-17571;
     ))
 (define-char
-  '((=>ucs		. #x6642)	; 時
-    (morohashi-daikanwa	13890 0 3)
+  '((<-denotational
+     ((=ucs		  . #x6642)	; 時
+      ))
     (ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 6)
     (total-strokes	 . 10)
-- 
1.7.10.4