Просмотр исходного кода

org-babel-screen: now parsing it's own parameters

Benjamin Andresen 16 лет назад
Родитель
Сommit
c1ee488f45
1 измененных файлов с 3 добавлено и 1 удалено
  1. 3 1
      contrib/babel/lisp/langs/org-babel-screen.el

+ 3 - 1
contrib/babel/lisp/langs/org-babel-screen.el

@@ -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))))