summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2013-09-29 19:43:59 (GMT)
committer Eric Schulte <schulte.eric@gmail.com>2013-09-29 19:43:59 (GMT)
commitc076b41c9e6d9c0868fabd0a90a8ff6cf55fd4ad (patch)
tree9e8afb67b03742a7626e3d326ec45aa65660e256
parent5b397e8917bf047bf8c27ede2425e955216dc418 (diff)
downloadorg-mode-c076b41c9e6d9c0868fabd0a90a8ff6cf55fd4ad.zip
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.el7
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)))