lisp/vc-hooks.el (vc-find-root): Fix file attribute test
Revision: emacs@sv.gnu.org/emacs--rel--22--patch-27
This commit is contained in:
parent
f4fae9a093
commit
fdabbcb537
2 changed files with 5 additions and 1 deletions
|
@ -325,7 +325,7 @@ If WITNESS if not found, return nil, otherwise return the root."
|
|||
;; to another user. This should save us from looking in
|
||||
;; things like /net and /afs. This assumes that all the
|
||||
;; files inside a project belong to the same user.
|
||||
(not (equal user (file-attributes file)))
|
||||
(not (equal user (nth 2 (file-attributes file))))
|
||||
(string-match vc-ignore-dir-regexp file)))
|
||||
(if (file-exists-p (expand-file-name witness file))
|
||||
(setq root file)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue