diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2022-12-10 16:59:46 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2022-12-10 16:59:46 -0500 |
| commit | 01154166057e7cf289318a8cfa4d43716f26ca20 (patch) | |
| tree | 79dcc7b1c12e53ae852ae556541931fdd1a7ae66 /lisp/org/ob-comint.el | |
| parent | 26a8644a58768281bae249121f4f18d7b0661c44 (diff) | |
| download | emacs-01154166057e7cf289318a8cfa4d43716f26ca20.tar.gz emacs-01154166057e7cf289318a8cfa4d43716f26ca20.tar.bz2 emacs-01154166057e7cf289318a8cfa4d43716f26ca20.zip | |
Update to Org 9.6-31-g954a95
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 |