Jelajahi Sumber

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

Benjamin Andresen 16 tahun lalu
induk
melakukan
c1ee488f45
1 mengubah file dengan 3 tambahan dan 1 penghapusan
  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))))