From: tomo <tomo>
Date: Fri, 12 Apr 2002 05:31:04 +0000 (+0000)
Subject: - Use `chinese-big5-pua' instead of `chinese-big5' as the private used
X-Git-Tag: r21-2-44-0_18-m8~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=42ec2746ef4a96ba503898c3a88e1c65b2217e01;p=chise%2Fxemacs-chise.git

- 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.
---

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)