From: tomo <tomo>
Date: Tue, 20 Apr 2004 10:16:35 +0000 (+0000)
Subject: (U-0002F817): Use `=>daikanwa' instead of `morohashi-daikanwa'; add
X-Git-Tag: r21-4-14-chise-0_21-26-si-vulgar^2~46
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f1f8b564e2432059995227103e2b18b285f8c2aa;p=chise%2Fxemacs-chise.git.1

(U-0002F817): Use `=>daikanwa' instead of `morohashi-daikanwa'; add
`=>ucs*' for U+5197; use `<-vulgar*sources' instead of char-ref in
`<-vulgar'.
(U+51A8): Use `<-vulgar*sources' instead of char-ref in `<-vulgar'.
---

diff --git a/lisp/utf-2000/Ideograph-R014-Cover.el b/lisp/utf-2000/Ideograph-R014-Cover.el
index ab3b9e7..f85053c 100644
--- a/lisp/utf-2000/Ideograph-R014-Cover.el
+++ b/lisp/utf-2000/Ideograph-R014-Cover.el
@@ -41,15 +41,18 @@
     (=daikanwa		. 01566)	; &I-M-01566;
     ))
 (define-char
-  '((morohashi-daikanwa	1566 0 5)
+  '((=>ucs*		. #x5197)	; 冗
+    (=>daikanwa		. 01566)	; 冗
     (ideographic-radical . 14)	; ⼍
     (ideographic-strokes . 2)
     (total-strokes	 . 4)
     (<-vulgar
-     (:char	((shinjigen-1	     . 525)
-		 (=daikanwa	     . 01566)	; &I-M-01566;
-		 )
-      :sources	(shinjigen-1)))
+     ((shinjigen-1	  . 525)
+      (=ucs		  . #x5197)	; 冗
+      (=jis-x0208	  . #x3E69)	; &I-J90-3E69;
+      ))
+    (<-vulgar*sources
+     shinjigen-1)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
@@ -673,11 +676,11 @@
     (ideographic-strokes . 9)
     (total-strokes	 . 11)
     (<-vulgar
-     (:sources	(shinjigen-1)
-      :char	((shinjigen-1	     . 1852)
-		 (=daikanwa	     . 07230)	; &I-M-07230;
-		 )
+     ((shinjigen-1	  . 1852)
+      (=daikanwa	  . 07230)	; &I-M-07230;
       ))
+    (<-vulgar*sources
+     shinjigen-1)
     (hanyu-dazidian	1 305 3)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")