(when (setq chr (decode-char 'chinese-big5-cdp big5))
(unless (get-char-attribute chr 'chinese-big5-cdp)
(put-char-attribute chr 'chinese-big5-cdp big5))))
(setq ucs (1+ ucs))))
(when (setq chr (decode-char 'chinese-big5-cdp big5))
(unless (get-char-attribute chr 'chinese-big5-cdp)
(put-char-attribute chr 'chinese-big5-cdp big5))))
(setq ucs (1+ ucs))))