(if (and ucs (<= #xE000 ucs)(<= ucs #xF8FF)
(setq big5 (encode-char chr 'chinese-big5)))
(setq chr (decode-char '=big5-cdp big5)))
(if (and ucs (<= #xE000 ucs)(<= ucs #xF8FF)
(setq big5 (encode-char chr 'chinese-big5)))
(setq chr (decode-char '=big5-cdp big5)))