From 9d3c73cbac77f77d79153329977b39be28b2bcd2 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 25 Nov 2002 08:47:37 +0000 Subject: [PATCH] New file. --- lisp/utf-2000/maps-conf.el | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 lisp/utf-2000/maps-conf.el diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el new file mode 100644 index 0000000..a8c5ef9 --- /dev/null +++ b/lisp/utf-2000/maps-conf.el @@ -0,0 +1,27 @@ +(require 'read-maps) + +(dolist (file '("J90-to-UCS.txt" "JSP-to-UCS.txt" + "JX1-to-UCS.txt" "JX2-to-UCS.txt" + "C3-to-UCS.txt" ; "C4-to-UCS.txt" + "B-to-UCS.txt" "JC3-to-UCS.txt")) + (mapping-table-read-file (expand-file-name file "../etc/char-data/"))) + + +(let ((ucs #xE000) + big5 chr + ret) + (while (<= ucs #xF848) + (setq chr (decode-char 'ucs ucs)) + (when (setq big5 (get-char-attribute chr 'chinese-big5-pua)) + (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)))) + +;; (map-char-attribute +;; (lambda (ch v) +;; (if (and ch +;; (get-char-attribute ch 'chinese-big5)) +;; (remove-char-attribute ch 'chinese-big5)) +;; nil) +;; 'chinese-big5-cdp) -- 1.7.10.4