diff options
| author | Miles Bader <miles@gnu.org> | 2007-05-25 04:41:42 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-05-25 04:41:42 +0000 |
| commit | fdabbcb537b1cb38e69fdf09908b725bae9aed02 (patch) | |
| tree | 09a415060e413876156ca8f5d9c5efddd660b3a8 | |
| parent | f4fae9a0934d5669a6fd8d8da5b7dc91c2bda693 (diff) | |
| download | emacs-fdabbcb537b1cb38e69fdf09908b725bae9aed02.tar.gz | |
lisp/vc-hooks.el (vc-find-root): Fix file attribute test
Revision: emacs@sv.gnu.org/emacs--rel--22--patch-27
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/vc-hooks.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d06e66e38d3..93f2477b07f 100644 --- 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 1bde704790b..22935ab7f3b 100644 --- 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) |