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 /lisp/ox-man.el | |
| parent | 44bbf7eace0d917b5deb7a2ee74ef2927e095b3c (diff) | |
| parent | 40ce6b75e6245659a3a14622356e32e7dd1125dd (diff) | |
Imported Debian patch 8.2.1-1
Diffstat (limited to 'lisp/ox-man.el')
| -rw-r--r-- | lisp/ox-man.el | 25 |
1 files changed, 6 insertions, 19 deletions
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. |