From e87145e6dae4ef70d88dc48fc0d201b0797a271e Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 21 Nov 2016 14:13:34 +0900 Subject: [PATCH] (update-ideograph-radical-table): Modify for `<-subsumptive'. (char-representative-of-daikanwa): Modify for `<-subsumptive' and `<-denotational'. (char-daikanwa): Likewise. --- lisp/utf-2000/ideograph-util.el | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index 70f4171..08365ed 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -53,6 +53,7 @@ (get-char-attribute chr '<-subsumptive)) (progn (setq dest nil) + (setq ret (list ret)) (dolist (pc ret) (unless (eq (get-char-attribute pc 'ideographic-radical) @@ -60,7 +61,7 @@ (if (setq rret (get-char-attribute pc '<-subsumptive)) - (setq ret (append ret rret)) + (setq ret (append ret (list rret))) (setq dest (cons pc dest))))) dest) (list chr)) @@ -228,8 +229,12 @@ (setq checked (cons sc checked) rest (cdr rest))) (setq rest - (append (get-char-attribute char '<-subsumptive) - (get-char-attribute char '<-denotational))) + (append (if (setq ret (get-char-attribute + char '<-subsumptive)) + (list ret)) + (if (setq ret (get-char-attribute + char '<-denotational)) + (list ret)))) (while rest (setq sc (car rest)) (when (setq ret (char-representative-of-daikanwa @@ -349,8 +354,12 @@ rest (cdr rest))) (setq rest (append - (get-char-attribute char '<-subsumptive) - (get-char-attribute char '<-denotational) + (if (setq ret (get-char-attribute + char '<-subsumptive)) + (list ret)) + (if (setq ret (get-char-attribute + char '<-denotational)) + (list ret)) (get-char-attribute char '<-denotational@component) )) (while rest -- 1.7.10.4