(locate-dominating-file): Fix thinko in last change.

Reported by Bruce Stephens <bruce.stephens@isode.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4c3b2d696dbc5ccf09f654a76a1acba855bf6b74..07fa73f582b38c67aebeac15509289b6383a9667 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-02-19  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * files.el (locate-dominating-file): Fix thinko in last change.
+       Reported by Bruce Stephens <bruce.stephens@isode.com>.
+
 2008-02-18  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * vc.el (vc-status-mode-menu): New menu for vc-status.

diff --git a/lisp/files.el b/lisp/files.el
index 82f190a013f17de74478c99a11df1782c077f9a7..3950d5e7195e29b84eff48afb0a511e2dc21431e 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -742,7 +742,7 @@ PATH-AND-SUFFIXES is a pair of lists, (DIRECTORIES . SUFFIXES)."
                   ;; files inside a project belong to the same user.
                   (let ((prev-user user))
                     (setq user (nth 2 (file-attributes file)))
-                    (not (or (null prev-user) (equal user prev-user)))))
+                    (or (null prev-user) (equal user prev-user))))
         (if (setq files (directory-files dir 'full regexp))
             (throw 'found (car files))
           (if (equal dir