(U-0002232C): Apply new conventions for glyph granularity; unify

[chise/xemacs-chise.git] / lisp / utf-2000 / Ideograph-R086-Fire.el

diff --git a/lisp/utf-2000/Ideograph-R086-Fire.el b/lisp/utf-2000/Ideograph-R086-Fire.el
index e7b63ec..b9db49f 100644 (file)
--- a/lisp/utf-2000/Ideograph-R086-Fire.el
+++ b/lisp/utf-2000/Ideograph-R086-Fire.el
@@ -6430,7 +6430,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 86) ; ⽕
+  '((<-denotational@component
+     ((=>ucs@component   . #x2422B)    ; &A-compU+2422B;
+      ))
+    (ideographic-radical . 86) ; ⽕
     (ideographic-strokes . 7)
     (total-strokes      . 11)
     (=>ucs@cognate     . #x2422B)      ; &A-cgnU+2422B;
@@ -6483,6 +6486,26 @@
      ((=>ucs@cognate     . #x2422B)    ; &A-cgnU+2422B;
       ))
     (ideographic-radical . 86) ; ⽕
+    (ideographic-strokes . 9)
+    (total-strokes      . 13)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x53DA)     ; 叚
+      )
+     ((=ucs              . #x706B)     ; 火
+      ))
+    (=ucs-itaiji-003   . #x2422B)      ; &U-i003+2422B;
+    (->subsumptive
+     ((==ucs-itaiji-003          . #x2422B)    ; &g2-U-i003+2422B;
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@cognate     . #x2422B)    ; &A-cgnU+2422B;
+      ))
+    (ideographic-radical . 86) ; ⽕
     (ideographic-strokes . 7)
     (total-strokes      . 11)
     (=>ucs-itaiji-001  . #x2422B)      ; &A-U-i001+2422B;
@@ -6543,6 +6566,31 @@
       ))
     ))
 (define-char
+  '((<-denotational@component
+     ((=>ucs@component   . #x2422B)    ; &A-compU+2422B;
+      ))
+    (ideographic-radical . 86) ; ⽕
+    (ideographic-strokes . 7)
+    (total-strokes      . 11)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x250EB)    ; 𥃫
+      )
+     ((=ucs              . #x706B)     ; 火
+      ))
+    (=ucs              . #x24233)      ; 𤈳
+    (<-formed@component
+     ((=ucs-itaiji-003   . #x2422B)    ; &U-i003+2422B;
+      )
+     ((=ucs-itaiji-002   . #x2422B)    ; &U-i002+2422B;
+      ))
+    (->subsumptive
+     ((==ucs@iso         . #x24233)    ; &g2-IU-00024233;
+      ))
+    ))
+(define-char
   '((ideographic-radical . 86) ; ⽕
     (ideographic-strokes . 7)
     (total-strokes      . 11)
@@ -20236,7 +20284,7 @@
       (=daikanwa         . 19406)      ; &I-M-19406;
       ))
     (<-same*sources
-     leibian daikanwa)
+     leipian daikanwa)
     (->subsumptive
      ((==mj              . 040092)     ; &g2-MJ040092;
       (==koseki                  . 219310)     ; &g2-MJ040092;
@@ -25489,6 +25537,10 @@
     ))
 (define-char
   '((ideographic-radical . 86) ; ⽕
+    (=>ucs@component   . #x2422B)      ; &A-compU+2422B;
+    ))
+(define-char
+  '((ideographic-radical . 86) ; ⽕
     (hanyu-dazidian    8 28 13)
     (=ucs              . #x2418C)      ; 𤆌
     (=hanziku-12       . #xEEAA)       ; &I-HZK12-EEAA;