From b5ebdf2c6a17025483ceff54d9d893e4ffe88a5d Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 8 Oct 2001 15:18:29 +0000 Subject: [PATCH] (char-db-insert-char-spec): Don't add `chinese-big5-cdp' if a character can be represented by a non-private UCS code point. --- lisp/utf-2000/char-db-util.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) 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))) ) -- 1.7.10.4