From 11e7a573a5c0d443eedfa9aa5716d5616e89a229 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 2 Sep 2010 16:01:51 +0200 Subject: [PATCH] org-publish.el: allow :base-directory to omit the ending slash. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This was spotted by Łukasz Stelmach . --- lisp/org-publish.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org-publish.el b/lisp/org-publish.el index cae7be6a3..de52410ee 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))