From 35e0e87c760d73f077492976aa8226ab94568bac Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 29 Feb 2004 11:49:12 +0000 Subject: [PATCH] (char-representative-of-daikanwa): Fixed. --- lisp/utf-2000/ideograph-util.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4