forked from mirrors/org-mode
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))
|
||||
(xm (concat "^" b (if r ".+" "[^/]+") "\\.\\(" x "\\)$")))
|
||||
(when (or
|
||||
(and i (string-match i filename))
|
||||
(and
|
||||
i
|
||||
(member filename
|
||||
(mapcar
|
||||
(lambda (file) (expand-file-name file b))
|
||||
i)))
|
||||
(and
|
||||
(not (and e (string-match e filename)))
|
||||
(string-match xm filename)))
|
||||
|
|
Loading…
Reference in New Issue