(filesets-ingroup-collect-files):

fix problem with inclusion groups' :scan-depth property

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de7d9f7b0f21c11afb82d50ca9aab610b3333361..2d31fdfae835b400a27c87bf6ca8f3abffb309ec 100644 (file)
--- 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 00d9e0b62729fedbe2162977ee98604d60c07bd5..0195d70d64c052375d5c67dfa78feaebaaf32ead 100644 (file)
--- 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)