diff options
Diffstat (limited to 'lisp/org/ob-comint.el')
| -rw-r--r-- | lisp/org/ob-comint.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/org/ob-comint.el b/lisp/org/ob-comint.el index e8d83670767..064ba94464f 100644 --- a/lisp/org/ob-comint.el +++ b/lisp/org/ob-comint.el @@ -117,6 +117,14 @@ or user `keyboard-quit' during execution of body." (goto-char (process-mark (get-buffer-process (current-buffer)))) (insert dangling-text) + ;; Replace partially supplied input lines. + ;; This is needed when output filter spits partial lines that + ;; do not include a full prompt at a time. + (setq string-buffer + (replace-regexp-in-string + comint-prompt-regexp + ,org-babel-comint-prompt-separator + string-buffer)) ;; remove echo'd FULL-BODY from input (when (and ,remove-echo ,full-body (string-match |