summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2010-09-02 16:01:51 +0200
committerBastien Guerry <bzg@altern.org>2010-09-02 16:01:51 +0200
commit11e7a573a5c0d443eedfa9aa5716d5616e89a229 (patch)
tree33dd6adad63bc1c0a84f28bdcd547101d7a36228
parent0307f8e81b980533d1e29bf5b7711aa99af63076 (diff)
downloadorg-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.el3
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))