From: tomo Date: Sun, 29 Feb 2004 11:49:12 +0000 (+0000) Subject: (char-representative-of-daikanwa): Fixed. X-Git-Tag: r21-4-14-chise-0_21-25-ii-identical^2~33 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=35e0e87c760d73f077492976aa8226ab94568bac;p=chise%2Fxemacs-chise.git- (char-representative-of-daikanwa): Fixed. --- 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))