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.