From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 29 Sep 2008 11:31:10 +0000 (+0000)
Subject: (locate-dominating-file): Take file-attributes of `dir', not of `file'
X-Git-Tag: emacs-pretest-23.0.90~2729
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69ad666d70dbf92ab66b4aaa291e8d806514b9e3;p=emacs.git

(locate-dominating-file): Take file-attributes of `dir', not of `file'
(which never changes).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f8af9ff09cf..3a1b8ade9c8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-09-29  Eli Zaretskii  <eliz@gnu.org>
+
+	* files.el (locate-dominating-file): Take file-attributes of
+	`dir', not of `file' (which never changes).
+
 2008-09-29  Michael Albinus  <michael.albinus@gmx.de>
 
 	* files.el (file-remote-p): Precise doc string; IDENTIFICATION can
diff --git a/lisp/files.el b/lisp/files.el
index 0abe462316e..f00c265ed6e 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -732,7 +732,7 @@ PATH-AND-SUFFIXES is a pair of lists, (DIRECTORIES . SUFFIXES)."
                   ;; 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)))