From: tomo <tomo>
Date: Mon, 25 Nov 2002 08:49:30 +0000 (+0000)
Subject: Deleted [moved to maps-conf.el].
X-Git-Tag: r21-4-9-utf-2000-0_19-cjkc~63
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6026f6eb7429f540fa39714705ac7005ac441dd3;p=chise%2Fxemacs-chise.git-

Deleted [moved to maps-conf.el].
---

diff --git a/lisp/utf-2000/ad-hoc-cdp.el b/lisp/utf-2000/ad-hoc-cdp.el
deleted file mode 100644
index edf88b2..0000000
--- a/lisp/utf-2000/ad-hoc-cdp.el
+++ /dev/null
@@ -1,18 +0,0 @@
-(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)