# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1180068102 0
# Node ID 97f97985d98989fbefd7cde82c8a9070bac0a00a
# Parent  2d20244326ca5ba40b914fd774ccaaf9cd8ccd76
lisp/vc-hooks.el (vc-find-root): Fix file attribute test

Revision: emacs@sv.gnu.org/emacs--rel--22--patch-27

diff -r 2d20244326ca -r 97f97985d989 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu May 24 23:21:32 2007 +0000
+++ b/lisp/ChangeLog	Fri May 25 04:41:42 2007 +0000
@@ -1,3 +1,7 @@
+2007-05-25  Miles Bader  <miles@fencepost.gnu.org>
+
+	* vc-hooks.el (vc-find-root): Fix file attribute test.
+
 2007-05-24  Richard Stallman  <rms@gnu.org>
 
 	* textmodes/flyspell.el (flyspell-correct-word-before-point):
diff -r 2d20244326ca -r 97f97985d989 lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Thu May 24 23:21:32 2007 +0000
+++ b/lisp/vc-hooks.el	Fri May 25 04:41:42 2007 +0000
@@ -325,7 +325,7 @@
                    ;; 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)