+(defun char-ucs-chars (character)
+ "Return list of UCS abstract characters unified by CHARACTER."
+ (let (ucs dest)
+ (if (and (setq ucs (encode-char character '=ucs))
+ (not (and (<= #x2E80 ucs)(<= ucs #x2EF3)))
+ (null (get-char-attribute character '=>ucs*)))
+ (setq dest (list character)))
+ (dolist (c (mapcan #'char-ucs-chars
+ (get-char-attribute character '->subsumptive)))
+ (setq dest (adjoin c dest)))
+ (dolist (c (mapcan #'char-ucs-chars
+ (get-char-attribute character '->denotational)))
+ (setq dest (adjoin c dest)))
+ (dolist (c (mapcan #'char-ucs-chars
+ (get-char-attribute character '->denotational@component)))
+ (setq dest (adjoin c dest)))
+ dest))
+
+
+;;;###autoload