;;; chise-subr.el --- basic lisp subroutines for XEmacs CHISE
;; Copyright (C) 1999, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009,
-;; 2010, 2011, 2012, 2013, 2014, 2015 MORIOKA Tomohiko.
+;; 2010, 2011, 2012, 2013, 2014, 2015, 2016 MORIOKA Tomohiko.
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: CHISE, Character Database, ISO/IEC 10646, UCS, Unicode, MULE.
(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))))))