浏览代码

Merge branch 'maint'

Nicolas Goaziou 5 年之前
父节点
当前提交
65a7267b37
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/ox-publish.el

+ 2 - 1
lisp/ox-publish.el

@@ -754,7 +754,8 @@ Default for SITEMAP-FILENAME is `sitemap.org'."
   (let* ((root (expand-file-name
 		(file-name-as-directory
 		 (org-publish-property :base-directory project))))
-	 (sitemap-filename (concat root (or sitemap-filename "sitemap.org")))
+	 (sitemap-filename (expand-file-name (or sitemap-filename "sitemap.org")
+					     root))
 	 (title (or (org-publish-property :sitemap-title project)
 		    (concat "Sitemap for project " (car project))))
 	 (style (or (org-publish-property :sitemap-style project)