(default-coded-charset-priority-list): Add `===hanyo-denshi/hg'.

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

diff --git a/lisp/mule/mule-charset.el b/lisp/mule/mule-charset.el
index 9dd8fef..0b267f3 100644 (file)
--- 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, 2014 MORIOKA Tomohiko
 
 ;; Author: Unknown
 ;; Keywords: i18n, mule, internal
@@ -251,11 +253,213 @@ DESCRIPTION (string) is the description string of the charset."
 
 ;; 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))))
+;; (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
+         =mj-0
+         =mj-1
+         =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
+         ==mj-0
+         ==mj-1
+         ==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-x0213-2
+         ==jis-x0212
+         ==ks-x1001
+         ==ruimoku-v6
+         ==daikanwa
+         ==cbeta
+         ==jef-china3
+         ===mj-0
+         ===mj-1
+          ===jis-x0208@1990
+         ===jis-x0213-1
+         ===jis-x0213-2
+         ===big5-cdp
+         ===ucs-bmp-cjk@gb
+          ===adobe-japan1-6
+         ===cns11643-1
+         ===cns11643-2
+         ===cns11643-3
+         ===cns11643-4
+         ===cns11643-5
+         ===cns11643-6
+         ===cns11643-7
+         ;; ===hanyo-denshi/ja
+         ===hanyo-denshi/ft
+         ===hanyo-denshi/ib
+         ===hanyo-denshi/hg
+         ===hanyo-denshi/jt
+         ===jis-x0208@1983
+         ===jis-x0208@1978
+         ===jis-x0212
+         ===ks-x1001
+         ===daikanwa
+         ===ucs-sip-ext-b@iso
+         ===cbeta
+         ===jef-china3
+         ;; 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