From 42ec2746ef4a96ba503898c3a88e1c65b2217e01 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 12 Apr 2002 05:31:04 +0000 Subject: [PATCH] - Use `chinese-big5-pua' instead of `chinese-big5' as the private used area of Big5. - Comment out code to remove `chinese-big5' attribute from `chinese-big5-cdp' characters. --- lisp/utf-2000/ad-hoc-cdp.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/utf-2000/ad-hoc-cdp.el b/lisp/utf-2000/ad-hoc-cdp.el index 1c6eaa9..edf88b2 100644 --- a/lisp/utf-2000/ad-hoc-cdp.el +++ b/lisp/utf-2000/ad-hoc-cdp.el @@ -3,16 +3,16 @@ ret) (while (<= ucs #xF848) (setq chr (decode-char 'ucs ucs)) - (when (setq big5 (get-char-attribute chr 'chinese-big5)) + (when (setq big5 (get-char-attribute chr 'chinese-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)))) (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) +;; (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) -- 1.7.10.4