(component-descendant-node-list inputnd complist)
Finds the first ancestor of inputnd in complist and then returns a node list of all the inputnds within (that are descendants of) that ancestor.
Norman Walsh, <ndw@nwalsh.com>
(define (component-descendant-node-list inputnd complist) ;; Find all 'inputnd's within an ancestor element (let ((nd (ancestor-member inputnd complist))) (select-elements (descendants nd) (gi inputnd))))