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 --- contrib/lisp/ox-groff.el | 35 +++++++++-------------------------- 1 file changed, 9 insertions(+), 26 deletions(-) (limited to 'contrib/lisp/ox-groff.el') diff --git a/contrib/lisp/ox-groff.el b/contrib/lisp/ox-groff.el index ef54700..9a4fed1 100644 --- a/contrib/lisp/ox-groff.el +++ b/contrib/lisp/ox-groff.el @@ -1855,20 +1855,11 @@ file-local settings. Return output file's name." (interactive) - (let ((outfile (org-export-output-file-name ".groff" subtreep))) - (if async - (org-export-async-start - (lambda (f) (org-export-add-to-stack f 'groff)) - (let ((org-groff-registered-references nil) - (org-groff-special-content nil)) - `(expand-file-name - (org-export-to-file - 'groff ,outfile ,subtreep ,visible-only ,body-only - ',ext-plist)))) - (let ((org-groff-registered-references nil) - (org-groff-special-content nil)) - (org-export-to-file - 'groff outfile subtreep visible-only body-only ext-plist))))) + (let ((outfile (org-export-output-file-name ".groff" subtreep)) + (org-groff-registered-references nil) + (org-groff-special-content nil)) + (org-export-to-file 'groff outfile + async subtreep visible-only body-only ext-plist))) (defun org-groff-export-to-pdf (&optional async subtreep visible-only body-only ext-plist) @@ -1896,18 +1887,10 @@ file-local settings. Return PDF file's name." (interactive) - (if async - (let ((outfile (org-export-output-file-name ".groff" subtreep))) - (org-export-async-start - (lambda (f) (org-export-add-to-stack f 'groff)) - `(expand-file-name - (org-groff-compile - (org-export-to-file - 'groff ,outfile ,subtreep ,visible-only ,body-only - ',ext-plist))))) - (org-groff-compile - (org-groff-export-to-groff - nil subtreep visible-only body-only ext-plist)))) + (let ((outfile (org-export-output-file-name ".groff" subtreep))) + (org-export-to-file 'groff outfile + async subtreep visible-only body-only ext-plist + (lambda (file) (org-groff-compile file))))) (defun org-groff-compile (file) "Compile a Groff file. -- cgit v1.2.3