Explorar el Código

Merge branch 'maint'

Nicolas Goaziou hace 11 años
padre
commit
b5356dadb4
Se han modificado 1 ficheros con 5 adiciones y 4 borrados
  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