(U+51B0): Add `->vulgar' for U+6C37.

diff --git a/lisp/utf-2000/Ideograph-R015-Ice.el b/lisp/utf-2000/Ideograph-R015-Ice.el
index 4434026..5d8858b 100644 (file)
--- a/lisp/utf-2000/Ideograph-R015-Ice.el
+++ b/lisp/utf-2000/Ideograph-R015-Ice.el
@@ -144,9 +144,16 @@
       ))
     (->same*sources
      shuowen kanjo ronkou jiyun daikanwa)
+    (->vulgar
+     ((=ucs              . #x6C37)     ; 氷
+      (=daikanwa         . 17087)      ; &I-M-17087;
+      ))
+    (->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*sources
      shinjigen-1)