vc-find-root

vc-find-root is a compiled Lisp function in `vc-hooks.el'.

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