From c1327d7e2e8278fb1a02b13b958c41144c806a6d Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 16 Feb 2003 10:02:18 +0000 Subject: [PATCH] Rename `chinese-big5-cdp' to `=big5-cdp'. --- lisp/utf-2000/maps-conf.el | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el index 81a80b5..f924b37 100644 --- a/lisp/utf-2000/maps-conf.el +++ b/lisp/utf-2000/maps-conf.el @@ -13,18 +13,11 @@ (while (<= ucs #xF848) (setq chr (decode-char 'ucs ucs)) (when (setq big5 (get-char-attribute chr '=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)))) + (when (setq chr (decode-char '=big5-cdp big5)) + (unless (get-char-attribute chr '=big5-cdp) + (put-char-attribute chr '=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) ;; (let ((default-coded-charset-priority-list ;; '(ideograph-gt-pj-1 -- 1.7.10.4