diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2008-09-29 11:31:10 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2008-09-29 11:31:10 +0000 |
| commit | 69ad666d70dbf92ab66b4aaa291e8d806514b9e3 (patch) | |
| tree | d2f01bcef4c1dcd66caed6b91b3412a6e9d7c90f /lisp/files.el | |
| parent | d5fb39b4c6723ceef19e92ca70f4f01371ff5592 (diff) | |
| download | emacs-69ad666d70dbf92ab66b4aaa291e8d806514b9e3.tar.gz | |
(locate-dominating-file): Take file-attributes of `dir', not of `file'
(which never changes).
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |