浏览代码

ox-publish: Fix compilation problem

* lisp/ox-publish.el (org-publish-all): Fix compilation problem.
Nicolas Goaziou 11 年之前
父节点
当前提交
9c1ef6df93
共有 1 个文件被更改,包括 5 次插入4 次删除
  1. 5 4
      lisp/ox-publish.el

+ 5 - 4
lisp/ox-publish.el

@@ -892,10 +892,11 @@ in another process."
   (interactive "P")
   (if async
       (org-export-async-start 'ignore
-	`(when ',force (org-publish-remove-all-timestamps))
-	`(let ((org-publish-use-timestamps-flag
-		(if ',force nil ,org-publish-use-timestamps-flag)))
-	   (org-publish-projects ',org-publish-project-alist)))
+	`(progn
+	   (when ',force (org-publish-remove-all-timestamps))
+	   (let ((org-publish-use-timestamps-flag
+		  (if ',force nil ,org-publish-use-timestamps-flag)))
+	     (org-publish-projects ',org-publish-project-alist))))
     (when force (org-publish-remove-all-timestamps))
     (save-window-excursion
       (let ((org-publish-use-timestamps-flag