From: tomo <tomo>
Date: Mon, 15 Nov 2004 16:58:14 +0000 (+0000)
Subject: (<PRESENTATION FORM FOR VERTICAL LOW LINE>): Unify C1-213A.
X-Git-Tag: r21-4-15-u2km-0_21-32-a~2^2~28
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=commitdiff_plain;h=f378a07d54415316b1518e75409a5e8fcb98361c

(<PRESENTATION FORM FOR VERTICAL LOW LINE>): Unify C1-213A.
(<PRESENTATION FORM FOR VERTICAL WAVY LOW LINE>): Unify C1-213C and
B-A15B.
(<presentation form for vertical book name mark>): Abolished.
(<WAVY LOW LINE>): Unify C1-213D and B-A15C.
(<book name mark>): Abolished.
---

diff --git a/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el b/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el
index 139766a..f61067e 100644
--- a/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el
+++ b/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el
@@ -35,6 +35,7 @@
     (mirrored		. nil)
     (->decomposition	vertical #x005F)
     (=ucs		. #xFE33)	; ︳
+    (=cns11643-1	. #x213A)	; &I-C1-213A; [01-26]
     (=big5		. #xA159)	; &I-B-A159;
     ))
 (define-char
@@ -44,14 +45,7 @@
     (mirrored		. nil)
     (->decomposition	vertical #x005F)
     (=ucs		. #xFE34)	; ︴
-    ))
-(define-char
-  '((name . "presentation form for vertical book name mark")
-    (=>ucs		. #xFE34)	; ︴
-    (general-category	punctuation connector) ; Informative Category
-    (bidi-category	. "ON")
-    (mirrored		. nil)
-    (=cns11643-1	. #x213C)	; &C1-213C; [01-28]
+    (=cns11643-1	. #x213C)	; &I-C1-213C; [01-28]
     (=big5		. #xA15B)	; &I-B-A15B;
     ))
 (define-char
@@ -291,13 +285,6 @@
     (mirrored		. nil)
     (->decomposition	compat #x005F)
     (=ucs		. #xFE4F)	; ﹏
-    ))
-(define-char
-  '((name		. "book name mark")
-    (=>ucs		. #xFE4F)	; ﹏
-    (general-category	punctuation connector) ; Informative Category
-    (bidi-category	. "ON")
-    (mirrored		. nil)
-    (=cns11643-1	. #x213D)	; &C1-213D; [01-29]
+    (=cns11643-1	. #x213D)	; &I-C1-213D; [01-29]
     (=big5		. #xA15C)	; &I-B-A15C;
     ))