diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2013-09-29 13:43:59 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2013-09-29 13:43:59 -0600 |
commit | c076b41c9e6d9c0868fabd0a90a8ff6cf55fd4ad (patch) | |
tree | 9e8afb67b03742a7626e3d326ec45aa65660e256 | |
parent | 5b397e8917bf047bf8c27ede2425e955216dc418 (diff) | |
download | org-mode-c076b41c9e6d9c0868fabd0a90a8ff6cf55fd4ad.tar.gz |
better directory handling for lisp code blocks
* lisp/ob-lisp.el (org-babel-execute:lisp): Removed an if in which the
else branch was never taken.
-rw-r--r-- | lisp/ob-lisp.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/ob-lisp.el b/lisp/ob-lisp.el index a007923..68dfacc 100644 --- a/lisp/ob-lisp.el +++ b/lisp/ob-lisp.el @@ -89,10 +89,9 @@ current directory string." ,(let ((dir (if (assoc :dir params) (cdr (assoc :dir params)) default-directory))) - (format - (if dir (format org-babel-lisp-dir-fmt dir) "(progn %s)") - (buffer-substring-no-properties - (point-min) (point-max))))) + (format (format org-babel-lisp-dir-fmt dir) + (buffer-substring-no-properties + (point-min) (point-max))))) (cdr (assoc :package params)))))) (org-babel-pick-name (cdr (assoc :colname-names params)) (cdr (assoc :colnames params))) |