X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-charset.el;h=2e9b4f52c254c430df61d4896230ff2ec2e8f365;hb=fb429e0e5132c44445e4bf2dc7af356e00ade2e5;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..2e9b4f5 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 Electrotechnical Laboratory, JAPAN.
+;; Licensed to the Free Software Foundation.
 
 ;; Author: Unknown
 ;; Keywords: i18n, mule, internal
@@ -249,4 +251,32 @@ DESCRIPTION (string) is the description string of the charset."
 (defalias 'charset-plist 'object-plist)
 (defalias 'set-charset-plist 'setplist)
 
+
+;;; @ Coded character set
+;;;
+
+(when (featurep 'utf-2000)
+  (setq default-coded-charset-priority-list
+	'(ascii
+          ;; latin-iso646-irv
+	  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
+          ;; hiragana-jisx0208
+          ;; katakana-jisx0208
+	  japanese-jisx0208
+	  japanese-jisx0212
+	  hebrew-iso8859-8
+	  latin-viscii
+	  latin-viscii-lower
+	  latin-viscii-upper
+	  ipa)))
+
 ;;; mule-charset.el ends here