# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1287103313 -32400
# Node ID 31d92d74a71ad5391a811843082ceda7b5ae4ce3
# Parent  12afc39096c21d7c6e416b4ab4f15f779a73bd49
international/characters.el: Add category '|' (word breakable) to fullwidth characters.

diff -r 12afc39096c2 -r 31d92d74a71a lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Oct 14 13:23:36 2010 +0900
+++ b/lisp/ChangeLog	Fri Oct 15 09:41:53 2010 +0900
@@ -1,3 +1,8 @@
+2010-10-15  Kenichi Handa  <handa@m17n.org>
+
+	* international/characters.el: Add category '|' (word breakable)
+	to fullwidth characters.
+
 2010-10-14  Kenichi Handa  <handa@m17n.org>
 
 	* mail/rmail.el (rmail-show-message-1): Catch an error of
diff -r 12afc39096c2 -r 31d92d74a71a lisp/international/characters.el
--- a/lisp/international/characters.el	Thu Oct 14 13:23:36 2010 +0900
+++ b/lisp/international/characters.el	Fri Oct 15 09:41:53 2010 +0900
@@ -188,6 +188,9 @@
 			       cp932-2-byte))
   (map-charset-chars #'modify-category-entry l ?j))
 
+;; Fullwidth characters
+(modify-category-entry '(#xff01 . #xff60) ?\|)
+
 ;; Unicode equivalents of JISX0201-kana
 (let ((range '(#xff61 . #xff9f)))
   (modify-category-entry range  ?k)