ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

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))) (cmd (intern (concat "org-babel-execute:" lang)))
(dir (cdr (assoc :dir params))) (dir (cdr (assoc :dir params)))
(default-directory (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 (call-process-region-original
(if (boundp 'call-process-region-original) call-process-region-original (if (boundp 'call-process-region-original) call-process-region-original
(symbol-function 'call-process-region))) (symbol-function 'call-process-region)))