From 40ce6b75e6245659a3a14622356e32e7dd1125dd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=A9bastien=20Delafond?= Date: Sun, 13 Jul 2014 13:35:29 +0200 Subject: Imported Upstream version 8.2.1 --- lisp/ox-man.el | 25 ++++++------------------- 1 file changed, 6 insertions(+), 19 deletions(-) (limited to 'lisp/ox-man.el') diff --git a/lisp/ox-man.el b/lisp/ox-man.el index b99a464..a160e4c 100644 --- a/lisp/ox-man.el +++ b/lisp/ox-man.el @@ -1144,14 +1144,8 @@ file-local settings. Return output file's name." (interactive) (let ((outfile (org-export-output-file-name ".man" subtreep))) - (if async - (org-export-async-start - (lambda (f) (org-export-add-to-stack f 'man)) - `(expand-file-name - (org-export-to-file - 'man ,outfile ,subtreep ,visible-only ,body-only ',ext-plist))) - (org-export-to-file - 'man outfile subtreep visible-only body-only ext-plist)))) + (org-export-to-file 'man outfile + async subtreep visible-only body-only ext-plist))) (defun org-man-export-to-pdf (&optional async subtreep visible-only body-only ext-plist) @@ -1182,17 +1176,10 @@ file-local settings. Return PDF file's name." (interactive) - (if async - (let ((outfile (org-export-output-file-name ".man" subtreep))) - (org-export-async-start - (lambda (f) (org-export-add-to-stack f 'man)) - `(expand-file-name - (org-man-compile - (org-export-to-file - 'man ,outfile ,subtreep ,visible-only ,body-only - ',ext-plist))))) - (org-man-compile - (org-man-export-to-man nil subtreep visible-only body-only ext-plist)))) + (let ((outfile (org-export-output-file-name ".man" subtreep))) + (org-export-to-file 'man outfile + async subtreep visible-only body-only ext-plist + (lambda (file) (org-latex-compile file))))) (defun org-man-compile (file) "Compile a Groff file. -- cgit v1.2.3