tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

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

Browse source 
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))
(if skip-dir (not (string-match skip-dir fnd)) t))
(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)))))
(directory-files base-dir t (unless recurse match))))