X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fad-hoc-cdp.el;h=6b6664c554fcbcdfe0c4047282ad8f5a04cf32d3;hb=81af62fc83d6ccfa6e08333c1f47a0362d561357;hp=752129a47f0542231db0064e8fcb3b7c434c08a5;hpb=eb2c350028338a5ad58b45009e0601b1fdcbddb2;p=chise%2Fxemacs-chise.git

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)