(JX2-2E24): Add mapping for U-000231B6.

[chise/xemacs-chise.git] / lisp / utf-2000 / Ideograph-R007-Two.el

diff --git a/lisp/utf-2000/Ideograph-R007-Two.el b/lisp/utf-2000/Ideograph-R007-Two.el
index d03b060..de07cf9 100644 (file)
--- a/lisp/utf-2000/Ideograph-R007-Two.el
+++ b/lisp/utf-2000/Ideograph-R007-Two.el
@@ -777,13 +777,13 @@
     (ucs                       . #x20131)      ; 𠄱
     ))
 (define-char
-  '((ideographic-radical . 7)  ; ⼆
-    (ideographic-strokes . 7)
+  '((ideographic-      (:radical       57 ; ⼸
+                        :strokes       6)
+                       (:radical       7 ; ⼆
+                        :strokes       7))
     (total-strokes      . 9)
-    (->identical
-     ((chinese-cns11643-6 . #x307C)    ; �����
-      (ideograph-daikanwa . 09782)     ; �����
-      ))
+    (chinese-cns11643-6                . #x307C)       ; �����
+    (ideograph-daikanwa                . 09782)        ; �����
     (ideograph-hanziku-1       . #xF5B0)       ; ������
     (ucs                       . #x20134)      ; 𠄴
     ))