X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-charset.el;h=2ce0c3c3db86f0132f29ace9a10580dfca291bad;hb=f38c256b00c0f63ae16b092bdccab3128e1e9ab3;hp=7c0b2af8bb0f6f21ec1cef5997c7daad3d7a6be0;hpb=adc4a203eb1957529a30a5a6006d24503bf99ea4;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mule/mule-charset.el b/lisp/mule/mule-charset.el
index 7c0b2af..2ce0c3c 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,2001,2002,2003 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
 ;;;
@@ -268,21 +276,24 @@ DESCRIPTION (string) is the description string of the charset."
 	  cyrillic-iso8859-5
 	  greek-iso8859-7
 	  thai-tis620
+	  =jis-x0208
 	  japanese-jisx0208
+	  =jis-x0208-1990
 	  japanese-jisx0212
-	  japanese-jisx0213-1
-	  japanese-jisx0213-2
-	  japanese-jisx0208-1990
-	  korean-ksc5601
 	  japanese-jisx0208-1978
+	  chinese-gb2312
 	  chinese-cns11643-1
 	  chinese-cns11643-2
 	  chinese-cns11643-3
-	  chinese-cns11643-4
+          chinese-cns11643-4
 	  chinese-cns11643-5
 	  chinese-cns11643-6
 	  chinese-cns11643-7
-	  chinese-gb2312
+	  =jis-x0213-1-2000
+	  =jis-x0213-2-2000
+	  korean-ksc5601
+	  ;; chinese-gb12345
+	  chinese-isoir165
 	  katakana-jisx0201
 	  hebrew-iso8859-8
 	  latin-viscii
@@ -292,31 +303,49 @@ DESCRIPTION (string) is the description string of the charset."
 	  lao
 	  ethiopic-ucs
 	  ethiopic
-	  mojikyo
-;;; 	  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
+	  arabic-digit
+	  arabic-1-column
+	  arabic-2-column
+	  =gt-pj-1
+	  =gt-pj-2
+	  =gt-pj-3
+	  =gt-pj-4
+	  =gt-pj-5
+	  =gt-pj-6
+	  =gt-pj-7
+	  =gt-pj-8
+	  =gt-pj-9
+	  =gt-pj-10
+	  =gt-pj-11
+	  =gt-pj-k1
+	  =gt-pj-k2
+	  ideograph-daikanwa-2
+	  chinese-big5-eten-a
+	  chinese-big5-eten-b
+	  ucs-sip
 	  ideograph-daikanwa
+	  =big5-cdp
+	  =hanziku-1
+	  =hanziku-2
+	  =hanziku-3
+	  =hanziku-4
+	  =hanziku-5
+	  =hanziku-6
+	  =hanziku-7
+	  =hanziku-8
+	  =hanziku-9
+	  =hanziku-10
+	  =hanziku-11
+	  =hanziku-12
+	  =cbeta
+	  chinese-big5-eten-a
+	  chinese-big5-eten-b
+	  chinese-big5
 	  ucs-bmp
+	  =jef-china3
 	  arabic-iso8859-6
-	  ucs)))
+	  chinese-big5-1
+	  chinese-big5-2
+	  ucs-sip)))
 
 ;;; mule-charset.el ends here