projects / chise / xemacs-chise.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 0cb7751)
(char-representative-of-daikanwa): Fixed.
authortomo <tomo>
Sun, 29 Feb 2004 11:49:12 +0000 (11:49 +0000)
committertomo <tomo>
Sun, 29 Feb 2004 11:49:12 +0000 (11:49 +0000)
lisp/utf-2000/ideograph-util.el patch | blob | history

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