From: tomo <tomo>
Date: Sun, 28 Dec 2003 17:30:49 +0000 (+0000)
Subject: (U+5841): Use `<-simplified-ideograph*sources' instead of char-ref in
X-Git-Tag: r21-4-14-chise-0_21-17^2~129
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=70c1f4b1a3e1c7f3aa79037fd32af890b70602f9;p=chise%2Fxemacs-chise.git.1

(U+5841): Use `<-simplified-ideograph*sources' instead of char-ref in
`<-simplified-ideograph'.
(JX1-2F5E): Unify U+FA3A instead of U+58A8.
---

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index 0c77c7b..3082961 100644
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -6909,9 +6909,10 @@
     (ideographic-strokes . 9)
     (total-strokes	 . 12)
     (<-simplified-ideograph
-     (:char	((=daikanwa	     . 05574)	; ø¸—†
-		 )
-      :sources	(morohashi-daikanwa)))
+     ((=daikanwa	  . 05574)	; ø¸—†
+      ))
+    (<-simplified-ideograph*sources
+     daikanwa)
     (=ucs		. #x5841)	; 塁
     (=jis-x0208		. #x4E5D)	; ø½Š¸¾
     (=gt		. 06689)	; ý¡€¨¡
@@ -9947,26 +9948,32 @@
     (=hanziku-2		. #xB475)	; ý¢€«‘µ
     ))
 (define-char
-  '((ideographic-radical . 32)	; ⼟
+  '((=>ucs*		. #x58A8)	; 墨
+    (ideographic-radical . 32)	; ⼟
     (ideographic-strokes . 12)
     (total-strokes	 . 15)
     (hanyu-dazidian	1 487 3)
-    (=ucs		. #x58A8)	; 墨
+    (=ucs		. #xFA3A)	; 墨
     (=gb2312		. #x442B)	; ø»„¹¨
     (=ks-x1001		. #x5978)	; ø»‰­³
     (=jis-x0213-1-2000	. #x2F5E)	; ø»¢¨
     (=big5		. #xBEA5)	; ý¢€‹º¥
     (=daikanwa		. 05469)	; ø¸•
     (=jef-china3	. #x47DC)	; øº„Ÿœ
-    (=ucs@jis		. #xFA3A)	; 墨
+    (=ucs@gb		. #x58A8)	; 墨
+    (=ucs@ks		. #x58A8)	; 墨
+    (=ucs@big5		. #x58A8)	; 墨
     ))
 (define-char
-  '((=>ucs*		. #x58A8)	; 墨
+  '((=>ucs@jis		. #xFA3A)	; 墨
     (morohashi-daikanwa	5469 0 0)
     (ideographic-radical . 32)	; ⼟
     (ideographic-strokes . 12)
     (total-strokes	 . 15)
-    (=ucs		. #xFA3A)	; 墨
+    (->identical
+     ((=ucs		  . #xFA3A)	; 墨
+      ))
+    (=ucs		. #x58A8)	; 墨
     ))
 (define-char
   '((=>ucs		. #x58A8)	; 墨