From dbfd87a1ebee15fdb73042f54c377cd05bd4d2fd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 5 May 2002 01:44:04 +0000 Subject: [PATCH] (filesets-ingroup-collect-files): fix problem with inclusion groups' :scan-depth property --- lisp/ChangeLog | 5 +++++ lisp/filesets.el | 4 ++-- 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 + + * filesets.el (filesets-ingroup-collect-files): + Fix problem with inclusion groups' :scan-depth property. + 2002-05-04 Colin Walters * 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) -- 2.39.5