tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Merge branch 'master' of git+ssh://repo.or.cz/srv/git/org-mode

Browse source
This commit is contained in:
Carsten Dominik 2009-11-30 15:29:13 +01:00
parent 42a2f2299c c1ee488f45
commit 10bb5610b3
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
contrib/babel/lisp/langs/org-babel-screen.el
View file

@ -55,7 +55,9 @@ In case you want to use a different screen than one selected by your $PATH")
\"default\" session is be used when none is specified." \"default\" session is be used when none is specified."
(message "Sending source code block to interactive terminal session...") (message "Sending source code block to interactive terminal session...")
(save-window-excursion (save-window-excursion
(let ((socket (org-babel-screen-session-socketname session))) (let* ((processed-params (org-babel-process-params params))
(session (first processed-params))
(socket (org-babel-screen-session-socketname session)))
(unless socket (org-babel-prep-session:screen session params)) (unless socket (org-babel-prep-session:screen session params))
(org-babel-screen-session-execute-string session body)))) (org-babel-screen-session-execute-string session body))))