diff --git a/lisp/langs/org-babel-python.el b/lisp/langs/org-babel-python.el index a1ef15403..278ea6430 100644 --- a/lisp/langs/org-babel-python.el +++ b/lisp/langs/org-babel-python.el @@ -115,7 +115,7 @@ last statement in BODY." (list body org-babel-python-last-value-eval org-babel-python-eoe-indicator) "\n")) (raw (org-babel-comint-with-output buffer org-babel-python-eoe-indicator t ;; for some reason python is fussy, and likes enters after every input - (mapc (lambda (statement) (insert statement) (comint-send-input)) + (mapc (lambda (statement) (insert statement) (comint-send-input nil t)) (split-string full-body "[\r\n]+")))) (results (delete org-babel-python-eoe-indicator (cdr (member org-babel-python-eoe-indicator diff --git a/lisp/langs/org-babel-ruby.el b/lisp/langs/org-babel-ruby.el index a36b1d7f0..a1ca2ee44 100644 --- a/lisp/langs/org-babel-ruby.el +++ b/lisp/langs/org-babel-ruby.el @@ -104,7 +104,7 @@ last statement in BODY." (let* ((full-body (mapconcat #'org-babel-chomp (list body org-babel-ruby-last-value-eval org-babel-ruby-eoe-indicator) "\n")) (raw (org-babel-comint-with-output buffer org-babel-ruby-eoe-indicator t - (insert full-body) (comint-send-input))) + (insert full-body) (comint-send-input nil t))) (results (cdr (member org-babel-ruby-eoe-indicator (reverse (mapcar #'org-babel-ruby-read-string (mapcar #'org-babel-trim raw))))))) diff --git a/lisp/langs/org-babel-shell.el b/lisp/langs/org-babel-shell.el index 389ab4ade..2fa7db4ab 100644 --- a/lisp/langs/org-babel-shell.el +++ b/lisp/langs/org-babel-shell.el @@ -95,6 +95,7 @@ then create. Return the initialized session." (let* ((session (if session (intern session) :default)) (shell-buffer (org-babel-shell-session-buffer session)) (newp (not (org-babel-comint-buffer-livep shell-buffer)))) + (message "initiating shell buffer %S" shell-buffer) (shell shell-buffer) (when newp (setq shell-buffer (current-buffer)) @@ -115,7 +116,7 @@ last statement in BODY." (let* ((full-body (mapconcat #'org-babel-chomp (list body org-babel-shell-eoe-indicator) "\n")) (raw (org-babel-comint-with-output buffer org-babel-shell-eoe-output nil - (insert full-body) (comint-send-input))) + (insert full-body) (comint-send-input nil t))) (results (cdr (member org-babel-shell-eoe-output (reverse (mapcar #'org-babel-shell-strip-weird-long-prompt (mapcar #'org-babel-trim raw)))))))