lisp/vc-hooks.el (vc-find-root): Fix file attribute test

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d06e66e38d3c78f4ee84d4c94a76c626df9e9810..93f2477b07fb8a805364f36e866af9feb8c6f5b6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 1bde704790b7b3a3c0b36a4869979991937fc7a2..22935ab7f3b412efd567adb00cc34bd94e512b38 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -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)