# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1222687803 0
# Node ID 7c5cb1da6c7f5be4581b5fb62f09c57688ec0c48
# Parent  827691e8a15e0a59e2181cb4007b54ee2c8a9a4c
(locate-dominating-file): Take file-attributes of `dir', not of `file'
(which never changes).

diff -r 827691e8a15e -r 7c5cb1da6c7f lisp/files.el
--- a/lisp/files.el	Mon Sep 29 05:42:20 2008 +0000
+++ b/lisp/files.el	Mon Sep 29 11:30:03 2008 +0000
@@ -732,7 +732,7 @@
                   ;; things like /net and /afs.  This assumes that all the
                   ;; files inside a project belong to the same user.
                   (let ((prev-user user))
-                    (setq user (nth 2 (file-attributes file)))
+                    (setq user (nth 2 (file-attributes dir)))
                     (or (null prev-user) (equal user prev-user))))
         (if (setq files (and (file-directory-p dir)
                              (directory-files dir 'full regexp)))