diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-05-30 21:48:48 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-05-30 21:48:48 +0200 |
commit | 0f2ba793aace3fade6db121d34d6d548023f64d9 (patch) | |
tree | 621c5de8b29e4ead946aa3dbb959574617e5b416 | |
parent | f3ba879079f2c5da7562908a7a068ab21acc78cb (diff) | |
download | org-mode-0f2ba793aace3fade6db121d34d6d548023f64d9.tar.gz |
Fix commit 0018428c256b09b964439fde75cca702b9ddcca6
* contrib/lisp/ox-groff.el (org-groff-compile): Use appropriate
argument.
* lisp/ox-man.el (org-man-compile): Use appropriate argument.
* lisp/ox-texinfo.el (org-texinfo-compile): Use appropriate argument.
-rw-r--r-- | contrib/lisp/ox-groff.el | 2 | ||||
-rw-r--r-- | lisp/ox-man.el | 2 | ||||
-rw-r--r-- | lisp/ox-texinfo.el | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/contrib/lisp/ox-groff.el b/contrib/lisp/ox-groff.el index 6ffba98..ef54700 100644 --- a/contrib/lisp/ox-groff.el +++ b/contrib/lisp/ox-groff.el @@ -1920,7 +1920,7 @@ Return PDF file name or an error if it couldn't be produced." (full-name (file-truename file)) (out-dir (file-name-directory file)) ;; Properly set working directory for compilation. - (default-directory (if (file-name-absolute-p texfile) + (default-directory (if (file-name-absolute-p file) (file-name-directory full-name) default-directory)) errors) diff --git a/lisp/ox-man.el b/lisp/ox-man.el index 41410cf..b99a464 100644 --- a/lisp/ox-man.el +++ b/lisp/ox-man.el @@ -1205,7 +1205,7 @@ Return PDF file name or an error if it couldn't be produced." (full-name (file-truename file)) (out-dir (file-name-directory file)) ;; Properly set working directory for compilation. - (default-directory (if (file-name-absolute-p texfile) + (default-directory (if (file-name-absolute-p file) (file-name-directory full-name) default-directory)) errors) diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index 28ff1f8..e7ec635 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -1799,7 +1799,7 @@ Return INFO file name or an error if it couldn't be produced." (full-name (file-truename file)) (out-dir (file-name-directory file)) ;; Properly set working directory for compilation. - (default-directory (if (file-name-absolute-p texfile) + (default-directory (if (file-name-absolute-p file) (file-name-directory full-name) default-directory)) errors) |