From: tomo <tomo>
Date: Sun, 16 Feb 2003 10:02:18 +0000 (+0000)
Subject: Rename `chinese-big5-cdp' to `=big5-cdp'.
X-Git-Tag: r21-4-10-utf-2000-0_20-=big5-cdp~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c1327d7e2e8278fb1a02b13b958c41144c806a6d;p=chise%2Fxemacs-chise.git

Rename `chinese-big5-cdp' to `=big5-cdp'.
---

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