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 (file)
--- 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