(default-preferred-coded-charset-list): Set up in UTF-2000.

diff --git a/lisp/mule/mule-charset.el b/lisp/mule/mule-charset.el
index 7758dec..c25d1eb 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 Electrotechnical Laboratory, JAPAN.
+;; Licensed to the Free Software Foundation.
 
 ;; Author: Unknown
 ;; Keywords: i18n, mule, internal
@@ -249,4 +251,21 @@ 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-preferred-coded-charset-list
+       '(ascii
+         control-1
+         latin-iso8859-1
+         latin-iso8859-2
+         latin-iso8859-3
+         latin-iso8859-4
+         latin-iso8859-9
+         latin-jisx0201
+         vietnamese-viscii-lower
+         vietnamese-viscii-upper)))
+
 ;;; mule-charset.el ends here