diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-02-19 02:21:08 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-02-19 02:21:08 +0000 |
| commit | a02bf0c3ee9b76c6e24d12481a4afcfbc22ea0b8 (patch) | |
| tree | 66023e3d892f1a0a700d88bb68b5b95c83f51b44 /lisp/files.el | |
| parent | 24b2be096fdd8eb9f366b69948b184e1da22d498 (diff) | |
| download | emacs-a02bf0c3ee9b76c6e24d12481a4afcfbc22ea0b8.tar.gz | |
(locate-dominating-file): Fix thinko in last change.
Reported by Bruce Stephens <bruce.stephens@isode.com>.
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 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 |