3 (dolist (file '("J90-to-UCS.txt" "JSP-to-UCS.txt"
4 "JX1-to-UCS.txt" "JX2-to-UCS.txt"
5 "C3-to-UCS.txt" ; "C4-to-UCS.txt"
6 "B-to-UCS.txt" "JC3-to-UCS.txt"))
7 (mapping-table-read-file (expand-file-name file "../etc/char-data/")))
13 (while (<= ucs #xF848)
14 (setq chr (decode-char 'ucs ucs))
15 (when (setq big5 (get-char-attribute chr 'chinese-big5-pua))
16 (when (setq chr (decode-char 'chinese-big5-cdp big5))
17 (unless (get-char-attribute chr 'chinese-big5-cdp)
18 (put-char-attribute chr 'chinese-big5-cdp big5))))
21 ;; (map-char-attribute
24 ;; (get-char-attribute ch 'chinese-big5))
25 ;; (remove-char-attribute ch 'chinese-big5))