Delete `ideograph-cdp' if its value is positive.

[chise/xemacs-chise.git] / lisp / mule / mule-coding.el

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 0608850..07e8104 100644 (file)
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -176,17 +176,28 @@
 ;; (They will be in ISO-7 format)
 ;; #### This list needs to be synched with the ones in mule-cmds.el.
 
-(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
-           ))
+(if (featurep 'utf-2000)
+    (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))
+  (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
+                             )))
 
 (set-coding-category-system 'iso-7 'iso-2022-7)
 (set-coding-category-system 'iso-8-designate 'ctext)