Commit 66752bb4 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(vc-find-root): Walk up the tree to find an existing

`file' from which to start the search.
parent c1fec027
2007-07-19 Stefan Monnier <monnier@iro.umontreal.ca>
* vc-hooks.el (vc-find-root): Walk up the tree to find an existing
`file' from which to start the search.
2007-07-19 Eric S. Raymond <esr@snark.thyrsus.com>
* vc-cvs.el: vc-cvs-checkin had some reference problems, now
fixed.
* vc-cvs.el: vc-cvs-checkin had some reference problems, now fixed.
2007-07-19 Stefan Monnier <monnier@iro.umontreal.ca>
* files.el (locate-dominating-file): New function.
2007-07-18 Michael Albinus <michael.albinus@gmx.de>
......
......@@ -317,6 +317,8 @@ The function walks up the directory tree from FILE looking for WITNESS.
If WITNESS if not found, return nil, otherwise return the root."
;; Represent /home/luser/foo as ~/foo so that we don't try to look for
;; witnesses in /home or in /.
(while (not (file-exists-p file))
(setq file (file-name-directory (directory-file-name file))))
(setq file (abbreviate-file-name file))
(let ((root nil)
(user (nth 2 (file-attributes file))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment