From: tomo <tomo>
Date: Mon, 25 Nov 2002 08:47:37 +0000 (+0000)
Subject: New file.
X-Git-Tag: r21-4-9-utf-2000-0_19-cjkc~64
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9d3c73cbac77f77d79153329977b39be28b2bcd2;p=chise%2Fxemacs-chise.git

New file.
---

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)