5 (setq chr (decode-char 'ucs ucs))
6 (when (setq big5 (get-char-attribute chr 'chinese-big5-pua))
7 (when (setq chr (decode-char 'chinese-big5-cdp big5))
8 (unless (get-char-attribute chr 'chinese-big5-cdp)
9 (put-char-attribute chr 'chinese-big5-cdp big5))))
12 ;; (map-char-attribute
15 ;; (get-char-attribute ch 'chinese-big5))
16 ;; (remove-char-attribute ch 'chinese-big5))