瀏覽代碼

Publishing: Run the after-export-hook

Carsten Dominik 15 年之前
父節點
當前提交
3e7d69d335
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      lisp/org-publish.el

+ 2 - 2
lisp/org-publish.el

@@ -426,8 +426,8 @@ PUB-DIR is the publishing directory."
 		   (buffer-live-p export-buf-or-file))
 	  (set-buffer export-buf-or-file)
 	  ;; run hooks after export and save export
-	  (and (run-hooks 'org-publish-after-export-hook)
-	       (if (buffer-modified-p) (save-buffer)))
+	  (progn (run-hooks 'org-publish-after-export-hook)
+		 (if (buffer-modified-p) (save-buffer)))
 	  (kill-buffer export-buf-or-file))
 	;; maybe restore buffer's content
 	(set-buffer init-buf)