From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 5 May 2002 01:44:04 +0000 (+0000)
Subject: (filesets-ingroup-collect-files):
X-Git-Tag: ttn-vms-21-2-B4~15182
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dbfd87a1ebee15fdb73042f54c377cd05bd4d2fd;p=emacs.git

(filesets-ingroup-collect-files):
fix problem with inclusion groups' :scan-depth property
---

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)