From d97b02afadea866441a2b318b486f3ad718f645b Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 31 Oct 2001 18:46:28 +0000
Subject: [PATCH] New file.

---
 lisp/utf-2000/ad-hoc-cdp.el |   18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 lisp/utf-2000/ad-hoc-cdp.el

diff --git a/lisp/utf-2000/ad-hoc-cdp.el b/lisp/utf-2000/ad-hoc-cdp.el
new file mode 100644
index 0000000..1c6eaa9
--- /dev/null
+++ b/lisp/utf-2000/ad-hoc-cdp.el
@@ -0,0 +1,18 @@
+(let ((ucs #xE000)
+      big5 chr
+      ret)
+  (while (<= ucs #xF848)
+    (setq chr (decode-char 'ucs ucs))
+    (when (setq big5 (get-char-attribute chr 'chinese-big5))
+      (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