From: tomo <tomo>
Date: Sun, 16 Feb 2003 14:01:25 +0000 (+0000)
Subject: Rename `chinese-big5-cdp' to `=big5-cdp'.
X-Git-Tag: r21-2-44-utf-2000-m0_18-=big5-cdp~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c01a73c5f0aa21f12217c95fe1c8266afabbf5a0;p=chise%2Fxemacs-chise.git-

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

diff --git a/lisp/utf-2000/ad-hoc-cdp.el b/lisp/utf-2000/ad-hoc-cdp.el
index 752129a..6b6664c 100644
--- a/lisp/utf-2000/ad-hoc-cdp.el
+++ b/lisp/utf-2000/ad-hoc-cdp.el
@@ -4,9 +4,9 @@
   (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
@@ -15,4 +15,4 @@
 ;;             (get-char-attribute ch 'chinese-big5))
 ;;        (remove-char-attribute ch 'chinese-big5))
 ;;    nil)
-;;  'chinese-big5-cdp)
+;;  '=big5-cdp)