From: tomo <tomo>
Date: Fri, 12 Mar 2004 14:55:16 +0000 (+0000)
Subject: (C3-2148): Use `->identical' instead of `->same' for M-01512; use
X-Git-Tag: r21-4-14-chise-0_21-25-si-same^2~109
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=09c08a0490e7a2e932c3aa641aefd4d503b5adc5;p=chise%2Fxemacs-chise.git

(C3-2148): Use `->identical' instead of `->same' for M-01512; use
`->same*sources' instead of using char-ref in `->same'.
(M-00634): Use `<-denotational' instead of `->same' for M-23937; use
`<-original-ideograph*sources' instead of using char-ref in
`<-original-ideograph'.
(U-000202F4): Use `->identical' instead of `->same' for M-02134; use
`->same*sources' instead of using char-ref in `->same'.
---

diff --git a/lisp/utf-2000/Ideograph-R009-Man.el b/lisp/utf-2000/Ideograph-R009-Man.el
index 5d074b0..0805661 100644
--- a/lisp/utf-2000/Ideograph-R009-Man.el
+++ b/lisp/utf-2000/Ideograph-R009-Man.el
@@ -758,17 +758,15 @@
     (ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 2)
     (total-strokes	 . 4)
+    (->identical
+     ((=cns11643-6	  . #x2150)	; ø»›µŸ
+      (=daikanwa	  . 01512)	; ø¸€—¨
+      ))
     (->same
-     (:sources	(morohashi-daikanwa)
-      :char	((=>ucs		     . #x5167)	; 內
-		 (ideographic-radical . 11)	; ⼊
-		 (ideographic-strokes . 2)
-		 (total-strokes	      . 4)
-		 (=daikanwa	     . 01418)	; ø¸€–Š
-		 )
-      )
-     ((=daikanwa	  . 01512)	; ø¸€—¨
+     ((=daikanwa	  . 01418)	; ø¸€–Š
       ))
+    (->same*sources
+     daikanwa)
     (=cns11643-3	. #x2148)	; ø»•—‹
     ))
 (define-char
@@ -3150,7 +3148,7 @@
 	)
        ((=ucs		    . #x5185)	; 内
 	))
-      (=ucs@unicode	  . #x343B)	; 󰀃
+      (=ucs@unicode	  . #x343B)	; 󰀄
       ))
     ))
 (define-char
@@ -8912,14 +8910,14 @@
   '((ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
-    (->same
+    (<-denotational
      ((=daikanwa	  . 23937)	; ø¸…¶
       ))
     (<-original-ideograph
-     (:sources	(morohashi-daikanwa)
-      :char	((=daikanwa	     . 00633)	; ø¸€‰¹
-		 )
+     ((=daikanwa	  . 00633)	; ø¸€‰¹
       ))
+    (<-original-ideograph*sources
+     daikanwa)
     (=daikanwa		. 00634)	; ø¸€‰º
     ))
 (define-char
@@ -18358,12 +18356,15 @@
   '((ideographic-radical . 9)	; ⼈
     (ideographic-strokes . 10)
     (total-strokes	 . 12)
-    (->same
+    (->identical
      ((=daikanwa	  . 02134)	; ø¸€¡–
-      )
-     (:char	((=daikanwa	     . 00768)	; ø¸€Œ€
-		 )
-      :sources	(shuowen morohashi-daikanwa)))
+      ))
+    (->same
+     ((=ucs		  . #x5013)	; 倓
+      (=daikanwa	  . 00768)	; ø¸€Œ€
+      ))
+    (->same*sources
+     shuowen daikanwa)
     (hanyu-dazidian	1 206 1)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -20548,7 +20549,8 @@
     (ideographic-strokes . 10)
     (total-strokes	 . 12)
     (->same
-     ((=daikanwa	  . 23328)	; ø¸…¬ 
+     ((=cns11643-5	  . #x3421)	; ø»š†¦
+      (=daikanwa	  . 23328)	; ø¸…¬ 
       ))
     (=ucs		. #x2032A)	; 𠌪
     ))
@@ -23924,7 +23926,7 @@
 	)
        ((=ucs		    . #x6562)	; 敢
 	))
-      (=ucs@unicode	  . #x3488)	; 󰀇
+      (=ucs@unicode	  . #x3488)	; 󰀈
       ))
     ))
 (define-char
@@ -25020,7 +25022,7 @@
 	 ((=ucs		      . #x975E)	; 非
 	  ))
 	))
-      (=ucs@unicode	  . #x348E)	; 󰀉
+      (=ucs@unicode	  . #x348E)	; 󰀊
       ))
     ))
 (define-char
@@ -26853,7 +26855,7 @@
 	)
        ((=ucs		    . #x842C)	; 萬
 	))
-      (=ucs@unicode	  . #x3496)	; 󰀊
+      (=ucs@unicode	  . #x3496)	; 󰀋
       ))
     ))
 (define-char
@@ -27336,7 +27338,7 @@
       (=cns11643-4	  . #x4F5D)	; ø»˜¥ˆ
       (=ucs@cns		  . #x349A)	; ø»˜¥ˆ
       )
-     ((=ucs@unicode	  . #x349A)	; 󰀋
+     ((=ucs@unicode	  . #x349A)	; 󰀌
       ))
     ))
 (define-char
@@ -27424,7 +27426,7 @@
 	)
        ((=ucs		    . #x7FDF)	; 翟
 	))
-      (=ucs@unicode	  . #x349B)	; 󰀌
+      (=ucs@unicode	  . #x349B)	; 󰀍
       )
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -30055,7 +30057,7 @@
 	)
        ((=ucs		    . #x7E47)	; 繇
 	))
-      (=ucs@unicode	  . #x34A1)	; 󰀎
+      (=ucs@unicode	  . #x34A1)	; 󰀏
       ))
     ))
 (define-char