From: tomo <tomo>
Date: Sun, 10 Oct 1999 18:31:06 +0000 (+0000)
Subject: (default-coded-charset-priority-list-for-font): Setup in UTF-2000.
X-Git-Tag: r21-2-19-utf-2000-0_9-0~21
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8eab70ae9368d2f6c142948a1becb745220c1a57;p=chise%2Fxemacs-chise.git

(default-coded-charset-priority-list-for-font): Setup in UTF-2000.
---

diff --git a/lisp/mule/mule-charset.el b/lisp/mule/mule-charset.el
index ad13a91..607666f 100644
--- a/lisp/mule/mule-charset.el
+++ b/lisp/mule/mule-charset.el
@@ -256,7 +256,7 @@ DESCRIPTION (string) is the description string of the charset."
 ;;;
 
 (when (featurep 'utf-2000)
-  (setq default-coded-charset-priority-list
+  (setq default-coded-charset-priority-list-for-font
 	'(ascii
 	  control-1
 	  latin-iso8859-1
@@ -272,7 +272,11 @@ DESCRIPTION (string) is the description string of the charset."
           ;; katakana-jisx0208
 	  japanese-jisx0208
 	  hebrew-iso8859-8
-	  vietnamese-viscii-lower
-	  vietnamese-viscii-upper)))
+	  latin-viscii))
+  (setq default-coded-charset-priority-list
+	(append default-coded-charset-priority-list-for-font
+		'(vietnamese-viscii-lower
+		  vietnamese-viscii-upper)))
+  )
 
 ;;; mule-charset.el ends here