mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-30 02:20:01 +00:00
Code Releases Activity

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

3
lisp/ob-lisp.el
View file

@ -89,8 +89,7 @@ current directory string."
,(let ((dir (if (assoc :dir params) ,(let ((dir (if (assoc :dir params)
(cdr (assoc :dir params)) (cdr (assoc :dir params))
default-directory))) default-directory)))
(format (format (format org-babel-lisp-dir-fmt dir)
(if dir (format org-babel-lisp-dir-fmt dir) "(progn %s)")
(buffer-substring-no-properties (buffer-substring-no-properties
(point-min) (point-max))))) (point-min) (point-max)))))
(cdr (assoc :package params)))))) (cdr (assoc :package params))))))