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 '=big5-pua))
16 (when (setq chr (decode-char '=big5-cdp big5))
17 (unless (get-char-attribute chr '=big5-cdp)
18 (put-char-attribute chr '=big5-cdp big5))))
24 (put-char-attribute (decode-char 'japanese-jisx0208-1990 v)
29 (let ((default-coded-charset-priority-list
46 (when (and (setq ret (decode-char '=gt-k i))
47 (setq ret (split-char ret))
48 (memq (car ret) default-coded-charset-priority-list))
49 (when (setq chr (apply (function make-char) ret))
50 (put-char-attribute chr '=gt-k i)))