ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug fix in `org-publish-get-base-files-1' (again) 

Honor the :base-extension regexp.
This commit is contained in:
Bastien Guerry 2008-03-31 13:29:49 +02:00
parent 363630a471
commit 23b21bc3ac
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-publish.el
View File

@ -430,7 +430,9 @@ matching the regexp SKIP-DIR when recursiing through BASE-DIR."
(not (string-match "^\\.+$" fnd)) (not (string-match "^\\.+$" fnd))
(if skip-dir (not (string-match skip-dir fnd)) t)) (if skip-dir (not (string-match skip-dir fnd)) t))
(org-publish-get-base-files-1 f recurse match skip-file skip-dir) (org-publish-get-base-files-1 f recurse match skip-file skip-dir)
(unless (or fd-p (and skip-file (string-match skip-file fnd))) (unless (or fd-p ;; this is a directory
(and skip-file (string-match skip-file fnd))
(not (string-match match fnd)))
(pushnew f org-publish-temp-files))))) (pushnew f org-publish-temp-files)))))
(directory-files base-dir t (unless recurse match)))) (directory-files base-dir t (unless recurse match))))