Mercurial > hg > xemacs-beta

diff lisp/mule/mule-charset.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 7039e6323819
line wrap: on
line diff
--- a/lisp/mule/mule-charset.el	Mon Aug 13 11:33:40 2007 +0200
+++ b/lisp/mule/mule-charset.el	Mon Aug 13 11:35:02 2007 +0200
@@ -249,4 +249,13 @@
 (defalias 'charset-plist 'object-plist)
 (defalias 'set-charset-plist 'setplist)
 
+;; Setup auto-fill-chars for charsets 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
+    (put-char-table (car l) t auto-fill-chars)
+    (setq l (cdr l))))
+
 ;;; mule-charset.el ends here