(M-07089): Use `original-ideograph-of' property instead of

`ideograph-original-char-of' property to describe source.
(M-07112): Modify format of `ideograph=' to describe source.

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index 15a6893..ff80b1b 100644 (file)
--- 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)       ; �����
     ))