diff options
author | Bastien Guerry <bzg@altern.org> | 2010-09-02 16:01:51 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2010-09-02 16:01:51 +0200 |
commit | 11e7a573a5c0d443eedfa9aa5716d5616e89a229 (patch) | |
tree | 33dd6adad63bc1c0a84f28bdcd547101d7a36228 | |
parent | 0307f8e81b980533d1e29bf5b7711aa99af63076 (diff) | |
download | org-mode-11e7a573a5c0d443eedfa9aa5716d5616e89a229.tar.gz |
org-publish.el: allow :base-directory to omit the ending slash.
This was spotted by Ćukasz Stelmach <lukasz.stelmach@iem.pw.edu.pl>.
-rw-r--r-- | lisp/org-publish.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-publish.el b/lisp/org-publish.el index cae7be6..de52410 100644 --- a/lisp/org-publish.el +++ b/lisp/org-publish.el @@ -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)) |