From f378a07d54415316b1518e75409a5e8fcb98361c Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Mon, 15 Nov 2004 16:58:14 +0000
Subject: [PATCH] (<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.

---
 lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el |   19 +++----------------
 1 file changed, 3 insertions(+), 16 deletions(-)

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;
     ))
-- 
1.7.10.4