(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 864b918..9f384db 100644 (file)
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -248,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))