-(defun ids-find-chars-including-ids* (operator component1 component2
- &optional component3)
- (let ((comp-alist (ideographic-structure-to-components-alist*
- operator component1 component2 component3))
- (comp-spec
- (list (list* 'ideographic-structure
- operator component1 component2
- (if component3
- (list component3)))))
- ret str rest)
- (dolist (pc (caar
- (sort (mapcar (lambda (cell)
- (if (setq ret (get-char-attribute
- (car cell) 'ideographic-products))
- (cons ret (length ret))
- (cons nil 0)))
- comp-alist)
- (lambda (a b)
- (< (cdr a)(cdr b))))))
- (when (and (every (lambda (cell)
- (>= (ideographic-char-count-components pc (car cell))
- (cdr cell)))
- comp-alist)
- (or (ideographic-char-match-component pc comp-spec)
- (and (setq str (get-char-attribute pc 'ideographic-structure))
- (ideographic-char-match-component
- (list
- (cons
- 'ideographic-structure
- (functional-ideographic-structure-to-apparent-structure
- str)))
- comp-spec))))
- (push pc rest)))
- (ideographic-chars-to-is-a-tree rest)))
+;; (defun ids-find-chars-including-ids* (operator component1 component2
+;; &optional component3)
+;; (let ((comp-alist (ideographic-structure-to-components-alist*
+;; operator component1 component2 component3))
+;; (comp-spec
+;; (list (list* 'ideographic-structure
+;; operator component1 component2
+;; (if component3
+;; (list component3)))))
+;; ret str rest)
+;; (dolist (pc (caar
+;; (sort (mapcar (lambda (cell)
+;; (if (setq ret (get-char-attribute
+;; (car cell) 'ideographic-products))
+;; (cons ret (length ret))
+;; (cons nil 0)))
+;; comp-alist)
+;; (lambda (a b)
+;; (< (cdr a)(cdr b))))))
+;; (when (and (every (lambda (cell)
+;; (>= (ideographic-char-count-components pc (car cell))
+;; (cdr cell)))
+;; comp-alist)
+;; (or (ideographic-char-match-component pc comp-spec)
+;; (and (setq str (get-char-attribute pc 'ideographic-structure))
+;; (ideographic-char-match-component
+;; (list
+;; (cons
+;; 'ideographic-structure
+;; (functional-ideographic-structure-to-apparent-structure
+;; str)))
+;; comp-spec))))
+;; (push pc rest)))
+;; (ideographic-chars-to-is-a-tree rest)))