From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 19 Feb 2008 02:21:08 +0000 (+0000)
Subject: (locate-dominating-file): Fix thinko in last change.
X-Git-Tag: emacs-pretest-23.0.90~7863
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a02bf0c3ee9b76c6e24d12481a4afcfbc22ea0b8;p=emacs.git

(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 4c3b2d696db..07fa73f582b 100644
--- 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 82f190a013f..3950d5e7195 100644
--- 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