(update-ideograph-radical-table): Add characters specified in

[chise/xemacs-chise.git.1] / lisp / utf-2000 / ideograph-util.el

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index 431f9c9..864b918 100644 (file)
--- 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))