Rename `chinese-big5-cdp' to `=big5-cdp'.
authortomo <tomo>
Sun, 16 Feb 2003 14:01:25 +0000 (14:01 +0000)
committertomo <tomo>
Sun, 16 Feb 2003 14:01:25 +0000 (14:01 +0000)
lisp/utf-2000/ad-hoc-cdp.el

index 752129a..6b6664c 100644 (file)
@@ -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)