From 693d1823ec7216b5438eb866c99b8b474fc2ea8a Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 25 Feb 2004 07:46:53 +0000
Subject: [PATCH] (update-ideograph-radical-table): Add characters specified
 in `<-identical' as same as `->denotational'.

---
 lisp/utf-2000/ideograph-util.el |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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