From: tomo <tomo>
Date: Wed, 4 Aug 2010 11:41:10 +0000 (+0000)
Subject: (char-daikanwa): Return '(num -10) instead of '(num 0 8) when value of
X-Git-Tag: chise-base-0_25-1^20~352
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=commitdiff_plain;h=03f3f79111cc5c3c888daea1879da8d1b5037bbd

(char-daikanwa): Return '(num -10) instead of '(num 0 8) when value of
feature `=>daikanwa' is num.
---

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