;;; 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 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.
;; (unless (memq domain dest)
;; (push domain dest))))))
;; (sort dest #'string<))
- '(ucs ucs/compat daikanwa cns gt jis jis/alt jis/a jis/b
+ '(ucs ucs/compat daikanwa cns gt jis jis/a jis/b
jis-x0212 jis-x0213 cdp shinjigen
r030 r140 misc unknown))
(defun char-ucs (char)
"Return code-point of UCS."
(or (encode-char char '=ucs 'defined-only)
+ (char-feature char '=ucs)
(char-feature char '=>ucs)))
;;;###autoload
(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))))))