Function: hierarchy-extract-tree

hierarchy-extract-tree is a byte-compiled function defined in hierarchy.el.gz.

Signature

(hierarchy-extract-tree HIERARCHY ITEM)

Documentation

Return a copy of HIERARCHY with ITEM's descendants and parents.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/hierarchy.el.gz
(defun hierarchy-extract-tree (hierarchy item)
  "Return a copy of HIERARCHY with ITEM's descendants and parents."
  (if (not (hierarchy-has-item hierarchy item))
      nil
    (let ((tree (hierarchy-new)))
      (hierarchy-add-tree tree item
                          (lambda (each) (hierarchy-parent hierarchy each))
                          (lambda (each)
                            (when (or (equal each item)
                                      (hierarchy-descendant-p hierarchy each item))
                              (hierarchy-children hierarchy each))))
      tree)))