diff options
| author | Sebastien Delafond <seb@debian.org> | 2013-10-27 17:14:14 +0100 |
|---|---|---|
| committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:29 +0200 |
| commit | d3ee0b02baea9e4e066ed16145ba076165d8a696 (patch) | |
| tree | fdb3661e3284a5d42637a562216e29ac4edd40d4 /contrib/lisp/ox-groff.el | |
| parent | 44bbf7eace0d917b5deb7a2ee74ef2927e095b3c (diff) | |
| parent | 40ce6b75e6245659a3a14622356e32e7dd1125dd (diff) | |
Imported Debian patch 8.2.1-1
Diffstat (limited to 'contrib/lisp/ox-groff.el')
| -rw-r--r-- | contrib/lisp/ox-groff.el | 35 |
1 files changed, 9 insertions, 26 deletions
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. |