# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 980423339 0
# Node ID 18667fa780874b2a6c2212954371e7dedce0fbf3
# Parent  57b31206dbfa783a4f275cf8cf8fd9c99d18d3af
(reset-language-environment): Make
the priority of coding-category-utf-8 higher than
coding-category-binary.

diff -r 57b31206dbfa -r 18667fa78087 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Thu Jan 25 11:48:42 2001 +0000
+++ b/lisp/international/mule-cmds.el	Thu Jan 25 11:48:59 2001 +0000
@@ -1320,7 +1320,10 @@
 	coding-category-sjis		japanese-shift-jis
 	coding-category-big5		chinese-big5
 	coding-category-ccl		nil
+	coding-category-utf-8		'mule-utf-8
 	coding-category-binary		no-conversion
+	coding-category-utf-16-be	nil
+	coding-category-utf-16-le	nil
 "
   (interactive)
   ;; This function formerly set default-enable-multibyte-characters to t,
@@ -1336,11 +1339,12 @@
 	coding-category-raw-text	'raw-text
 	coding-category-sjis		'japanese-shift-jis
 	coding-category-big5		'chinese-big5
-	coding-category-utf-8           nil
+	coding-category-ccl		nil
+	coding-category-utf-8           'mule-utf-8
+	coding-category-binary		'no-conversion
 	coding-category-utf-16-be       nil
-	coding-category-utf-16-le       nil
-	coding-category-ccl		nil
-	coding-category-binary		'no-conversion)
+	coding-category-utf-16-le       nil)
+
 
   (set-coding-priority
    '(coding-category-iso-8-1
@@ -1353,11 +1357,11 @@
      coding-category-raw-text
      coding-category-sjis
      coding-category-big5
+     coding-category-utf-8
      coding-category-ccl
      coding-category-binary
      coding-category-utf-16-be
-     coding-category-utf-16-le
-     coding-category-utf-8))
+     coding-category-utf-16-le))
 
   (update-coding-systems-internal)