mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-25 10:47:12 +00:00
Code

babel: Use file-name-as-directory to form default-directory

Browse Source
This commit is contained in:
Dan Davison 2010-02-28 11:07:01 -05:00
parent f0f511916a
commit 486bc2fe64
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/babel/lisp/org-babel.el
View File

@ -216,7 +216,7 @@ block."
(cmd (intern (concat "org-babel-execute:" lang)))
(dir (cdr (assoc :dir params)))
(default-directory
(or (and dir (if (string-match "/$" dir) dir (concat dir "/"))) default-directory))
(or (and dir (file-name-as-directory dir)) default-directory))
(call-process-region-original
(if (boundp 'call-process-region-original) call-process-region-original
(symbol-function 'call-process-region)))