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

This commit is contained in:
Carsten Dominik 2009-11-30 15:29:13 +01:00
commit 10bb5610b3

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."
(message "Sending source code block to interactive terminal session...")
(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))
(org-babel-screen-session-execute-string session body))))