Mercurial > emacs
changeset 77805:97f97985d989
lisp/vc-hooks.el (vc-find-root): Fix file attribute test
Revision: emacs@sv.gnu.org/emacs--rel--22--patch-27
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 25 May 2007 04:41:42 +0000 |
| parents | 2d20244326ca |
| children | cba10a663325 b3bd944f9137 |
| files | lisp/ChangeLog lisp/vc-hooks.el |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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)