From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 21 Nov 2016 05:06:46 +0000 (+0900)
Subject: (map-char-family): Modify for `<-subsumptive' and `<-denotational'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=da2da9f2205c6e72f70c974bf4594df00b045595;p=chise%2Fxemacs-chise.git-

(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
--- 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))))))