# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1135754565 0
# Node ID c277fa406d7b0f4d7bc3bb34f97286e5868a0304
# Parent  5fa2c40cc6a41ac49d64d38541cbe9cc494f317a
Register characters in
auto-fill-chars.  Put nospace-between-words to more charsets.

diff -r 5fa2c40cc6a4 -r c277fa406d7b lisp/international/characters.el
--- a/lisp/international/characters.el	Wed Dec 28 06:02:28 2005 +0000
+++ b/lisp/international/characters.el	Wed Dec 28 07:22:45 2005 +0000
@@ -484,6 +484,8 @@
 	 (zerop (% c 2))
 	 (set-case-syntax-pair (1- c) c tbl))
     (setq c (1+ c)))
+  (set-downcase-syntax  ?İ ?i tbl)
+  (set-upcase-syntax    ?I ?ı tbl)
   (set-case-syntax-pair ?IJ ?ij tbl)
   (set-case-syntax-pair ?Ĵ ?ĵ tbl)
   (set-case-syntax-pair ?Ķ ?ķ tbl)
@@ -868,11 +870,22 @@
 ;; Setup auto-fill-chars for charsets that should invoke auto-filling.
 ;; SPACE and NEWLINE are already set.  Also put `nospace-between-words'
 ;; property on the charsets.
+
+(set-char-table-range auto-fill-chars '(#x3041 . #x30FF) t)
+(set-char-table-range auto-fill-chars '(#x3400 . #x4DB5) t)
+(set-char-table-range auto-fill-chars '(#x4e00 . #x9fbb) t)
+(set-char-table-range auto-fill-chars '(#xF900 . #xFAFF) t)
+(set-char-table-range auto-fill-chars '(#xFF00 . #xFF9F) t)
+(set-char-table-range auto-fill-chars '(#x20000 . #x2FFFF) t)
+
 (let ((l '(katakana-jisx0201
 	   japanese-jisx0208 japanese-jisx0212
-	   chinese-gb2312 chinese-big5-1 chinese-big5-2)))
+	   japanese-jisx0213-1 japanese-jisx0213-2
+	   chinese-gb2312 chinese-gbk chinese-big5-1 chinese-big5-2
+	   chinese-cns11643-1 chinese-cns11643-2 chinese-cns11643-3
+	   chinese-cns11643-4 chinese-cns11643-5 chinese-cns11643-6
+	   chinese-cns11643-7)))
   (while l
-    ;;(aset auto-fill-chars (make-char (car l)) t)
     (put-charset-property (car l) 'nospace-between-words t)
     (setq l (cdr l))))