From 6026f6eb7429f540fa39714705ac7005ac441dd3 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 25 Nov 2002 08:49:30 +0000 Subject: [PATCH] Deleted [moved to maps-conf.el]. --- lisp/utf-2000/ad-hoc-cdp.el | 18 ------------------ 1 file changed, 18 deletions(-) delete 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 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) -- 1.7.10.4