From: tomo <tomo>
Date: Mon, 26 Sep 2005 15:57:01 +0000 (+0000)
Subject: (U+9577): Add S1-8793.
X-Git-Tag: r21-4-17-chise-0_22-4^20~104
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6af9170c0549c3cd07031b59195c1be9e14db8ae;p=chise%2Fxemacs-chise.git

(U+9577): Add S1-8793.
(<CJK RADICAL LONG ONE>): Copied from
u02E00-CJK-Radical-Supplement.el.
(U+9578): Add `<-formed' for U+9577.
(<CJK RADICAL LONG TWO>): Copied from
u02E00-CJK-Radical-Supplement.el.
(<CJK RADICAL C-SIMPLIFIED LONG>): Likewise.
(U+957F): Add `<-simplified@CN' for U+9577; unify JC3-81E1.
---

diff --git a/lisp/utf-2000/Ideograph-R168-Long.el b/lisp/utf-2000/Ideograph-R168-Long.el
index e087d65..43a3400 100644
--- a/lisp/utf-2000/Ideograph-R168-Long.el
+++ b/lisp/utf-2000/Ideograph-R168-Long.el
@@ -3,6 +3,7 @@
   '((ideographic-radical . 168)	; ⾧
     (ideographic-strokes . 0)
     (total-strokes	 . 8)
+    (shinjigen-1	. 8793)
     (shinjigen-2	. 8793)
     (=ucs		. #x9577)	; 長
     (=jis-x0208		. #x4439)	; &I-J90-4439; [36-25]
@@ -15,9 +16,30 @@
     (=daikanwa		. 41100)	; &I-M-41100;
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x9577)	; 長
+      ))
+    (name		. "CJK RADICAL LONG ONE")
+    (general-category	symbol other) ; Informative Category
+    (bidi-category	. "ON")
+    (mirrored		. nil)
+    (<-identical@component
+     ((=ucs		  . #x9577)	; 長
+      ))
+    (=ucs		. #x2ED1)	; ⻑
+    ))
+(define-char
   '((ideographic-radical . 168)	; ⾧
     (ideographic-strokes . 0)
     (total-strokes	 . 7)
+    (<-formed
+     ((shinjigen-1	  . 8793)
+      (=ucs		  . #x9577)	; 長
+      (=jis-x0208	  . #x4439)	; &I-J90-4439; [36-25]
+      ))
+    (<-formed*sources
+     shinjigen-1)
+    (shinjigen-1	. 8794)
     (=ucs		. #x9578)	; 镸
     (=jis-x0212		. #x657D)	; &I-JSP-657D; [69-93]
     (=cns11643-4	. #x252B)	; &I-C4-252B; [05-11]
@@ -25,6 +47,22 @@
     (=daikanwa		. 41101)	; &I-M-41101;
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x9578)	; 镸
+      ))
+    (name		. "CJK RADICAL LONG TWO")
+    (general-category	symbol other) ; Informative Category
+    (bidi-category	. "ON")
+    (mirrored		. nil)
+    (<-formed@component
+     ((=ucs		  . #x9577)	; 長
+      ))
+    (<-identical@component
+     ((=ucs		  . #x9578)	; 镸
+      ))
+    (=ucs		. #x2ED2)	; ⻒
+    ))
+(define-char
   '((ideographic-radical . 168)	; ⾧
     (ideographic-strokes . 0)
     (total-strokes	 . 8)
@@ -39,12 +77,30 @@
     (=daikanwa		. 41103)	; &I-M-41103;
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x957F)	; 长
+      ))
+    (name		. "CJK RADICAL C-SIMPLIFIED LONG")
+    (general-category	symbol other) ; Informative Category
+    (bidi-category	. "ON")
+    (mirrored		. nil)
+    (<-identical@component
+     ((=ucs		  . #x957F)	; 长
+      ))
+    (=ucs		. #x2ED3)	; ⻓
+    ))
+(define-char
   '((ideographic-radical . 168)	; ⾧
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
+    (<-simplified@CN
+     ((=ucs		  . #x9577)	; 長
+      (=gb12345		  . #x3324)	; 長 [19-04]
+      ))
     (=ucs		. #x957F)	; 长
     (=gb2312		. #x3324)	; &I-G0-3324; [19-04]
     (=big5-cdp		. #x89A5)	; &I-CDP-89A5;
+    (=jef-china3	. #x81E1)	; &I-JC3-81E1;
     ))
 (define-char
   '((ideographic-radical . 168)	; ⾧