(char-daikanwa): Return '(num -10) instead of '(num 0 8) when value of
authortomo <tomo>
Wed, 4 Aug 2010 11:41:10 +0000 (11:41 +0000)
committertomo <tomo>
Wed, 4 Aug 2010 11:41:10 +0000 (11:41 +0000)
feature `=>daikanwa' is num.

lisp/utf-2000/ideograph-util.el

index 4f0021b..9608e52 100644 (file)
                  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))