From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 22 Jun 2023 20:07:07 +0000 (+0900)
Subject: (U-00031CDC): New character; unify A-CB10611.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=abcd4ab152f6fc2ac5a6aca7098b2672e976758a;p=chise%2Fxemacs-chise.git

(U-00031CDC): New character; unify A-CB10611.
(U+31CDC-var-001): New character; use `<-denotational' for U-00031CDC.
(CB10611): Likewise.
---

diff --git a/lisp/utf-2000/Ideograph-R110-Spear.el b/lisp/utf-2000/Ideograph-R110-Spear.el
index 65866d8..f01d962 100644
--- a/lisp/utf-2000/Ideograph-R110-Spear.el
+++ b/lisp/utf-2000/Ideograph-R110-Spear.el
@@ -301,6 +301,37 @@
     ))
 (define-char
   '((ideographic-radical . 110)	; â½­
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x77DB)	; 矛
+      )
+     ((=ucs		  . #x5404)	; 各
+      ))
+    (=ucs		. #x31CDC)	; 𱳜
+    (=>cbeta		. 10611)	; 𱳜
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x31CDC)	; 𱳜
+      ))
+    (ideographic-radical . 110)	; â½­
+    (ideographic-strokes . 6)
+    (total-strokes	 . 11)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x77DB)	; 矛
+      )
+     ((=ucs@unicode	  . #x5404)	; &AJ1-01444;
+      (=adobe-japan1-0	  . 01444)	; &AJ1-01444;
+      ))
+    (=ucs-var-001	. #x31CDC)	; &U-v001+31CDC;
+    ))
+(define-char
+  '((ideographic-radical . 110)	; â½­
     (ideographic-strokes . 7)
     (total-strokes	 . 12)
     (ideographic-structure
@@ -648,6 +679,31 @@
     (=cns11643-5	. #x3A54)	; &I-C5-3A54; [26-52]
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x31CDC)	; 𱳜
+      ))
+    (ideographic-radical . 110)	; â½­
+    (ideographic-strokes . 7)
+    (total-strokes	 . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x77DB)	; 矛
+      )
+     ((=ucs-var-001	  . #x5404)	; &U-v001+5404;
+      ))
+    (=ucs@JP/hanazono	. #x31CDC)	; &CB10611;
+    (=cbeta		. 10611)	; &CB10611;
+    (->subsumptive
+     ((==ucs@JP/hanazono  . #x31CDC)	; &g2-CB10611;
+      (==cbeta		  . 10611)	; &g2-CB10611;
+      (->subsumptive
+       ((===cbeta	    . 10611)	; &R-CB10611;
+	))
+      ))
+    ))
+(define-char
   '((=>ucs		. #x25372)	; 𥍲
     (ideographic-radical . 110)	; â½­
     (ideographic-strokes . 8)