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:
Miles Bader 2007-05-25 04:41:42 +00:00
parent f4fae9a093
commit fdabbcb537
2 changed files with 5 additions and 1 deletions

View file

@ -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)