X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2FIdeograph-R040-Roof.el;h=ff80b1b71e7699f2b2b609bd019f280ddc474b11;hb=9359fcc9231cb0830128988decefc1f55afce7ac;hp=15a6893c963ad0c6c0e22a9c54626fabeb366551;hpb=99a99b642054170355a0bd54b5efa8da31a4ebc1;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index 15a6893..ff80b1b 100644
--- a/lisp/utf-2000/Ideograph-R040-Roof.el
+++ b/lisp/utf-2000/Ideograph-R040-Roof.el
@@ -436,12 +436,15 @@
   '((ideographic-radical . 40)	; ⼧
     (ideographic-strokes . 4)
     (total-strokes	 . 7)
-    (ideograph-original-char-of ((->ucs		. #x5B9C)	; 宜
-				 (ideographic-radical . 40)	; ⼧
-				 (ideographic-strokes . 5)
-				 (total-strokes	      . 8)
-				 (ideograph-daikanwa . 07111)	; ø¸¯‡
-				 ))
+    (original-ideograph-of
+     ((sources		  morohashi-daikanwa)
+      (char . ((->ucs		. #x5B9C)	; 宜
+	       (ideographic-radical . 40)	; ⼧
+	       (ideographic-strokes . 5)
+	       (total-strokes	    . 8)
+	       (ideograph-daikanwa . 07111)	; ø¸¯‡
+	       ))
+      ))
     (japanese-jisx0212	. #x3A4C)	; ø»‹‰©
     (ideograph-daikanwa . 07089)	; ø¸®±
     (ucs		. #x5B90)	; 宐
@@ -724,12 +727,15 @@
     (ideographic-radical . 40)	; ⼧
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
-    (ideograph=		((->ucs		. #x5B9C)	; 宜
-			 (ideographic-radical . 40)	; ⼧
-			 (ideographic-strokes . 5)
-			 (total-strokes	      . 8)
-			 (ideograph-daikanwa . 07111)	; ø¸¯‡
-			 ))
+    (ideograph=
+     ((sources		  morohashi-daikanwa)
+      (char . ((->ucs		. #x5B9C)	; 宜
+	       (ideographic-radical . 40)	; ⼧
+	       (ideographic-strokes . 5)
+	       (total-strokes	    . 8)
+	       (ideograph-daikanwa . 07111)	; ø¸¯‡
+	       ))
+      ))
     (chinese-cns11643-4 . #x2625)	; ø»—¨‚
     (ideograph-daikanwa . 07112)	; ø¸¯ˆ
     ))