From: tomo <tomo>
Date: Mon, 12 Aug 2002 14:18:37 +0000 (+0000)
Subject: Don't specify `auto-fill-chars' for `katakana-jisx0201',
X-Git-Tag: r21-2-44-utf-2000-0_19-nc4-b5-1-2~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bbbbf9fea35464d0197170b1e44d9b75eb5d1866;p=chise%2Fxemacs-chise.git

Don't specify `auto-fill-chars' for `katakana-jisx0201',
`japanese-jisx0208', `japanese-jisx0212', `chinese-gb2312',
`chinese-big5-1' and `chinese-big5-2'.
(default-coded-charset-priority-list): Add `chinese-big5-1' and
`chinese-big5-2' in UTF-2000.
---

diff --git a/lisp/mule/mule-charset.el b/lisp/mule/mule-charset.el
index ba483a5..7f4dfbc 100644
--- a/lisp/mule/mule-charset.el
+++ b/lisp/mule/mule-charset.el
@@ -252,12 +252,12 @@ DESCRIPTION (string) is the description string of the charset."
 
 ;; 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))))
+;; (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))))
 
 
 ;;; @ Coded character set
@@ -338,6 +338,8 @@ DESCRIPTION (string) is the description string of the charset."
 	  ideograph-hanziku-11
 	  ideograph-hanziku-12
 	  china3-jef
-	  arabic-iso8859-6)))
+	  arabic-iso8859-6
+	  chinese-big5-1
+	  chinese-big5-2)))
 
 ;;; mule-charset.el ends here