From 62256874922b35b29addeb5c25c30629cb14d89a Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 1 Oct 2001 19:13:16 +0000 Subject: [PATCH] (char-db-insert-char-spec): Add `ideograph-daikanwa' for non-UCS ideographs. --- lisp/utf-2000/char-db-util.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index fa66bbc..26888dc 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -133,8 +133,9 @@ ((setq ret (split-char char)) (setq char-spec (list ret)) (dolist (ccs (delq (car ret) (charset-list))) - (if (and (>= (charset-iso-final-char ccs) ?0) - (setq ret (get-char-attribute char ccs))) + (if (or (and (>= (charset-iso-final-char ccs) ?0) + (setq ret (get-char-attribute char ccs))) + (eq ccs 'ideograph-daikanwa)) (setq char-spec (cons (cons ccs ret) char-spec)))) (if (setq ret (get-char-attribute char 'name)) (setq char-spec (cons (cons 'name ret) char-spec))) -- 1.7.10.4