Use `<-same' instead of `->same'.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R015-Ice.el

diff --git a/lisp/utf-2000/Ideograph-R015-Ice.el b/lisp/utf-2000/Ideograph-R015-Ice.el
index 7a50eb4..eeb0173 100644 (file)
--- a/lisp/utf-2000/Ideograph-R015-Ice.el
+++ b/lisp/utf-2000/Ideograph-R015-Ice.el
@@ -138,18 +138,25 @@
   '((ideographic-radical . 15) ; ⼎
     (ideographic-strokes . 4)
     (total-strokes      . 6)
-    (->same
-     ((=cns11643-3       . #x214C)     ; &M-00360; [01-44]
-      (=daikanwa         . 00360)      ; &I-M-00360;
+    (->vulgar
+     ((=ucs              . #x6C37)     ; 氷
+      (=daikanwa         . 17087)      ; &I-M-17087;
       ))
-    (->same*sources
-     shuowen kanjo ronkou jiyun daikanwa)
-    (<-original-ideograph
+    (->vulgar*sources
+     zhengzi-tong daikanwa)
+    (<-original
      ((shinjigen-1       . 4051)
-      (=daikanwa         . 17087)      ; &I-M-17087;
+      (=ucs              . #x6C37)     ; 氷
+      (=jis-x0208        . #x4939)     ; &I-J90-4939; [41-25]
       ))
-    (<-original-ideograph*sources
+    (<-original*sources
      shinjigen-1)
+    (<-same
+     ((=cns11643-3       . #x214C)     ; &M-00360; [01-44]
+      (=daikanwa         . 00360)      ; &I-M-00360;
+      ))
+    (<-same*sources
+     shuowen kanjo ronkou jiyun daikanwa)
     (hanyu-dazidian    1 295 9)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")