From 337ee1ffb754cfdcd64ade002831cff1e3adc327 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 14 Oct 2004 16:42:47 +0000 Subject: [PATCH] (update-ideograph-radical-table): Ignore a parent specified by `<-subsumptive' if it has `<-subsumptive'. --- lisp/utf-2000/ideograph-util.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el index 2b880e4..c40b619 100644 --- a/lisp/utf-2000/ideograph-util.el +++ b/lisp/utf-2000/ideograph-util.el @@ -252,7 +252,7 @@ ;;;###autoload (defun update-ideograph-radical-table () (interactive) - (let (ret radical script dest) + (let (ret rret radical script dest) (dolist (feature (cons 'ideographic-radical (mapcar @@ -270,7 +270,11 @@ (unless (eq (get-char-attribute pc 'ideographic-radical) radical) - (setq dest (cons pc dest)))) + (if (setq rret + (get-char-attribute + pc '<-subsumptive)) + (setq ret (append ret rret)) + (setq dest (cons pc dest))))) dest) (list chr)) (let ((rest (append -- 1.7.10.4