From: tomo <tomo>
Date: Wed, 25 Feb 2004 07:46:53 +0000 (+0000)
Subject: (update-ideograph-radical-table): Add characters specified in
X-Git-Tag: r21-4-14-chise-0_21-25-ii-identical^2~54
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=693d1823ec7216b5438eb866c99b8b474fc2ea8a;p=chise%2Fxemacs-chise.git-

(update-ideograph-radical-table): Add characters specified in
`<-identical' as same as `->denotational'.
---

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index 431f9c9..864b918 100644
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -166,7 +166,9 @@
       (map-char-attribute
        (lambda (chr radical)
 	 (dolist (char (cons chr
-			     (get-char-attribute chr '->denotational)))
+			     (append
+			      (get-char-attribute chr '<-identical)
+			      (get-char-attribute chr '->denotational))))
 	   (when (and radical
 		      (eq radical
 			  (char-ideographic-radical char radical))