(filesets-ingroup-collect-files):

fix problem with inclusion groups' :scan-depth property

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de7d9f7b0f2..2d31fdfae83 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-04  Thomas Link <t.link@gmx.at>
+
+        * filesets.el (filesets-ingroup-collect-files):
+        Fix problem with inclusion groups' :scan-depth property.
+
 2002-05-04  Colin Walters  <walters@verbum.org>
 
         * ibuf-ext.el (ibuffer-kill-filter-group): Test for killing
diff --git a/lisp/filesets.el b/lisp/filesets.el
index 00d9e0b6272..0195d70d64c 100644
--- a/lisp/filesets.el
+++ b/lisp/filesets.el
@@ -2006,8 +2006,8 @@ LOOKUP-NAME is used as lookup name for retrieving fileset specific settings."
                ((not this-patt)
                 (filesets-error 'error "Filesets: malformed :ingroup definition "
                                 this-def))
-               ((<= this-sd 0)
-                (setq rv (nconc rv `(((,master ,this-name))))))
+               ((< this-sd 0)
+                nil)
                (t
                 (with-temp-buffer
                   (insert-file-contents master)