diff --git a/contrib/lisp/ox-groff.el b/contrib/lisp/ox-groff.el index 6ffba98c4..ef5470056 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 41410cfea..b99a46499 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 28ff1f8bc..e7ec635a7 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)