From 3529be82eff7906c1182fafbea6012fb6bfec160 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 16 Aug 2010 17:27:25 +0200 Subject: [PATCH] Fix interpretation of the :include property as a list of file names --- lisp/org-publish.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/org-publish.el b/lisp/org-publish.el index 6324eba2f..4bf203106 100644 --- a/lisp/org-publish.el +++ b/lisp/org-publish.el @@ -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)))