component-descendant-node-list

Description

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.

Author

Norman Walsh, <ndw@nwalsh.com>

Source Code

(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))))