ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

babel: Remove unused temporary file variable 

* ob-sh.el (org-babel-sh-evaluate): Remove unused temporary
	file variable
This commit is contained in:
Dan Davison 2010-09-21 00:39:55 +01:00
parent 9993463c4d
commit 757312dde3
1 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ob-sh.el
View File

@ -160,7 +160,6 @@ return the value of the last statement in BODY."
(org-babel-import-elisp-from-file tmp-file)))) (org-babel-import-elisp-from-file tmp-file))))
(if (not session) (if (not session)
(org-babel-eval org-babel-sh-command (org-babel-trim body)) (org-babel-eval org-babel-sh-command (org-babel-trim body))
(let ((tmp-file (org-babel-temp-file "sh-")))
(mapconcat (mapconcat
#'org-babel-sh-strip-weird-long-prompt #'org-babel-sh-strip-weird-long-prompt
(mapcar (mapcar
@ -174,7 +173,7 @@ return the value of the last statement in BODY."
(append (append
(split-string (org-babel-trim body) "\n") (split-string (org-babel-trim body) "\n")
(list org-babel-sh-eoe-indicator)))) (list org-babel-sh-eoe-indicator))))
2)) "\n"))))) 2)) "\n"))))
(defun org-babel-sh-strip-weird-long-prompt (string) (defun org-babel-sh-strip-weird-long-prompt (string)
"Remove prompt cruft from a string of shell output." "Remove prompt cruft from a string of shell output."