X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-coding.el;h=a308f1c73904e8cf6df6bbe5a516b22b18b2158e;hb=82da33b61c3e2dd2937db17b75b2838188793053;hp=3880c18c9b27f711ec862b11e3c7b4b610eaa0af;hpb=68702138198165358a9d975bf552c5eef98afa71;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 3880c18..a308f1c 100644
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -176,8 +176,11 @@
 ;; so that the remaining Lisp files can contain extended characters.
 ;; (They will be in ISO-7 format)
 
-(set-coding-priority-list '(iso-8-2 iso-8-designate iso-8-1
-			    iso-7 iso-lock-shift no-conversion))
+(if (featurep 'utf-2000)
+    (set-coding-priority-list '(iso-8-2 iso-8-designate iso-8-1
+				iso-7 iso-lock-shift utf-8 no-conversion))
+  (set-coding-priority-list '(iso-8-2 iso-8-designate iso-8-1
+			      iso-7 iso-lock-shift no-conversion)))
 
 (set-coding-category-system 'iso-7 'iso-2022-7)
 (set-coding-category-system 'iso-8-designate 'ctext)