X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02000-General-Punctuation.el;h=47736eddf349c091c81f658d0f2099013ee9b100;hb=8d24f9a585644ab1ce2432ba623cb7c0823b9845;hp=f00b3a36a3575b2b7a1e5c8129b9cb01bd2ee6c1;hpb=313e7c98b34fcce72de3684ee8bbf07bf6d1660e;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/u02000-General-Punctuation.el b/lisp/utf-2000/u02000-General-Punctuation.el
index f00b3a3..47736ed 100644
--- a/lisp/utf-2000/u02000-General-Punctuation.el
+++ b/lisp/utf-2000/u02000-General-Punctuation.el
@@ -180,7 +180,7 @@
     ))
 (define-char
   '((name		. "HALFWIDTH HORIZONTAL BAR")
-    (->ucs		. #x2015)	; ―
+    (=>ucs		. #x2015)	; ―
     (general-category	punctuation dash) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
@@ -333,7 +333,6 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (->decomposition	compat #x002E)
-    (chinese-big5	. #xA3BB)	; øºŸ¡“
     (ucs		. #x2024)	; ․
     ))
 (define-char
@@ -566,17 +565,29 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (->decomposition	compat #x0020 #x0305)
+    (->fullwidth
+     ((name		  . "FULLWIDTH OVERLINE")
+      (japanese-jisx0208-1978	  . #x2131)	; ø»¼
+      (chinese-gb2312		  . #x237E)	; ø»„Š
+      (japanese-jisx0208	  . #x2131)	; ø»†˜
+      (korean-ksc5601		  . #x237E)	; ø»ˆž¥
+      (chinese-cns11643-1	  . #x2223)	; ø»‘ƒ¼
+      ))
     (latin-jisx0201	. #x7E)	; øº‘Œ©
     (hebrew-iso8859-8	. #xAF)	; øº’¾¯
     (ucs		. #x203E)	; ‾
     ))
 (define-char
   '((name		. "FULLWIDTH OVERLINE")
-    (->ucs		. #x203E)	; ‾
+    (=>ucs		. #x203E)	; ‾
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (->decomposition	wide #x203E)
+    (<-fullwidth
+     ((name		  . "OVERLINE")
+      (ucs		  . #x203E)	; ‾
+      ))
     (japanese-jisx0208-1978	. #x2131)	; ø»¼
     (chinese-gb2312		. #x237E)	; ø»„Š
     (japanese-jisx0208		. #x2131)	; ø»†˜
@@ -586,6 +597,16 @@
     (chinese-big5		. #xA1C2)	; øºŸœ 
     ))
 (define-char
+  '((name		. "heavy overline")
+    (=>ucs		. #x203E)	; ‾
+    (general-category	punctuation other) ; Informative Category
+    (bidi-category	. "ON")
+    (mirrored		. nil)
+    (chinese-cns11643-1 . #x2224)	; ø»‘ƒ½
+    (chinese-big5	. #xA1C3)	; øºŸœ¡
+    (ucs-big5		. #xFFE3)	; ø»‘ƒ½
+    ))
+(define-char
   '((name		. "UNDERTIE")
     (general-category	punctuation connector) ; Informative Category
     (bidi-category	. "ON")