From: tomo <tomo>
Date: Mon, 8 Oct 2001 15:18:29 +0000 (+0000)
Subject: (char-db-insert-char-spec): Don't add `chinese-big5-cdp' if a
X-Git-Tag: r21-2-41-utf-2000-0_18-1~341
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b5ebdf2c6a17025483ceff54d9d893e4ffe88a5d;p=chise%2Fxemacs-chise.git

(char-db-insert-char-spec): Don't add `chinese-big5-cdp' if a
character can be represented by a non-private UCS code point.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 26888dc..b0d07b7 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -121,12 +121,9 @@
     (setq column (current-column)))
   (let (char-spec ret al cal key temp-char)
     (cond ((characterp char)
-	   (cond ((setq ret (get-char-attribute char 'ucs))
-		  (unless (and (<= #xE000 ret)(<= ret #xF8FF))
-		    (setq char-spec (list (cons 'ucs ret))))
-		  (if (setq ret (get-char-attribute char 'chinese-big5-cdp))
-		      (setq char-spec (cons (cons 'chinese-big5-cdp ret)
-					    char-spec)))
+	   (cond ((and (setq ret (get-char-attribute char 'ucs))
+		       (not (and (<= #xE000 ret)(<= ret #xF8FF))))
+		  (setq char-spec (list (cons 'ucs ret)))
 		  (if (setq ret (get-char-attribute char 'name))
 		      (setq char-spec (cons (cons 'name ret) char-spec)))
 		  )