diff options
| -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 @@ | |||
| 624 | (while l | 624 | (while l |
| 625 | (put-charset-property (car (car l)) 'prefered-coding-system (cdr (car l))) | 625 | (put-charset-property (car (car l)) 'prefered-coding-system (cdr (car l))) |
| 626 | (setq l (cdr l)))) | 626 | (setq l (cdr l)))) |
| 627 | 627 | ||
| 628 | |||
| 629 | ;; Setup auto-fill-chars for characters that should invoke auto-filling. | ||
| 630 | ;; SPACE and NEWLIE are already set. | ||
| 631 | (let ((l '(katakana-jisx0201 | ||
| 632 | japanese-jisx0208 japanese-jisx0212 | ||
| 633 | chinese-gb2312 chinese-big5-1 chinese-big5-2))) | ||
| 634 | (while l | ||
| 635 | (aset auto-fill-chars (make-char (car l)) t) | ||
| 636 | (setq l (cdr l)))) | ||
| 628 | 637 | ||
| 629 | ;;; Local Variables: | 638 | ;;; Local Variables: |
| 630 | ;;; coding: iso-2022-7bit | 639 | ;;; coding: iso-2022-7bit |