Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
66752bb4
Commit
66752bb4
authored
Jul 19, 2007
by
Stefan Monnier
Browse files
(vc-find-root): Walk up the tree to find an existing
`file' from which to start the search.
parent
c1fec027
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
3 deletions
+9
-3
lisp/ChangeLog
lisp/ChangeLog
+7
-3
lisp/vc-hooks.el
lisp/vc-hooks.el
+2
-0
No files found.
lisp/ChangeLog
View file @
66752bb4
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>
...
...
lisp/vc-hooks.el
View file @
66752bb4
...
...
@@ -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
))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment