allow relative file names for :dir

TINYCHANGE

* lisp/ob.el (org-babel-execute-src-block): Allow the :dir header
  argument to take relative file names.
This commit is contained in:
Hans-Peter Deifel 2012-06-05 08:52:24 -06:00 committed by Eric Schulte
parent 03fbf6b161
commit 343a705ba5
1 changed files with 2 additions and 1 deletions

View File

@ -524,7 +524,8 @@ block."
(nth 1 info))))
(dir (cdr (assoc :dir params)))
(default-directory
(or (and dir (file-name-as-directory dir)) default-directory))
(or (and dir (file-name-as-directory (expand-file-name dir)))
default-directory))
(org-babel-call-process-region-original
(if (boundp 'org-babel-call-process-region-original)
org-babel-call-process-region-original