From: tomo <tomo>
Date: Tue, 6 Jul 1999 07:03:19 +0000 (+0000)
Subject: (reset-language-environment): Regard coding-category `utf-8' and
X-Git-Tag: r21-2-17-tomo-4~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f35fca4a8d8f9b2e7a3aab20b814a4ecb1da37a7;p=chise%2Fxemacs-chise.git-

(reset-language-environment): Regard coding-category `utf-8' and
`ucs-4' if they are available.
---

diff --git a/lisp/mule/mule-cmds.el b/lisp/mule/mule-cmds.el
index 1baca53..20cd3b5 100644
--- a/lisp/mule/mule-cmds.el
+++ b/lisp/mule/mule-cmds.el
@@ -1083,18 +1083,32 @@ The default status is as follows:
   (set-coding-category-system 'no-conversion	'raw-text)
   (set-coding-category-system 'shift-jis	'shift_jis)
   (set-coding-category-system 'big5		'big5)
-  (set-coding-category-system 'ucs-4		'binary)
-  (set-coding-category-system 'utf-8		'raw-text)
-    
-  (set-coding-priority-list
-   '(iso-8-1
-     iso-8-2
-     iso-7
-     iso-lock-shift
-     iso-8-designate
-     no-conversion
-     shift-jis
-     big5))
+  (cond ((eq (coding-system-type (coding-category-system 'utf-8)) 'utf-8)
+	 (set-coding-category-system 'ucs-4 'iso-10646-ucs-4)
+	 (set-coding-category-system 'utf-8 'utf-8)
+	 (set-coding-priority-list
+	  '(iso-8-1
+	    iso-8-2
+	    iso-7
+	    iso-lock-shift
+	    iso-8-designate
+	    utf-8
+	    ucs-4
+	    no-conversion
+	    shift-jis
+	    big5))
+	 )
+	(t
+	 (set-coding-priority-list
+	  '(iso-8-1
+	    iso-8-2
+	    iso-7
+	    iso-lock-shift
+	    iso-8-designate
+	    no-conversion
+	    shift-jis
+	    big5))
+	 ))
 
   ;; (update-coding-systems-internal)