Function: tree-widget--locate-sub-directory

tree-widget--locate-sub-directory is a byte-compiled function defined in tree-widget.el.gz.

Signature

(tree-widget--locate-sub-directory NAME PATH)

Documentation

Locate all occurrences of the sub-directory NAME in PATH.

Return a list of absolute directory names in reverse order, or nil if not found.

Source Code

;; Defined in /usr/src/emacs/lisp/tree-widget.el.gz
(defun tree-widget--locate-sub-directory (name path)
  "Locate all occurrences of the sub-directory NAME in PATH.
Return a list of absolute directory names in reverse order, or nil if
not found."
  (let ((found '()))
    (dolist (elt path)
      (with-demoted-errors "In tree-widget--locate-sub-directory: %S"
        (let ((dirs (eval elt t)))
          (dolist (dir (if (listp dirs) dirs (list dirs)))
            (and (file-accessible-directory-p
                  (setq dir (expand-file-name name dir)))
                 (push dir found))))))
    found))