(default-coded-charset-priority-list): Delete `ucs'.

[chise/xemacs-chise.git-] / lisp / mule / mule-charset.el

diff --git a/lisp/mule/mule-charset.el b/lisp/mule/mule-charset.el
index 92fab64..b06aae2 100644 (file)
--- 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
 ;;;
@@ -268,10 +276,13 @@ DESCRIPTION (string) is the description string of the charset."
          cyrillic-iso8859-5
          greek-iso8859-7
          thai-tis620
-         japanese-jisx0208-1990
          japanese-jisx0208
-         japanese-jisx0208-1978
          japanese-jisx0212
+         japanese-jisx0213-1
+         japanese-jisx0213-2
+         japanese-jisx0208-1990
+         korean-ksc5601
+         japanese-jisx0208-1978
          chinese-cns11643-1
          chinese-cns11643-2
          chinese-cns11643-3
@@ -279,7 +290,6 @@ DESCRIPTION (string) is the description string of the charset."
          chinese-cns11643-5
          chinese-cns11643-6
          chinese-cns11643-7
-         korean-ksc5601
          chinese-gb2312
          katakana-jisx0201
          hebrew-iso8859-8
@@ -290,8 +300,30 @@ 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
+         ideograph-daikanwa
          ucs-bmp
-         arabic-iso8859-6
-         ideograph-daikanwa)))
+         arabic-iso8859-6)))
 
 ;;; mule-charset.el ends here