;;;
(when (featurep 'utf-2000)
- (setq default-coded-charset-priority-list
+ (setq default-coded-charset-priority-list-for-font
'(ascii
control-1
latin-iso8859-1
cyrillic-iso8859-5
greek-iso8859-7
thai-tis620
- hiragana-jisx0208
- katakana-jisx0208
+ ;; hiragana-jisx0208
+ ;; 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