X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fideograph-util.el;h=9f384dbfff476592cd448bbaa31ce6c12a1b8d67;hb=35e0e87c760d73f077492976aa8226ab94568bac;hp=864b9186b426fc8cb4d006cb8fa423deb2506889;hpb=693d1823ec7216b5438eb866c99b8b474fc2ea8a;p=chise%2Fxemacs-chise.git.1

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