From: tomo <tomo>
Date: Mon, 1 Oct 2001 19:13:16 +0000 (+0000)
Subject: (char-db-insert-char-spec): Add `ideograph-daikanwa' for non-UCS
X-Git-Tag: r21-2-41-utf-2000-0_18-1~412
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=62256874922b35b29addeb5c25c30629cb14d89a;p=chise%2Fxemacs-chise.git-

(char-db-insert-char-spec): Add `ideograph-daikanwa' for non-UCS
ideographs.
---

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