diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-10-19 00:40:10 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-10-19 00:40:10 +0000 |
| commit | df0415c50fac9bf739aa7033ae37471bc7474530 (patch) | |
| tree | 21220e489ae4ac8370be9d14dc2821a9a019d4a6 /lisp/international/characters.el | |
| parent | 11e60d924c1be9151f1307d349304eee8894d7eb (diff) | |
| download | emacs-df0415c50fac9bf739aa7033ae37471bc7474530.tar.gz | |
Setup auto-fill-chars.
Diffstat (limited to 'lisp/international/characters.el')
| -rw-r--r-- | lisp/international/characters.el | 11 |
1 files changed, 10 insertions, 1 deletions
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 |