(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)))
(if (>= (length string) 1)
(let* ((chr (aref string 0))
(ucs (encode-char chr '=ucs 'defined-only)))
(if (>= (length string) 1)
(let* ((chr (aref string 0))
(ucs (encode-char chr '=ucs 'defined-only)))