From 5b961252107439cddc0807a6885513515d2f68da Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 10 Sep 2010 06:18:53 +0000
Subject: [PATCH] (U+6691): Unify J97-3D6B. (parent of JX1-7543): Add
 `=>>ucs@jis', `=>>ucs@ks', `=>>ucs@cns' and
 `=>>jis-x0213-1'.

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

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index 1a39802..d0edaf3 100644
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -4655,6 +4655,7 @@
 (define-char
   '((ideographic-radical . 72)	; ⽇
     (=ucs		. #x6691)	; 暑
+    (=>jis-x0208@1997	. #x3D6B)	; 暑 [29-75]
     (=big5		. #xB4BB)	; &I-B-B4BB;
     ))
 (define-char
@@ -5091,13 +5092,13 @@
   '((<-denotational
      ((=ucs		  . #x6691)	; 暑
       ))
-    (=>ucs*		. #x6691)	; 暑
-    (=>ucs@cns		. #x2F8CF)	; 暑
-    (=>ucs@jis		. #xFA43)	; 暑
-    (=>ucs@ks		. #x6691)	; 暑
     (ideographic-radical . 72)	; ⽇
     (ideographic-strokes . 9)
     (total-strokes	 . 13)
+    (=>>ucs@jis		. #xFA43)	; &G-JX1-7543;
+    (=>>ucs@ks		. #x6691)	; &G-JX1-7543;
+    (=>>ucs@cns		. #x2F8CF)	; &G-JX1-7543;
+    (=>>jis-x0213-1	. #x7543)	; &G-JX1-7543; [85-35]
     (->subsumptive
      ((=>ucs*		  . #x6691)	; 暑
       (=ucs		  . #xFA43)	; 暑
-- 
1.7.10.4