mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 00:46:26 +00:00
Code Releases Activity

org-publish.el: allow :base-directory to omit the ending slash.

Browse source 
This was spotted by Łukasz Stelmach <lukasz.stelmach@iem.pw.edu.pl>.
This commit is contained in:
Bastien Guerry 2010-09-02 16:01:51 +02:00
parent 0307f8e81b
commit 11e7a573a5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/org-publish.el
View file

@ -472,7 +472,8 @@ matching filenames."
(unless (plist-get (cdr prj) :components)
;; [[info:org:Selecting%20files]] shows how this is supposed to work:
(let* ((r (plist-get (cdr prj) :recursive))
(b (expand-file-name (plist-get (cdr prj) :base-directory)))
(b (expand-file-name (file-name-as-directory
(plist-get (cdr prj) :base-directory))))
(x (or (plist-get (cdr prj) :base-extension) "org"))
(e (plist-get (cdr prj) :exclude))
(i (plist-get (cdr prj) :include))