(U+77F3-itaiji-004): New character; add `<-formed' for U+6238 and

U+77F3.

diff --git a/lisp/utf-2000/Ideograph-R112-Stone.el b/lisp/utf-2000/Ideograph-R112-Stone.el
index 6f63f3a..b3ca9a1 100644 (file)
--- a/lisp/utf-2000/Ideograph-R112-Stone.el
+++ b/lisp/utf-2000/Ideograph-R112-Stone.el
@@ -18,6 +18,17 @@
     ))
 (define-char
   '((ideographic-radical . 112)        ; ⽯
+    (ideographic-strokes . 0)
+    (total-strokes      . 4)
+    (=ucs-itaiji-004   . #x77F3)       ; &U-i004+77F3;
+    (<-formed
+     ((=ucs              . #x6238)     ; 戸
+      )
+     ((=ucs              . #x77F3)     ; 石
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 112)        ; ⽯
     (ideographic-strokes . 1)
     (total-strokes      . 6)
     (=ucs              . #x25415)      ; 𥐕