+ (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))
+ ))