# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 908970656 0
# Node ID 06e8c3b9deec1ab2a96bfd33be19577c9653a97c
# Parent  f47eb2d1375c292ec9d5fb7b43f15a858bd43088
Setup charset property nospace-between-words.

diff -r f47eb2d1375c -r 06e8c3b9deec lisp/international/characters.el
--- a/lisp/international/characters.el	Wed Oct 21 11:50:56 1998 +0000
+++ b/lisp/international/characters.el	Wed Oct 21 11:50:56 1998 +0000
@@ -626,13 +626,15 @@
     (setq l (cdr l))))
 
 
-;; Setup auto-fill-chars for characters that should invoke auto-filling.
-;; SPACE and NEWLIE are already set.
+;; Setup auto-fill-chars for charsets that should invoke auto-filling.
+;; SPACE and NEWLIE are already set.  Also put `nospace-between-words'
+;; property to the charsets.
 (let ((l '(katakana-jisx0201
 	   japanese-jisx0208 japanese-jisx0212
 	   chinese-gb2312 chinese-big5-1 chinese-big5-2)))
   (while l
     (aset auto-fill-chars (make-char (car l)) t)
+    (put-charset-property (car l) 'nospace-between-words t)
     (setq l (cdr l))))
 
 ;;; Local Variables: