From 940589b2e2178fe3ba79f309fd580d0ff3b33fa2 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sun, 22 Feb 2015 04:53:55 +0900 Subject: [PATCH] (char-daikanwa): Use `->denotational@component' and `<-denotational@component'. --- lisp/utf-2000/ideograph-util.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index 8207d3c..70f4171 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -1,7 +1,7 @@ ;;; ideograph-util.el --- Ideographic Character Database utility ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008, -;; 2009, 2010, 2012, 2014 MORIOKA Tomohiko. +;; 2009, 2010, 2012, 2014, 2015 MORIOKA Tomohiko. ;; Author: MORIOKA Tomohiko ;; Keywords: CHISE, Chaon model, ISO/IEC 10646, Unicode, UCS-4, MULE. @@ -321,8 +321,11 @@ (setq depth 0)) (catch 'tag (let ((rest - (append (get-char-attribute char '->subsumptive) - (get-char-attribute char '->denotational))) + (append + (get-char-attribute char '->subsumptive) + (get-char-attribute char '->denotational) + (get-char-attribute char '->denotational@component) + )) (i 0) sc lnum) (setq checked (cons char checked)) @@ -345,8 +348,11 @@ (setq checked (cons sc checked) rest (cdr rest))) (setq rest - (append (get-char-attribute char '<-subsumptive) - (get-char-attribute char '<-denotational))) + (append + (get-char-attribute char '<-subsumptive) + (get-char-attribute char '<-denotational) + (get-char-attribute char '<-denotational@component) + )) (while rest (setq sc (car rest)) (when (setq ret (char-daikanwa sc radical checked depth)) -- 1.7.10.4