(char-representative-of-daikanwa): Fixed.

[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..9f384db 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))
@@ -246,8 +248,8 @@
                   (decode-char 'ideograph-daikanwa m)))
          (when (or m
                    (setq m (get-char-attribute char 'morohashi-daikanwa)))
-           (setq m-m (pop m))
-           (setq m-s (pop m))
+           (setq m-m (car m))
+           (setq m-s (nth 1 m))
            (if (= m-s 0)
                (or (decode-char '=daikanwa-rev2 m-m 'defined-only)
                    (decode-char 'ideograph-daikanwa m-m))