(U-00027227): Unify BC-8C60.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R135-Tongue.el

diff --git a/lisp/utf-2000/Ideograph-R135-Tongue.el b/lisp/utf-2000/Ideograph-R135-Tongue.el
index adbec3f..2d79c55 100644 (file)
--- a/lisp/utf-2000/Ideograph-R135-Tongue.el
+++ b/lisp/utf-2000/Ideograph-R135-Tongue.el
@@ -2,6 +2,14 @@
 (define-char
   '((ideographic-radical . 135)        ; ⾆
     (ideographic-strokes . 0)
+    (==>ucs@bucs       . #x820C)       ; &BUCS+820C;
+    ))
+(define-char
+  '((<-denotational
+     ((==>ucs@bucs       . #x820C)     ; &BUCS+820C;
+      ))
+    (ideographic-radical . 135)        ; ⾆
+    (ideographic-strokes . 0)
     (total-strokes      . 6)
     (=ucs              . #x820C)       ; 舌
     (=big5             . #xA6DE)       ; &I-B-A6DE;
@@ -51,6 +59,8 @@
          )
         ((===ucs@unicode     . #x820C) ; &R-UU+820C;
          ))
+       )
+       ((===hng-kar        . 03260)    ; &HNG018-03260;
        ))
       )
      ((=ucs@cns                  . #x820C)     ; &C1-485F;
@@ -72,6 +82,26 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((==>ucs@bucs       . #x820C)     ; &BUCS+820C;
+      ))
+    (ideographic-radical . 135)        ; ⾆
+    (ideographic-strokes . 0)
+    (total-strokes      . 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x5343)     ; 千
+      )
+     ((=ucs              . #x5182)     ; 冂
+      ))
+    (=ucs-itaiji-002   . #x820C)       ; &U-i002+820C;
+    (<-formed@component/avoiding-taboo
+     ((=ucs              . #x820C)     ; 舌
+      ))
+    ))
+(define-char
   '((ideographic-radical . 135)        ; ⾆
     (ideographic-strokes . 2)
     (total-strokes      . 8)
@@ -111,6 +141,11 @@
     (=gt-k             . 03730)        ; &I-GT-K03730;
     (=gt-pj-1          . #x3C4B)       ; &I-GT-39175; [28-43]
     (=daikanwa/+p      . 30278)        ; 舎
+    (<-formed
+     ((=ucs              . #x820D)     ; 舍
+      ))
+    (<-formed*sources
+     hng)
     (->subsumptive
      ((==ucs@unicode     . #x820E)     ; &g2-AJ1-02295;
       (==adobe-japan1-0          . 02295)      ; &g2-AJ1-02295;
@@ -135,9 +170,11 @@
        )
        ((===ucs@unicode            . #x820E)   ; &R-UU+820E;
        )
-       ((===hng-khi        . 05380)    ; &HNG010-05380;
+       ((===hng-kar        . 12150)    ; &HNG018-12150;
        ))
       )
+     ((===hng-khi        . 05380)      ; &HNG010-05380;
+      )
      ((===hng-khm        . 01120)      ; &HNG011-01120;
       ))
     ))