From: Kenichi Handa Date: Wed, 21 Oct 1998 11:50:56 +0000 (+0000) Subject: Setup charset property nospace-between-words. X-Git-Tag: emacs-20.4~1422 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98a663f11e89643b456f1f31acc9cd615a49efad;p=emacs.git Setup charset property nospace-between-words. --- diff --git a/lisp/international/characters.el b/lisp/international/characters.el index 6df232ef649..b378e9825d7 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -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: