Fix interpretation of the :include property as a list of file names
This commit is contained in:
parent
ea16ef9535
commit
3529be82ef
|
@ -471,7 +471,12 @@ matching filenames."
|
||||||
(i (plist-get (cdr prj) :include))
|
(i (plist-get (cdr prj) :include))
|
||||||
(xm (concat "^" b (if r ".+" "[^/]+") "\\.\\(" x "\\)$")))
|
(xm (concat "^" b (if r ".+" "[^/]+") "\\.\\(" x "\\)$")))
|
||||||
(when (or
|
(when (or
|
||||||
(and i (string-match i filename))
|
(and
|
||||||
|
i
|
||||||
|
(member filename
|
||||||
|
(mapcar
|
||||||
|
(lambda (file) (expand-file-name file b))
|
||||||
|
i)))
|
||||||
(and
|
(and
|
||||||
(not (and e (string-match e filename)))
|
(not (and e (string-match e filename)))
|
||||||
(string-match xm filename)))
|
(string-match xm filename)))
|
||||||
|
|
Loading…
Reference in New Issue