From: tomo <tomo>
Date: Fri, 20 Jul 2007 09:49:52 +0000 (+0000)
Subject: (char-daikanwa): Return '(M d 8) instead of '(M 0) or '(M d 0).
X-Git-Tag: r21-4-19-chise-0_23-4^20~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=eaecdb27018cb71cabe597aa352e54ed04dd4cc1;p=chise%2Fxemacs-chise.git-

(char-daikanwa): Return '(M d 8) instead of '(M 0) or '(M d 0).
---

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index c00d5bf..8d0a901 100644
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -1,6 +1,6 @@
 ;;; ideograph-util.el --- Ideographic Character Database utility
 
-;; Copyright (C) 1999,2000,2001,2002,2003,2004,2005 MORIOKA Tomohiko.
+;; Copyright (C) 1999,2000,2001,2002,2003,2004,2005,2007 MORIOKA Tomohiko.
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: CHISE, Chaon model, ISO/IEC 10646, Unicode, UCS-4, MULE.
@@ -437,8 +437,8 @@
         (or ret
 	    (and (setq ret (get-char-attribute char '=>daikanwa))
 		 (if (numberp ret)
-		     (list ret 0)
-		   (append ret '(0))))
+		     (list ret 0 8)
+		   (append ret '(8))))
 	    (unless (memq char checked)
 	      (catch 'tag
 		(let ((rest