(C6-454E): Unify U-000282B4.

[chise/xemacs-chise.git-] / lisp / utf-2000 / Ideograph-R040-Roof.el

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index 6c895ae..afbc821 100644 (file)
--- a/lisp/utf-2000/Ideograph-R040-Roof.el
+++ b/lisp/utf-2000/Ideograph-R040-Roof.el
@@ -689,7 +689,9 @@
     (=ucs              . #x5B90)       ; 宐
     (->subsumptive
      ((<-original
-       ((=daikanwa         . 07111)    ; &I-M-07111;
+       ((=jis-x0208        . #x3539)   ; &GT-08923; [21-25]
+       (=ks-x1001          . #x6B71)   ; &I-K0-6B71; [75-81]
+       (=daikanwa          . 07111)    ; &I-M-07111;
        ))
       (<-original*sources
        daikanwa)
@@ -1125,12 +1127,12 @@
     (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 5)
     (total-strokes      . 8)
-    (->same
+    (<-same
      ((=jis-x0208        . #x3539)     ; &GT-08923; [21-25]
       (=ks-x1001         . #x6B71)     ; &I-K0-6B71; [75-81]
       (=daikanwa         . 07111)      ; &I-M-07111;
       ))
-    (->same*sources
+    (<-same*sources
      daikanwa)
     (->subsumptive
      ((=daikanwa         . 07112)      ; &M-07112;