From eaecdb27018cb71cabe597aa352e54ed04dd4cc1 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 20 Jul 2007 09:49:52 +0000 Subject: [PATCH] (char-daikanwa): Return '(M d 8) instead of '(M 0) or '(M d 0). --- lisp/utf-2000/ideograph-util.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 ;; 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 -- 1.7.10.4