+ (view-buffer ids-find-result-buffer))
+
+;;;###autoload
+(define-obsolete-function-alias 'ideographic-structure-search-chars
+ 'ids-find-chars-including-components)
+
+;;;###autoload
+(defun ids-find-chars-covered-by-components (components)
+ "Search Ideographs which structures are consisted by subsets of COMPONENTS."
+ (interactive "sComponents: ")
+ (if (stringp components)
+ (setq components (string-to-char-list components)))
+ (with-current-buffer (get-buffer-create ids-find-result-buffer)
+ (setq buffer-read-only nil)
+ (erase-buffer)
+ (let (ucs jis)
+ (map-char-attribute
+ (lambda (c v)
+ (when (ideographic-structure-repertoire-p v components)
+ (insert
+ (ids-find-format-line c v)
+ ;; (format "%c\t%s\t%s\n"
+ ;; c
+ ;; (or
+ ;; (when (setq ucs (char-ucs c))
+ ;; (or
+ ;; (when (setq jis
+ ;; (encode-char
+ ;; (decode-char
+ ;; 'ucs-jis (char-ucs c))
+ ;; 'japanese-jisx0208-1990))
+ ;; (format "J0-%04X" jis))))
+ ;; "")
+ ;; (or (ideographic-structure-to-ids v)
+ ;; v))
+ )))
+ 'ideographic-structure))
+ (goto-char (point-min)))
+ (view-buffer ids-find-result-buffer))