X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-cmds.el;h=20594833d0a8aefa32c4db5dcffdcb340a4599fa;hb=d498337390c3a567aae4fa0e1c1f06064a808d21;hp=c63bc97b3e9c60f8c427f2e786a174a2ae934243;hpb=14144012929ab5944f367d5d1b323ab8268abb05;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/mule/mule-cmds.el b/lisp/mule/mule-cmds.el
index c63bc97..2059483 100644
--- a/lisp/mule/mule-cmds.el
+++ b/lisp/mule/mule-cmds.el
@@ -729,19 +729,34 @@ The default status is as follows:
   ;; #### Can we now assume the existence of the 10646 coding systems?
   ;; #### These lists need to be synched with the ones in mule-coding.el.
   (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-7
-	    no-conversion
-	    utf-8
-	    iso-8-1
-	    iso-8-2
-	    iso-8-designate
-	    iso-lock-shift
-	    shift-jis
-	    big5
-	    ucs-4))
+	 (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-7
+		   no-conversion
+		   utf-8
+		   iso-8-1
+		   iso-8-2
+		   iso-8-designate
+		   iso-lock-shift
+		   shift-jis
+		   big5
+		   ucs-4))
+		)
+	       (t
+		(set-coding-priority-list
+		 '(iso-7
+		   no-conversion
+		   utf-8
+		   iso-8-1
+		   iso-8-2
+		   iso-8-designate
+		   iso-lock-shift
+		   shift-jis
+		   big5))
+		))
 	 )
 	(t
 	 (set-coding-priority-list