X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-cmds.el;h=f10f5e79544c53baecffb8b68cddb059587b5ca4;hb=56a46471eb1ee37d230d45469decc129f60755d4;hp=d07ff1551d49246c3e30b1488591b5b5e59370e0;hpb=98a6e4055a1fa624c592ac06f79287d55196ca37;p=chise%2Fxemacs-chise.git

diff --git a/lisp/mule/mule-cmds.el b/lisp/mule/mule-cmds.el
index d07ff15..f10f5e7 100644
--- a/lisp/mule/mule-cmds.el
+++ b/lisp/mule/mule-cmds.el
@@ -713,19 +713,34 @@ The default status is as follows:
   (set-coding-category-system 'shift-jis	'shift_jis)
   (set-coding-category-system 'big5		'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))
+	 (cond ((eq (coding-system-type (coding-category-system 'ucs-4))
+		    'iso-10646-ucs-4)
+		(set-coding-category-system 'ucs-4 'iso-10646-ucs-4)
+		(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
+		   utf-8
+		   no-conversion
+		   shift-jis
+		   big5))
+		))
 	 )
 	(t
 	 (set-coding-priority-list