Forráskód Böngészése

Merge branch 'maint'

Nicolas Goaziou 11 éve
szülő
commit
b5356dadb4
1 módosított fájl, 5 hozzáadás és 4 törlés
  1. 5 4
      lisp/ox-publish.el

+ 5 - 4
lisp/ox-publish.el

@@ -893,10 +893,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