;; Copyright (C) 1992 Free Software Foundation, Inc.
;; Copyright (C) 1995 Amdahl Corporation.
;; Copyright (C) 1996 Sun Microsystems.
+;; Copyright (C) 1999,2000 MORIOKA Tomohiko
;; Author: Unknown
;; Keywords: i18n, mule, internal
(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
+;;;
+
+(when (featurep 'utf-2000)
+ (setq default-coded-charset-priority-list
+ '(ascii
+ control-1
+ latin-iso8859-1
+ latin-iso8859-2
+ latin-iso8859-3
+ latin-iso8859-4
+ latin-iso8859-9
+ latin-jisx0201
+ cyrillic-iso8859-5
+ greek-iso8859-7
+ thai-tis620
+ japanese-jisx0208
+ japanese-jisx0208-1990
+ japanese-jisx0212
+ korean-ksc5601
+ japanese-jisx0213-1
+ japanese-jisx0213-2
+ japanese-jisx0208-1978
+ chinese-cns11643-1
+ chinese-cns11643-2
+ chinese-cns11643-3
+ chinese-cns11643-4
+ chinese-cns11643-5
+ chinese-cns11643-6
+ chinese-cns11643-7
+ chinese-gb2312
+ katakana-jisx0201
+ hebrew-iso8859-8
+ latin-viscii
+ latin-viscii-lower
+ latin-viscii-upper
+ ipa
+ lao
+ ethiopic-ucs
+ ethiopic
+ 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
+ mojikyo-2022-1
+ arabic-iso8859-6)))
+
;;; mule-charset.el ends here