From 486bc2fe64b649866dec4b0e0c77d3a6a6e28875 Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Sun, 28 Feb 2010 11:07:01 -0500 Subject: [PATCH] babel: Use file-name-as-directory to form default-directory --- contrib/babel/lisp/org-babel.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/babel/lisp/org-babel.el b/contrib/babel/lisp/org-babel.el index 431134c9a..0142deeb9 100644 --- a/contrib/babel/lisp/org-babel.el +++ b/contrib/babel/lisp/org-babel.el @@ -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)))