From 03f3f79111cc5c3c888daea1879da8d1b5037bbd Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 4 Aug 2010 11:41:10 +0000 Subject: [PATCH] (char-daikanwa): Return '(num -10) instead of '(num 0 8) when value of feature `=>daikanwa' is num. --- 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 4f0021b..9608e52 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -289,8 +289,8 @@ ret)) (and (setq ret (get-char-attribute char '=>daikanwa)) (if (numberp ret) - (list ret 0 8) - (append ret '(8)))) + (list ret -10) + (append ret '(-10)))) (unless (memq char checked) (unless depth (setq depth 0)) -- 1.7.10.4