mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 14:02:07 -08:00
Code Issues Projects Releases Wiki Activity

Setup auto-fill-chars.

Browse source
This commit is contained in:
Kenichi Handa 1998-10-19 00:40:10 +00:00
parent 11e60d924c
commit df0415c50f
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/international/characters.el
View file

@ -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