- (eq (or (encode-char chr ucs-ccs 'defined-only)
- (if (memq ucs-ccs '(=ucs@jis
- =ucs@jis/1990
- =ucs@jis/2000
- ))
- (encode-char chr '=ucs@jis/fw
- 'defined-only)
- (unless (memq ucs-ccs '(=ucs@gb
- ;; ucs-big5
- ))
- (char-feature chr '=>ucs))))
+ (eq (or
+ (encode-char chr ucs-ccs 'defined-only)
+ (cond
+ ((memq ucs-ccs '(=ucs@jis
+ =ucs@jis/1990
+ =ucs@jis/2000))
+ (encode-char chr '=ucs@jis/fw 'defined-only))
+ ((eq ucs-ccs '=ucs@gb)
+ (encode-char chr '=ucs@gb/fw 'defined-only))
+ ;; ((eq ucs-ccs '=ucs@cns)
+ ;; (encode-char chr '=ucs@cns/fw 'defined-only))
+ ;; ((eq ucs-ccs '=ucs@big5)
+ ;; nil)
+ ;; ((eq ucs-ccs '=ucs@ks)
+ ;; (encode-char chr '=ucs@ks/fw 'defined-only))
+ (t
+ (char-feature chr '=>ucs))))