Function: vc-find-root

vc-find-root is a byte-compiled function defined in vc-hooks.el.gz.

Signature

(vc-find-root FILE WITNESS)

Documentation

Find the root of a checked out project.

The function walks up the directory tree from FILE looking for WITNESS. If WITNESS if not found, return nil, otherwise return the root.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-hooks.el.gz
(defun vc-find-root (file witness)
  "Find the root of a checked out project.
The function walks up the directory tree from FILE looking for WITNESS.
If WITNESS if not found, return nil, otherwise return the root."
  (let ((locate-dominating-stop-dir-regexp
         (or vc-ignore-dir-regexp locate-dominating-stop-dir-regexp)))
    (locate-dominating-file file witness)))