Mercurial > emacs

changeset 23493:d82b305ac37b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Setup auto-fill-chars.
author Kenichi Handa <handa@m17n.org>
date Mon, 19 Oct 1998 00:40:10 +0000
parents dc49b662b956
children e7be878041d5
files lisp/international/characters.el
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/characters.el	Mon Oct 19 00:40:10 1998 +0000
+++ b/lisp/international/characters.el	Mon Oct 19 00:40:10 1998 +0000
@@ -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