Mercurial > emacs
comparison lisp/filesets.el @ 45130:cb1d1e1eb678
(filesets-ingroup-collect-files):
fix problem with inclusion groups' :scan-depth property
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 05 May 2002 01:43:53 +0000 |
| parents | 161015ebadc0 |
| children | c26266baaba5 |
comparison
equal
deleted
inserted
replaced
| 45129:7b5b6369f90a | 45130:cb1d1e1eb678 |
|---|---|
| 2004 (lst nil)) | 2004 (lst nil)) |
| 2005 (cond | 2005 (cond |
| 2006 ((not this-patt) | 2006 ((not this-patt) |
| 2007 (filesets-error 'error "Filesets: malformed :ingroup definition " | 2007 (filesets-error 'error "Filesets: malformed :ingroup definition " |
| 2008 this-def)) | 2008 this-def)) |
| 2009 ((<= this-sd 0) | 2009 ((< this-sd 0) |
| 2010 (setq rv (nconc rv `(((,master ,this-name)))))) | 2010 nil) |
| 2011 (t | 2011 (t |
| 2012 (with-temp-buffer | 2012 (with-temp-buffer |
| 2013 (insert-file-contents master) | 2013 (insert-file-contents master) |
| 2014 (goto-char (point-min)) | 2014 (goto-char (point-min)) |
| 2015 (when this-pp | 2015 (when this-pp |