X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-charset.el;h=4fe40d1c77d8c3ed601d41f0eb5cab5f8fb7a8a4;hb=bc800160e6d2f72edea399d79fcb719c888b3248;hp=7758dece414dbd74606034cb235059e7518a90d4;hpb=113b194be934327de99a168d809271db252c07c4;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mule/mule-charset.el b/lisp/mule/mule-charset.el
index 7758dec..4fe40d1 100644
--- a/lisp/mule/mule-charset.el
+++ b/lisp/mule/mule-charset.el
@@ -3,6 +3,8 @@
 ;; Copyright (C) 1992 Free Software Foundation, Inc.
 ;; Copyright (C) 1995 Amdahl Corporation.
 ;; Copyright (C) 1996 Sun Microsystems.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008,
+;;   2009, 2010, 2011, 2012, 2013 MORIOKA Tomohiko
 
 ;; Author: Unknown
 ;; Keywords: i18n, mule, internal
@@ -249,4 +251,179 @@ 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
+;;;
+
+(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
+	  =jis-x0208
+	  chinese-gb2312
+	  japanese-jisx0208
+	  =jis-x0208-1990
+	  =ucs-radicals
+	  =ucs-radicals@unicode
+	  =ucs-bmp-cjk@gb
+          ;; =ucs-bmp-cjk@JP
+	  =ucs-bmp-cjk@JP/hanazono
+	  =ucs-bmp-cjk-compat
+          =ucs-bmp-cjk-compat@unicode
+          japanese-jisx0208-1978
+	  =jis-x0212
+	  chinese-cns11643-1
+	  chinese-cns11643-2
+	  chinese-cns11643-3
+          chinese-cns11643-4
+	  chinese-cns11643-5
+	  chinese-cns11643-6
+	  chinese-cns11643-7
+	  =adobe-japan1-0
+	  =adobe-japan1-1
+	  =adobe-japan1-2
+	  =adobe-japan1-3
+	  =adobe-japan1-4
+	  =adobe-japan1-5
+	  =adobe-japan1-6
+	  =big5-cdp
+	  =hanyo-denshi/ja
+	  =hanyo-denshi/jb
+	  =hanyo-denshi/jc
+	  =hanyo-denshi/jd
+	  =hanyo-denshi/ft
+	  =hanyo-denshi/ia
+	  =hanyo-denshi/ib
+	  =hanyo-denshi/hg
+	  =hanyo-denshi/ip
+	  =hanyo-denshi/jt
+	  =hanyo-denshi/ks/mf
+	  =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
+	  chinese-big5-eten-a
+	  chinese-big5-eten-b
+	  chinese-big5
+	  =jis-x0213-1-2000
+	  =jis-x0213-2-2000
+	  ;; chinese-gb12345
+	  =gt-pj-1
+	  =ucs-bmp-cjk
+	  =ucs-sip-ext-b
+	  =ruimoku-v6
+	  =zinbun-oracle
+	  =hanziku-1
+	  =hanziku-2
+	  =hanziku-3
+	  =hanziku-4
+	  =hanziku-5
+	  =hanziku-6
+	  =hanziku-7
+	  =hanziku-8
+	  =hanziku-9
+	  =hanziku-10
+	  =hanziku-11
+	  =hanziku-12
+	  =ucs-sip-ext-b@iso
+	  ideograph-daikanwa-2
+	  ideograph-daikanwa
+	  korean-ksc5601
+	  katakana-jisx0201
+	  hebrew-iso8859-8
+	  latin-viscii
+	  latin-viscii-lower
+	  latin-viscii-upper
+	  ipa
+	  lao
+	  ethiopic-ucs
+	  ethiopic
+	  arabic-digit
+	  arabic-1-column
+	  arabic-2-column
+	  =cbeta
+	  =jef-china3
+	  chinese-isoir165
+	  arabic-iso8859-6
+	  chinese-big5-1
+	  chinese-big5-2
+          ;; =zihai-17xx
+	  =ucs-bmp-itaiji-084
+	  =big5-cdp-var-3
+	  =big5-cdp-var-5
+	  ==jis-x0208@1990
+	  ==ucs-bmp-cjk@gb
+          ==ucs-bmp-cjk@JP/hanazono
+	  ==ucs-sip-ext-b@iso
+	  ==hanyo-denshi/ja
+	  ==hanyo-denshi/jb
+	  ==hanyo-denshi/jc
+	  ==hanyo-denshi/jd
+	  ==hanyo-denshi/ft
+	  ==hanyo-denshi/ia
+	  ==hanyo-denshi/ib
+	  ==hanyo-denshi/hg
+	  ==hanyo-denshi/ip
+	  ==hanyo-denshi/jt
+	  ==adobe-japan1-6
+	  ==big5-cdp
+	  ==cns11643-1
+	  ==cns11643-2
+	  ==cns11643-3
+	  ==cns11643-4
+	  ==cns11643-5
+	  ==cns11643-6
+	  ==cns11643-7
+	  ==jis-x0208@1983
+	  ==jis-x0208@1978
+	  ==jis-x0213-1@2000
+	  ==jis-x0212
+	  ==ks-x1001
+	  ==daikanwa
+	  ;; ucs-sip
+	  =>>big5-cdp
+	  =>>jis-x0208
+	  =>>jis-x0213-1
+	  =>>jis-x0213-1@2004
+	  =>jis-x0208
+	  =>jis-x0213-1
+	  ucs-bmp
+	  ==>ucs-bmp-cjk@bucs
+	  =>ucs-bmp-cjk@unicode
+          =+>ucs-bmp-cjk@unicode
+          =+>ucs-bmp-cjk-compat@jis
+	  ;; =>>ucs@unicode
+	  =adobe-japan1-base
+	  =>jis-x0208@1997
+	  =>>hanyo-denshi/ft
+	  =>>hanyo-denshi/jt
+	  =>>gt
+	  )))
+
 ;;; mule-charset.el ends here