(map-char-family): Modify for `<-subsumptive' and `<-denotational'.

diff --git a/lisp/utf-2000/chise-subr.el b/lisp/utf-2000/chise-subr.el
index c6e968c..f978ddb 100644 (file)
--- 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))))))