From da2da9f2205c6e72f70c974bf4594df00b045595 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 21 Nov 2016 14:06:46 +0900 Subject: [PATCH] (map-char-family): Modify for `<-subsumptive' and `<-denotational'. --- lisp/utf-2000/chise-subr.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/utf-2000/chise-subr.el b/lisp/utf-2000/chise-subr.el index c6e968c..f978ddb 100644 --- a/lisp/utf-2000/chise-subr.el +++ b/lisp/utf-2000/chise-subr.el @@ -243,9 +243,15 @@ (get-char-attribute (car rest) '->denotational) (get-char-attribute (car rest) '->identical))) (unless ignore-sisters - (setq rest (append rest - (get-char-attribute (car rest) '<-subsumptive) - (get-char-attribute (car rest) '<-denotational))))) + (setq rest + (append rest + (if (setq ret (get-char-attribute + (car rest) '<-subsumptive)) + (list ret)) + (if (setq ret (get-char-attribute + (car rest) '<-denotational)) + (list ret)) + )))) (setq rest (cdr rest)))))) -- 1.7.10.4