(U+501D-var-001): New character; use `<-denotational' for U+501D.

[chise/xemacs-chise.git] / lisp / utf-2000 / Ideograph-R057-Bow.el

diff --git a/lisp/utf-2000/Ideograph-R057-Bow.el b/lisp/utf-2000/Ideograph-R057-Bow.el
index 822c1f0..ae2e06e 100644 (file)
--- a/lisp/utf-2000/Ideograph-R057-Bow.el
+++ b/lisp/utf-2000/Ideograph-R057-Bow.el
@@ -3978,6 +3978,13 @@
     ))
 (define-char
   '((ideographic-radical . 57) ; ⼸
+    (=>ucs@cognate     . #x38B4)       ; &A-cgnU+38B4;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@cognate     . #x38B4)     ; &A-cgnU+38B4;
+      ))
+    (ideographic-radical . 57) ; ⼸
     (ideographic-strokes . 6)
     (total-strokes      . 9)
     (ideographic-structure
@@ -4074,6 +4081,40 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>ucs@cognate     . #x38B4)     ; &A-cgnU+38B4;
+      ))
+    (ideographic-radical . 57) ; ⼸
+    (ideographic-strokes . 6)
+    (total-strokes      . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x5F13)     ; 弓
+      )
+     ((=>ucs-itaiji-001          . #x56EA)     ; &A-U-i001+56EA;
+      ))
+    (=>ucs-itaiji-001  . #x38B4)       ; &A-U-i001+38B4;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs-itaiji-001          . #x38B4)     ; &A-U-i001+38B4;
+      ))
+    (ideographic-radical . 57) ; ⼸
+    (ideographic-strokes . 6)
+    (total-strokes      . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x5F13)     ; 弓
+      )
+     ((=gt-k             . 02079)      ; &U-i001+56EA;
+      ))
+    (=ucs-itaiji-001   . #x38B4)       ; &U-i001+38B4;
+    ))
+(define-char
   '((ideographic-radical . 57) ; ⼸
     (ideographic-strokes . 6)
     (total-strokes      . 9)