Преглед изворни кода

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

Benjamin Andresen пре 16 година
родитељ
комит
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))))