mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-22 07:09:47 +00:00
Code

better directory handling for lisp code blocks

Browse Source 
* lisp/ob-lisp.el (org-babel-execute:lisp): Removed an if in which the
  else branch was never taken.
This commit is contained in:
Eric Schulte 2013-09-29 13:43:59 -06:00
parent 5b397e8917
commit c076b41c9e
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ob-lisp.el
View File

@ -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)))