From c01a73c5f0aa21f12217c95fe1c8266afabbf5a0 Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 16 Feb 2003 14:01:25 +0000 Subject: [PATCH] Rename `chinese-big5-cdp' to `=big5-cdp'. --- lisp/utf-2000/ad-hoc-cdp.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 1.7.10.4