X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-charset.el;h=46a99f2eb83de25d48fd3eb2dcf9148d85cabeb2;hb=56a46471eb1ee37d230d45469decc129f60755d4;hp=49834d06be2212d25bee511af0fb48d92d8f517a;hpb=464a141d498668f729bc51ad4fe8a93d3a2fd675;p=chise%2Fxemacs-chise.git

diff --git a/lisp/mule/mule-charset.el b/lisp/mule/mule-charset.el
index 49834d0..46a99f2 100644
--- a/lisp/mule/mule-charset.el
+++ b/lisp/mule/mule-charset.el
@@ -3,8 +3,7 @@
 ;; Copyright (C) 1992 Free Software Foundation, Inc.
 ;; Copyright (C) 1995 Amdahl Corporation.
 ;; Copyright (C) 1996 Sun Microsystems.
-;; Copyright (C) 1999 Electrotechnical Laboratory, JAPAN.
-;; Licensed to the Free Software Foundation.
+;; Copyright (C) 1999,2000 MORIOKA Tomohiko
 
 ;; Author: Unknown
 ;; Keywords: i18n, mule, internal
@@ -251,6 +250,15 @@ DESCRIPTION (string) is the description string of the charset."
 (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))))
+
 
 ;;; @ Coded character set
 ;;;
@@ -269,11 +277,11 @@ DESCRIPTION (string) is the description string of the charset."
 	  greek-iso8859-7
 	  thai-tis620
 	  japanese-jisx0208
+	  japanese-jisx0208-1990
 	  japanese-jisx0212
+	  korean-ksc5601
 	  japanese-jisx0213-1
 	  japanese-jisx0213-2
-	  japanese-jisx0208-1990
-	  korean-ksc5601
 	  japanese-jisx0208-1978
 	  chinese-cns11643-1
 	  chinese-cns11643-2
@@ -292,30 +300,31 @@ DESCRIPTION (string) is the description string of the charset."
 	  lao
 	  ethiopic-ucs
 	  ethiopic
-	  mojikyo-pj-1
-	  mojikyo-pj-2
-	  mojikyo-pj-3
-	  mojikyo-pj-4
-	  mojikyo-pj-5
-	  mojikyo-pj-6
-	  mojikyo-pj-7
-	  mojikyo-pj-8
-	  mojikyo-pj-9
-	  mojikyo-pj-10
-	  mojikyo-pj-11
-	  mojikyo-pj-12
-	  mojikyo-pj-13
-	  mojikyo-pj-14
-	  mojikyo-pj-15
-	  mojikyo-pj-16
-	  mojikyo-pj-17
-	  mojikyo-pj-18
-	  mojikyo-pj-19
-	  mojikyo-pj-20
-	  mojikyo-pj-21
+	  mojikyo
 	  ideograph-daikanwa
+;;; 	  mojikyo-pj-1
+;;; 	  mojikyo-pj-2
+;;; 	  mojikyo-pj-3
+;;; 	  mojikyo-pj-4
+;;; 	  mojikyo-pj-5
+;;; 	  mojikyo-pj-6
+;;; 	  mojikyo-pj-7
+;;; 	  mojikyo-pj-8
+;;; 	  mojikyo-pj-9
+;;; 	  mojikyo-pj-10
+;;; 	  mojikyo-pj-11
+;;; 	  mojikyo-pj-12
+;;; 	  mojikyo-pj-13
+;;; 	  mojikyo-pj-14
+;;; 	  mojikyo-pj-15
+;;; 	  mojikyo-pj-16
+;;; 	  mojikyo-pj-17
+;;; 	  mojikyo-pj-18
+;;; 	  mojikyo-pj-19
+;;; 	  mojikyo-pj-20
+;;; 	  mojikyo-pj-21
 	  ucs-bmp
-	  arabic-iso8859-6
-	  ucs)))
+	  mojikyo-2022-1
+	  arabic-iso8859-6)))
 
 ;;; mule-charset.el ends here