From df0415c50fac9bf739aa7033ae37471bc7474530 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 19 Oct 1998 00:40:10 +0000 Subject: [PATCH] Setup auto-fill-chars. --- lisp/international/characters.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/international/characters.el b/lisp/international/characters.el index ba55a2c7677..6df232ef649 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -624,7 +624,16 @@ (while l (put-charset-property (car (car l)) 'prefered-coding-system (cdr (car l))) (setq l (cdr l)))) - + + +;; Setup auto-fill-chars for characters that should invoke auto-filling. +;; SPACE and NEWLIE are already set. +(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) + (setq l (cdr l)))) ;;; Local Variables: ;;; coding: iso-2022-7bit -- 2.39.2