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

29
lisp/ob-sh.el
View File

@ -160,21 +160,20 @@ 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 #'org-babel-trim
#'org-babel-trim (butlast
(butlast (org-babel-comint-with-output
(org-babel-comint-with-output (session org-babel-sh-eoe-output t body)
(session org-babel-sh-eoe-output t body) (mapc
(mapc (lambda (line)
(lambda (line) (insert line) (comint-send-input nil t) (sleep-for 0.25))
(insert line) (comint-send-input nil t) (sleep-for 0.25)) (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."